Nehmath Nisha bt Mohd.Abusalih       BSBT

0332914                                         Section 1     

      KOS 1110 Computer in Science

     Assignment 5-Maple Art and Maplets

       Due date Monday,20/9/2004,5pm

1.During your Laboratory class, you have created multiplots and animations using these multiplots. Using your own function, create at least one set of multiplot(static) and animation. Use as many options as possible to make your plot look like textbook quality plots.

>	with(plots):

>	y:=A*sec(f*theta);

>	subs(A=2,f=1,y);

>	p1:=plot(subs(A=2,f=1,y), theta=0..2*Pi,color=yellow,legend="f=1"):p1:

>	p2:=plot(subs(A=2,f=2,y), theta=0..2*Pi,color=red,legend="f=2"):p2:

>	p3:=plot(subs(A=2,f=3,y), theta=0..2*Pi,color=green,legend="f=3"):p3:

>	p4:=plot(subs(A=2,f=.5,y), theta=0..2*Pi,colour=blue,legend="f=.5"):p4:

>	display({p1,p2,p3,p4});

>	animate(subs(A=2,y),theta=0..2*Pi,f=0.5..3);

>

2. Your artistic skills:  Draw a unique picture using Maple.  

>	with(plots):

>	polarplot({t,cos(t),sin(t),t=2..6*Pi},t=2..6,numpoints=50,colour=blue,style=point,symbol=DIAMOND,title="Beauty of the diamonds");

>

3. Make two unique animations in 2D and 3D.
Give names to these pictures. Publish these pictures and the animations in your home page along with the details, such as the equations that are used to create the animations.

2D Animation

>	with(plots):

>	animate([sin(x*t),x,x=-4..4],t=1..4,numpoints=100,frames=100,title="wavy wavy");

>

3D Animation

>	with(plots):

>	animate3d(sin(x)*cos(t*u),x=1..3,t=1..4,u=1/4..7/2,coords=cylindrical,style=wireframe,title="flying mat");

>