Construct the graph of cos(x) with x ranging in [-Pi,Pi]

> plot(cos(x),x=-Pi..Pi,numpoints=500,scaling=constrained);

Draw a circle given by the parametric equations x=cos(t), y=sin(t), when t in [0,2*Pi]

> plot([cos(t),sin(t),t=-Pi..Pi],axes=none,scaling=constrained);

>

exercise

> for n to 6 do plot(sin(n*t),t=-Pi..Pi,coords=polar,scaling=constrained)od;

> restart;

Draw the graphs of the first six Chebyshev polynomials in the interval [-1,1].

> plot([[(cos(x),cos(n*x),x=0..Pi)]$n=1..6],scaling=constrained);

> with(orthopoly);

> T(2,x);

> plot([T(2,x),T(3,x)],x=-1..1);

> with(plots);

Warning, the name changecoords has been redefined

Draw this pretty leaf:

> w:=1+cos(t)/2:z:=t/6-sin(2*t)/12:x:=w*sin(z):y:=w*cos(z):

> a1:=plot([x,y,t=0..12*Pi],scaling=constrained,axes=none,color=blue):

> u:=1+cos(t)/2:v:=t/12-sin(2*t)/24:m:=u*cos(v):n:=u*sin(v):

> a2:=plot([m,n,t=0..24*Pi],scaling=constrained,axes=none):

> display(a1,a2);

> restart;

> m:=[x,binomial(100,k)*x^(100-k)*(1-x)^k,x=0..1]:

> plot({m$k=0..100});

> restart;

> r:=exp(t);

> m:=128;

> a1:=plot({[r*cos(t+2*k*Pi/m),r*sin(t+2*k*Pi/m),t=3..5]$k=1..m},scaling=constrained,axes=none):

> a2:=plot({[r*cos(t+2*k*Pi/m),-r*sin(t+2*k*Pi/m),t=3..5]$k=1..m},scaling=constrained,axes=none):

> with(plots);

Warning, the name changecoords has been redefined

> display(a1,a2);

> plot(cos(11*t/2)+1/4,t=0..4*Pi,coords=polar,axes=none,scaling=constrained);

> plot(2-cos(7*t)-cos(31*7*t/32),t=0..64*Pi,coords=polar,numpoints=1000,axes=none,scaling=constrained);

> plot(200+t+100*cos(12.11*t),t=0..200,coords=polar,axes=none,scaling=constrained,numpoints=1000);

> with(plots);

>

Warning, the name changecoords has been redefined

> animate(sin(x+2*t),x=-6..6,t=0..Pi,frames=50);

>