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}]
eldo
- 83.1k
- 6
- 72
- 202