3-6-11.mws

3-6 Construct this pattern of the "sunflower":

> restart;

> r:=exp(t);

r := exp(t)

> m:=64:

> a:=plot([[r*cos(t+2*Pi*k/m),r*sin(t+2*Pi*k/m),t=3..5]$k=1..m],scaling=constrained,color=red,axes=none):

> b:=plot([[r*cos(t+2*Pi*k/m),-r*sin(t+2*Pi*k/m),t=3..5]$k=1..m],scaling=constrained,color=blue,axes=none):

> with(plots):

Warning, the name changecoords has been redefined

> display(a,b);

[Maple Plot]

3-7 Construct he graph given in polar coordinates by
r = cos( 7t/2 ) +1/4, t = 0..4Pi

> restart;

> plot(cos(7*t/2)+1/4,t=0..4*Pi,coords=polar,axes=none,scaling=constrained);

[Maple Plot]

3-8 Construct this interesting drawing:

> restart;

> plot(2-cos(3*t)-cos(31*3*t/32),t=0..64*Pi,coords=polar,
numpoints=1000,axes=none,scaling=constrained,color=yellow);

[Maple Plot]

3-9 Construct this interesting drawing

> plot(2-cos(7*t)-cos(31*7*t/32),t=0..64*Pi,coords=polar,
numpoints=1000,axes=none,scaling=constrained,color=pink);

[Maple Plot]

3-10 Draw this interesting pattern:

> plot(100+t+15*cos(3.05*t), t = 0 .. 200, coords =
polar, axes = none,scaling=constrained,color=blue);

[Maple Plot]

3-11 Construct a gif file animating the function
f(x,t) = sin (x + t)
and include the gif in your web page

> restart;

> with(plots):

Warning, the name changecoords has been redefined

> animate(sin(x+t),x=-5..5,t=0..2*Pi,frames=50,axes=none);

[Maple Plot]