Plot[Exp[-1/x^2], {x,-4, 4}]

Show[%63,ImageSize->Large]

ParametricPlot[{t^2, t^3}, {t,-2, 4}]

Show[%65,ImageSize->Medium]

Show[%66,ImageSize->Small]

ParametricPlot[{t^2, t^3}, {t,-2, 4}, PlotRange -> {{-4,4}, {-4, 4}}]

Manipulate[ParametricPlot[{t^2, t^3}, {t,-2, k}, PlotRange -> {{-4,4}, {-4, 4}}], {k, -1.9, 4}]

Manipulate[ParametricPlot[{Cos[t], Sin[b*t]}, {t, 0, 4Pi}], {b, 0.1, 4}]

ellisse[x0_,y0_][a_,b_][t_] := {x0+a*Cos[t], y0+b*Sin[t]}

ParametricPlot[ellisse[1,3][2,5][t], {t,0,2Pi}]

ParametricPlot[ellisse[1,3][2,2][t], {t,0,2Pi}, (*sjkskghsd*)
PlotRange->{{-6, 6}, {-6, 6}}] (*sjkskghsd*)

cicloide[a_][h_][t_]:={a*t-h*Sin[t], a-h*Cos[t]}

ParametricPlot[cicloide[1][1][t], {t, 0, 4Pi}]

Manipulate[ParametricPlot[cicloide[1][1][t], {t,0, k}, PlotRange->{{0,6Pi}, {0,2}}, Epilog->{Circle[{k,1},1],Point[cicloide[1][1][k]], Line[{{k,1},cicloide[1][1][k]}]}], {k, 0.0001, 6Pi}]

epicicloide[a_,b_][t_]:={(a+b)*Cos[t]-b*Cos[(a+b)/b *t], (a+b)*Sin[t]-b*Sin[(a+b)/b *t]}

ParametricPlot[epicicloide[2,3][t], {t,0,6Pi}, PlotRange -> {{-9, 9}, {-9, 9}}]

Manipulate[ParametricPlot[epicicloide[2,3][t],{t,0,k}, PlotRange -> {{-9, 9}, {-9, 9}}, Epilog -> {Circle[{0,0}, 2], Circle[{5*Cos[k],5*Sin[k]},3], Point[epicicloide[2,3][k]], Line[{{5*Cos[k],5*Sin[k]}, epicicloide[2,3][k]}]}], {k, 0.0001, 8Pi}]

ParametricPlot[epicicloide[2,Pi][t], {t,0,20Pi}, PlotRange -> {{-9, 9}, {-9, 9}}]

ParametricPlot[epicicloide[2,Sqrt[2]][t], {t,0,20Pi}, PlotRange -> {{-9, 9}, {-9, 9}}]