Animations of Some Polar Graphs Using Maple 

 

 

> restart:with(plots):with(plottools):
 

> f1:=sin(5*theta):
 

> graph1:=plot(f1(theta),theta=0..2*Pi,coords=polar,thickness=1,color=gray):
 

> animate(plot, [f1(theta), theta = T-.01 .. T, coords = polar,thickness=10,color=red], T=0.01..2*Pi+0.01,background=graph1,frames=50);
 

Plot_2d
 

> f2:=sin(4*theta):
 

> graph2:=plot(f2(theta),theta=0..2*Pi,coords=polar,thickness=1,color=gray):
 

> animate(plot, [f2(theta), theta = T-.01 .. T, coords = polar,thickness=10,color=red], T=0.01..2*Pi+0.01,background=graph2,frames=50);
 

Plot_2d
 

> f3:=2*cos(7*theta)-sin(5*theta):
 

> graph3:=plot(f3(theta), theta = 0 .. 2*Pi, coords = polar,color=gray):
 

> animate(plot, [f3(theta), theta = T-.01 .. T, coords = polar,thickness=10,color=red], T=0.01..2*Pi+0.01,background=graph3,frames=50);
 

Plot_2d
 

> f4:=2*cos(7*theta)*sin(5*theta):
 

> graph4:=plot(f4(theta), theta = 0 .. 2*Pi, coords = polar,color=gray):
 

> animate(plot, [f4(theta), theta = T-.01 .. T, coords = polar,thickness=10,color=red], T=0.01..2*Pi+0.01,background=graph4,frames=50);
 

Plot_2d
 

> f5:=theta/7*cos(3*theta)+2:
 

> graph5:=plot(f5(theta), theta = 0 .. 8*Pi, coords = polar,color=gray):
 

> animate(plot, [f5(theta), theta = T-.01 .. T, coords = polar,thickness=10,color=red], T=0.01..8*Pi+0.01,background=graph5,frames=50);
 

Plot_2d
 

>