Snippet Mathematica plot format

Posted on | In

Snippet This snippet demonstrates the polt format that I often used in Wolfram Mathematica.

1
2
3
4
5
6
7
8
9
Plot[Sin[x], {x, -Pi, Pi}, 
     Mesh->None, PlotRange->{{-Pi, Pi}, {-2, 2}}, 
     AspectRatio->9/16, PlotTheme->"Scientific", FrameStyle->Black, 
     TicksStyle->Directive[FontSize->20], ImageSize->Large, 
     AxesLabel->Automatic, LabelStyle->Directive[FontSize->20, 
     FontFamily->"Times New Roman"], Epilog->{Text[Style[ 
        ToExpression[ "y = 12 \frac{\partial^2 f(x)}{\partial x^2}", 
        TeXForm, HoldForm], FontFamily->"Times New Roman", FontSize->20, 
        Bold, Black], Scaled[{.25, .80}]]}]

Here is the diagram,

Wolfram

Here is the Wolfram notebook (WolframPlotFormat1.nb) used in this post.