Plot[Sin[Pi x (3-x)],{x,0,3}]

Plot[Sin[Pi x (3-x)],{x,0,3},Ticks-> {{1,2,3},{-1,1}}]

Plot[Sin[Pi x (3-x)],{x,0,3},Ticks-> {{1,2,3},{-1,1}},AxesLabel->{x,y}]

Plot[Sin[2x^2]/(1+x^2),{x,0,10}]

Plot[Sin[2x^2]/(1+x^2),{x,0,10},PlotRange->All]

Plot[Sin[2x^2]/(1+x^2),{x,0,10},PlotRange->{-1,1}]

Plot[Sqrt[1-x^2],{x,-1,1}]

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

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

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

Show[%,%%]

Show[%9,%10,AspectRatio->Automatic]

Plot[{Sqrt[1-x^2],x^2},{x,-1,1}]

Plot[{x E^(-x/2)Cos[Pi x], x E^(-x/2)Sin[Pi x]},{x,0,12}]

Plot[{x^(1/3),x,x^3},{x,0,2}]

Plot[{x^(1/3),x,x^3},{x,0,2},PlotRange->{0,1.6}]

Plot[{x^(1/3),x,x^3},{x,0,2},PlotRange->{0,1.6},PlotStyle->{{Dashing[{.01}], Hue[0.35]}, {Dashing[{.02}], Hue[0.69]}, {Thickness[.001], Hue[0.01]}}]

f[x_]:=x^3-2x

f[3]

Plot[f[x],{x,-2,2}]

g[x_]=x^3-2x
g[3]
Plot[g[x],{x,-2,2}]

g[4]

h[x_, y_, z_] := x+y+z

h[1,2,3]

f

g

Clear[f,g,h]

f[x_]:=D[(x+1)Cos[x],{x,2}]

f[x]

g[x_]=D[(x+1)Cos[x],x]

g[2]

plotSin[k_]=Plot[Sin[k x],{x,0,2Pi}];

plot1Sin[k_]:=Plot[Sin[k x],{x,0,2Pi}]

plot1Sin[4]

ParametricPlot[{2Cos[t],Sin[t]},{t,0,2Pi}]

RegionPlot[x^2+y^2<1&&x+y<1,{x,-1,1},{y,-1,1}]

RegionPlot[(Sqrt[(((x+1))^2)+ (y^2)])<2,{x,-5,5},{y,-5,5}]

RegionPlot[(Sqrt[(((x-1))^2)+ (y^2)])<1,{x,-5,5},{y,-5,5}]

RegionPlot[(Sqrt[(((x-1))^2)+ (y^2)])(Sqrt[(((x+1))^2)+ (y^2)])<2,{x,-5,5},{y,-5,5}]

Show[%51,%52,%53]