How can I pass plot options when I use the PlotPoints
command? I thought that I could find an answer online but I was unable to do so.
The task at hand is to plot the function with thin green and the points with thick black. I naively used the following code
stpfnctn[r_] := Piecewise[{{5 - Abs[2]*r, r > 0}, {5 + Abs[2]*r, r < 0}}]
Plot[stpfnctn[r], {r, -3, 3},
PlotRange -> {{-3.5, 3.5}, {-1.1, 5}},
Exclusions -> {r == 0},
Mesh -> All,
MaxRecursion -> 0,
PlotPoints -> {25, PlotStyle -> {Thick, Black}},
PlotStyle -> {Thin, Green},
BaseStyle -> {13, FontFamily -> "Times New Roman"},
Ticks -> {None, Automatic},
AxesStyle -> Arrowheads[0.04]]
which does not work. The whole plot is preented in thin green colour. Any suggestions?