# How to plot two sets of points in diferent colors with Epilog? [closed]

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}}}]}]

-

## closed as off-topic by bobthechemist, rasher, Yves Klett, ubpdqn, ÖskåJun 28 '14 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 '14 at 6:38
@YvesKlett Thank you, before posting I tried any options but... no success –  Mika Ike Jun 15 '14 at 6:49
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 '14 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 '14 at 9:50

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}}]}]

-