Construct this pattern of the "sunflower":

> 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,axes=none,color=blue):

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

> with(plots):

Warning, the name changecoords has been redefined

> display(a,b);

>