Take the 2-minute tour ×
Mathematica Stack Exchange is a question and answer site for users of Mathematica. It's 100% free, no registration required.

I want to plot two sets of poins (say, one in black and other in gray).

How can do I this? I only obtain one set, and I don´t know how to use two colors in an Epilog option.

peaks[x_, y_] := 
  3*(1 - x)^2*Exp[-(x^2) - (y + 1)^2] - 
    10*(x/5 - x^3 - y^5) Exp[-x^2 - y^2] - 1/3 Exp[-(x + 1)^2 - y^2];
ContourPlot[peaks[x, y], {x, -2, 2}, {y, -2, 3}, 
  ColorFunction -> "DarkRainbow", 
  ContourLines -> False, 
  Contours -> 25, 
  LabelStyle -> {Bold, 20}, 
  Epilog -> {Black, PointSize -> .036, Point[ {{0, 1}, {1, 1}, {1, 1.5}}]}, 
  Epilog -> {Gray, PointSize -> .036, Point[ {{-1, 1}, {-1, 1}, {-1, 1.5}}]}]

Before posting I tried any options, like

ContourPlot[peaks[x, y], {x, -2, 2}, {y, -2, 3}, 
  ColorFunction -> "DarkRainbow", 
  ContourLines -> False, 
  Contours -> 25, 
  LabelStyle -> {Bold, 20},  
  Epilog -> 
   {{Black, Gray}, PointSize -> {.036, 0.36}, 
    Point[{ {{0, 1}, {1, 1}, {1, 1.5}}, {{-1, 1}, {-1, 1}, {-1,1.5}}}]}]
share|improve this question

closed as off-topic by bobthechemist, rasher, Yves Klett, ubpdqn, Öskå Jun 28 at 10:53

This question appears to be off-topic. The users who voted to close gave this specific reason:

  • "This question arises due to a simple mistake such as a trivial syntax error, incorrect capitalization, spelling mistake, or other typographical error and is unlikely to help any future visitors, or else it is easily found in the documentation." – bobthechemist, rasher, Yves Klett, ubpdqn, Öskå
If this question can be reworded to fit the rules in the help center, please edit the question.

    
Just merge your options in one Epilog. Only the first one will be used anyway. And please try to remove obvious spelling/punctuation errors from the question and the title to save us the effort. –  Yves Klett Jun 15 at 6:38
    
@YvesKlett Thank you, before posting I tried any options but... no success –  Mika Ike Jun 15 at 6:49
2  
Two points. 1) I've reformatted your code once again, but -- really -- you have asked enough questions by now to know how we want questions formatted. You should take a little extra time and format any future questions better. 2) Your self-answer is correct, but it shouldn't be added to your question. You should cut it from your question and paste it into an answer field. –  m_goldberg Jun 15 at 8:25
    
@m_goldberg ok. Thank you & Escuse me. In my defense :-) I must say that I think that to make similar thing with diferent commands are there soma variations in the option, and in this issue Mathematica it´s a little confuse bacause what it´s good for one command it´s bad for other similar, in the graph aspect. I encountered this many times. But yes, in general I think you´re rigth. I will try to be more careful. and Thank you to all! for share your knowledge. –  Mika Ike Jun 15 at 9:50

1 Answer 1

I answer this question myself, after comments of YvesKlett and m_goldberg.

peaks[x_, y_] := 
  3*(1 - x)^2*Exp[-(x^2) - (y + 1)^2] - 10*(x/5 - x^3 - y^5) Exp[-x^2 - y^2] - 
    1/3 Exp[-(x + 1)^2 - y^2];
ContourPlot[peaks[x, y], {x, -2, 2}, {y, -2, 3},
  ColorFunction -> "DarkRainbow", 
  ContourLines -> False,
  Contours -> 25,
  LabelStyle -> {Bold, 20},   
  Epilog -> 
    {Black, PointSize -> .036, Point[ {{0, 1}, {1, 1}, {1, 1.5}}],
     Red, PointSize -> .036, Point[ {{-1, 1}, {-1, 1}, {-1, 1.5}}]}]
share|improve this answer

Not the answer you're looking for? Browse other questions tagged or ask your own question.