Plot[x^2+5Sin[3x],{x,-5,5}]

Plot[x^2+5Sin[3x],{x,-5,5},PlotStyle->Red]

Plot[(x^2)+5 Sin[3 x],{x,-5,5},PlotTheme->"Detailed",PlotStyle->RGBColor[0,1,0.5]]

Options[Plot]

TableForm[Options[Plot]]

Length[Options[Plot]]

Plot[(x^2)+5 Sin[3 x],{x,-5,5}]

Plot[(x^2)+5 Sin[3 x],{x,-5,5},AlignmentPoint->Center,AspectRatio->(1/GoldenRatio),Axes->True,AxesLabel->None,AxesOrigin->Automatic,AxesStyle->{},Background->None,BaselinePosition->Automatic,BaseStyle->{},ClippingStyle->None,ColorFunction->Automatic,ColorFunctionScaling->True,ColorOutput->Automatic,ContentSelectable->Automatic,CoordinatesToolOptions->Automatic,DisplayFunction:>$DisplayFunction,Epilog->{},Evaluated->Automatic,EvaluationMonitor->None,Exclusions->Automatic,ExclusionsStyle->None,Filling->None,FillingStyle->Automatic,FormatType:>TraditionalForm,Frame->False,FrameLabel->None,FrameStyle->{},FrameTicks->Automatic,FrameTicksStyle->{},GridLines->None,GridLinesStyle->{},ImageMargins->0.`,ImagePadding->All,ImageSize->Automatic,ImageSizeRaw->Automatic,LabelStyle->{},MaxRecursion->Automatic,Mesh->None,MeshFunctions->{#1&},MeshShading->None,MeshStyle->Automatic,Method->Automatic,PerformanceGoal:>$PerformanceGoal,PlotLabel->None,PlotLegends->None,PlotPoints->Automatic,PlotRange->{Full,Automatic},PlotRangeClipping->True,PlotRangePadding->Automatic,PlotRegion->Automatic,PlotStyle->Automatic,PlotTheme:>$PlotTheme,PreserveImageOptions->Automatic,Prolog->{},RegionFunction->(True&),RotateLabel->True,TargetUnits->Automatic,Ticks->Automatic,TicksStyle->{},WorkingPrecision->MachinePrecision]

Plot[(x^2)+5 Sin[3 x],{x,-5,5},Background->Lighter[Gray, 0.8]]

c

Manipulate[Plot[(x^2)+5 Sin[a x],{x,-5,5}],{a,1,5}]

DynamicModule[{a=3.920091795921337`},Plot[(x^2)+5 Sin[a x],{x,-5,5}]]

Plot[(x^2)+5 Sin[5 x],{x,-5,5},PlotRange->{-10,50}]

Manipulate[Plot[(x^2)+b Sin[a x],{x,-5,5},
PlotRange->{-8,30},
Filling->Axis,
AxesStyle->Dashed,
PlotStyle->Thick,
Frame->True
],
{a,1,5},
{b,1,10}
]

Manipulate[Plot[(x^2)+b Sin[a x],{x,-5,5},
PlotRange->{-8,30},
Filling->Axis,
AxesStyle->Dashed,
PlotStyle->Thick,
Frame->True
],
{{a,3,"Множител в синуса"},{1,5,2,10,-1,-2,20,3}},
{b,1,10}
]

Manipulate[Plot[(x^2)+b Sin[a x],{x,-5,5},
PlotRange->{-8,30},
Filling->Axis,
AxesStyle->Dashed,
PlotStyle->Thick,
Frame->True
],
{{a,2,"Множител в синуса"},Table[i,{i,-10,10,2}]},
{b,1,10}
]

Table[i,{i,-10,10,2}]

Manipulate[Plot[(x^st)+b Sin[a x],{x,-5,5},
PlotRange->{-8,30},
Filling->Axis,
AxesStyle->Dashed,
PlotStyle->Thick,
Frame->True
],
{{a,3,"Множител в синуса"},{1,5,2,10,-1,-2,20,3}},
{b,1,10},
{{st,2,"Степен на x"},{1,2,3,4}, ControlType->RadioButton}
]