6
$\begingroup$

I wrote this simple code for a basic plot (two lines):

Plot[{4, 0}, {x, -2, 2},   
 PlotStyle -> {{Red, Dashed, Thickness[0.004]}, {Red, Dashed, 
    Thickness[0.004]}}, PlotRange -> {-1, 6}]

Whose output is simply

enter image description here

I would like to insert a single point (and moreover, I would like that that point were clearly visible, quite marked) for example the point $P = (1, 4)$ on the red higher line.

How can I do that?

Improve this question
$\endgroup$
1

2 Answers 2

Reset to default
12
$\begingroup$ 
Plot[{4, 0}, {x, -2, 2},
 Epilog -> {Blue, PointSize@Large, Point[{1, 4}]},
 PlotStyle -> {{Red, Dashed, Thickness[0.004]}, {Red, Dashed, Thickness[0.004]}},
 PlotRange -> {-1, 6}]

enter image description here

Improve this answer
$\endgroup$
1
  • $\begingroup$ Awesome again! Easy and fast, thank you so much! $\endgroup$
    – Enrico M.
    Commented Dec 9, 2015 at 20:58
12
$\begingroup$

Another option is to use Show and Graphics, as in

p = Plot[{4, 0}, {x, -2, 2},PlotStyle -> {{Red, Dashed, Thickness[0.004]}, {Red, Dashed, 
      Thickness[0.004]}}, PlotRange -> {-1, 6}];
g = Graphics[{PointSize[Large], Blue, Point[{1, 4}]}];
Show[p, g]

Mathematica graphics

Improve this answer
$\endgroup$

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