SetOptions[Plot,PlotStyle->Thick];

Plot[x,{x,-2,2},AspectRatio->1]

Plot[x^3,{x,-2,2},AspectRatio->1]

Plot[CubeRoot[x],{x,-8,8},AspectRatio->1]

Plot[Sqrt[x],{x,0,9},AspectRatio->1]

Plot[{x^3,CubeRoot[x],x},{x,-2,2},AspectRatio->1,PlotStyle->{Blue,Red,Black}]

Plot[Abs[x],{x,-3,3}]

Plot[Abs[x]^2,{x,-3,3}]

Plot[Sin[x],{x,-5Pi,5Pi}]

Plot[3,{x,-5,5}]

Plot[x^2,{x,0,9}]

Plot[Sin[x],{x,-Pi/2,Pi/2}]

Clear[f]
f[x_]:=x^3-x/;Abs[x]≤Sqrt[3]/3
Plot[{x^3-x,f[x]},{x,-1,1 },PlotStyle->{Normal,Thickness[.02]}]

Plot[{x^3+x,4(x-1)+2},{x,0,2},PlotRange->{0,10},AspectRatio->1]

Clear[y]
Solve[y==x^3+x,x]

Plot[{(((((2/3)))^(1/3))/(((-9 y+(Sqrt[3]) (Sqrt[4+27 (y^2)])))^(1/3)))-((((-9 y+(Sqrt[3]) (Sqrt[4+27 (y^2)])))^(1/3))/((2^(1/3)) (3^(2/3)))),(1/4)(y-2)+1},{y,0,10},PlotRange->{0,2},AspectRatio->1]

Plot[2^x,{x,-10,10}]

Plot[(1/2)^x,{x,-10,10}]

Plot[Log[2,x],{x,0,10}]

Plot[Log[1/2,x],{x,0,10}]

Plot[{2^x,Log[2,x],x},{x,-4,6},AspectRatio->1,PlotRange->{-4,6},PlotStyle->{Thick,Thick,Dashed}]

blank

Clear[f]
f[x_]:=Sin[x]/;Abs[x]≤Pi/2
Plot[{Sin[x],f[x]},{x,-2 Pi,2 Pi},PlotStyle->{Normal,Thickness[.02]}]

Plot[ArcSin[x],{x,-1,1}]

Clear[f]
f[x_]:=Cos[x]/;0≤x&&x≤Pi
Plot[{Cos[x],f[x]},{x,-2 Pi,2 Pi},PlotStyle->{Normal,Thickness[.02]}]

Plot[ArcCos[x],{x,-1,1}]

Clear[f]
f[x_]:=Tan[x]/;Abs[x]≤Pi/2
Plot[{Tan[x],f[x]},{x,-2 Pi,2 Pi},PlotStyle->{Normal,Thickness[.02]}]

Plot[ArcTan[x],{x,-10,10}]