| Mathematica
Remove["Global`*"];
data = Table[{x,Sin[x]},
{x, -2Pi,2 Pi,Pi/100}];
ListPlot[data,
Frame -> True,
GridLines->Automatic,
GridLinesStyle->Dashed,
ImageSize->300,
AspectRatio->1,
PlotStyle->Red,
FrameLabel->{{"sin(x)",None},
{"x","plot of sin(x)"}},
FrameTicks->{{-2Pi,-Pi,0,Pi,2Pi},
None,Automatic,None}
]
|
|