L2.html

> with(plots);
k:=0.5;
m:=5;
n:=1;
animate(plot,[[1.5*cos(t)-cos(2.01*t),1.5*sin(t)+ sin(2.01*t),t=0..2*s*Pi]],s=0..100, frames=20);

> with(plots);
animate(plot,[[(m+2)*sin(m*t)-m*sin((m+2)*t),(m+2)*cos(m*t)+m*cos((m+2)*t) ,t=0..20*Pi]],m=1..20, frames=20);

> with(plots);
animate(plot,[[4*sin(3*t)-3*sin(4*t+a),4*cost(3*t)+3*cos(4*t+a),t=0..2*Pi]],a=1..2*Pi, frames=20);