Hey everyone!
I have a list line plot which shall be contain 4 curves, that can be distinguished in a monochrome jpeg. For this reason I use the following code.
ListLinePlot[Join[plotstate2], AspectRatio->6.0/20, ImagePadding->padding,PlotRange->{{15,70},{-0.1,1.6}},InterpolationOrder->0,
AxesStyle->Black, Epilog->{Text["t [s]",{66,0.2},{0,0}]},
PlotLegends->Placed[LineLegend[{"Subscript[x, 2]","Subscript[y, 2]","Subscript[z, 2]","Subscript[\[Psi], 2]"},LabelStyle->{Black,11},LegendLayout->{"Row",1},LegendMarkerSize->10],{0.60,0.85}],
AspectRatio-> 6.0/20,ImageSize-> {10cm},
PlotTheme->"Monochrome",PlotLegends->"Expressions"
]
Export["1.png", Show[p1], ImageResolution -> 300];
And I get the following plot: As I have many points, the curve is full of point markers. As I just want to mark the different curves with them, I tried to mesh
p1=ListLinePlot[Join[plotstate2],AspectRatio->6.0/20,ImagePadding->padding,PlotRange->{{15,70},{-0.1,1.6}},PlotStyle->{Dashing,Dotted},InterpolationOrder->0,AxesStyle->Black,
Epilog->{Text["t [s]",{66,0.2},{0,0}]},
PlotLegends->Placed[LineLegend[{"Subscript[x, 2]","Subscript[y, 2]","Subscript[z, 2]","Subscript[\[Psi], 2]"},LabelStyle->{Black,11},LegendLayout->{"Row",1},LegendMarkerSize->10],{0.60,0.85}],
AspectRatio-> 6.0/20,ImageSize-> {10cm},
PlotTheme->"Monochrome",PlotLegends->"Expressions",Mesh->10
]
Export["1.png",Show[p1],ImageResolution->300];
which leads to:
Any Ideas on how to resolve the issue? Thanks a lot in advance!