Manipulate[Plot[Sin[n x] Exp[-(x-2)^2],{x,0,4}],{n,0,10}]

Plot[{Sin[x],Cos[x]},{x,0,12}]

h[x_,y_]:=Cos[x^2-y^2]
Plot[h[x,1],{x,0,Pi}]

u[t_]:=t
v[t_]:=2 t
Plot[h[u[t],v[t]],{t,0,3}]

f[z_]:=Cos[z] Log[z]
Plot[Im[f[x+I 2]],{x,-Pi,Pi}]

z[t_]:=Exp[I t]
ParametricPlot[{Re[z[t]],Im[z[t]]},{t,0,2 Pi},AspectRatio->1]

Plot[Im[f[z[t]]],{t,0, 2 Pi}]

s=Table[Sin[n x],{n,3}]
Plot[Evaluate[s],{x,0,Pi}]

b1=Plot[BesselJ[1,z],{z,0,20},PlotStyle->Dashing[{0.02,0.02}],PlotRange->{-0.75,0.75}]

b2=Plot[BesselJ[2,z],{z,0,20}]

Show[b1,b2]

DensityPlot[Cos[x] Sin[y],{x,-2,2},{y,-2,2}]

ContourPlot[Sin[x^2-y^2],{x,-1,1},{y,-1,1}]

Plot3D[Sin[1-x y],{x,-3,3},{y,-1.5,1.5}]

Plot3D[Im[BesselJ[5/2,x+I y]],{x,-14,5},{y,-1.5,1.5},BoxRatios->{3,2,2}, PlotPoints->30,ViewPoint->{1.071,-2.421,2.108}]

ParametricPlot3D[{Cos[t],Sin[t],t/3},{t,0,15}]