KOS 1110 Computers in Science

Assignment 5-Maple Art and Maplets

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

Instructions:All the answers shoud be done in MAple work sheet.Use the text mode to type the questions,explainations and any  comments.After you have answered all the questions,export your file as 5emailname.rtf.Open this file in MS Word and save this file as 5emailname.doc file.Publish all the graphs,artwork and animations along with the equations in your home page.Print the view from your website along with the print out the 5emailname.doc file.Send me the printed and the electronic form (solfcopy) of the doc file through the mail.

  1)During your laboratory class,you have created multiplots (one figure containing several plots) 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 text book quality plots.

>

restart:

>	with(plots):

Warning, the name changecoords has been redefined

>	plot(sin(2*theta)+cos(3*theta),theta=0..5*Pi);

>	y:=A*sin(f*theta)+B*cos(f*theta);

>	subs(A=1,f=1,B=9,y);

>	p1:=plot(subs(A=1,f=1,B=9,y), theta=0..5*Pi,colour=red,legend="f=1"):p1;

>	p2:=plot(subs(A=1,f=2,B=9,y), theta=0..5*Pi,colour=blue,legend="f=2"):p2;

>	p3:=plot(subs(A=1,f=3,B=9,y), theta=0..5*Pi,colour=black,legend="f=3"):p3;

>	p4:=plot(subs(A=1,f=4,B=9,y), theta=0..5*Pi,colour=yellow,legend="f=4"):p4;

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

>	animate(subs(A=1,B=9,y),theta=0..5*Pi,f=1..4);

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

>

restart:

>	with(plots):

Warning, the name changecoords has been redefined

>	x:=sin(5*t)*cos(3*t)+cos(t)*sin(5*t); y:=cos(t)*cos(5*t)+sin(3*t)*sin(2*t);

>	plot([x,y,t=-100..100],colour=maroon,axes=none);

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.

 Picture 1:2 D

>

restart:

>	with(plots):

Warning, the name changecoords has been redefined

>	plot([sin(3*x)*sin(5*x),x,x=0..3*Pi],coords=polar,thickness=6,color=magenta,title="flower");

>

 Picture 2: 3D

>

restart:

>	with(plots):

Warning, the name changecoords has been redefined

>	animate3d(sin(x*y)+cos(y*t),x=0..10,y=0..3*Pi,t=-3..3,coords=spherical,title="emmerekkekkei");

>