Question 1

Create at least one set of multiplot(static) and animations.

>	plot( [seq(sin(x+n*Pi/7), n=2..5)], x=1..4*Pi, thickness=[1,2,3], color=[green,blue,yellow], linestyle=[1,2,3]);

>	animate(sin(x+n*Pi/7), n=2..5, x=1..4*Pi) ;

>

>

>

>

Question 2

Draw a picture using Maple.

>	restart; with(plots):

Warning, the name changecoords has been redefined

>	s := t->100/(100+(t-Pi/2)^8): r := t -> s(t)*(2-sin(7*t)-cos(30*t)/2): animate([u*r(t)/2,t,t=-Pi/2..3/2*Pi],u=1..2,numpoints=200,coords=polar,axes=none,color=blue);

Question 3

Make two unique animations in 2D and 3D.

        2D

>	animate( [u*t,t,t=1..8*Pi], u=1..4,coords=polar,frames=60, color=magenta, axes=none, numpoints=100,'title'='SIPUT');

     3D

>	with(plots):

>

>

>	animate3d(sin(x)*cos(t*u),x=1..3,t=1..4,u=1/4..7/2,coords=cylindrical, 'title'='KIPASLE');

>

>

>

>

>

>

>