4-6.mws

> restart;

> x:=cos(t);

x := cos(t)

> y:=sin(t);

y := sin(t)

> m:=[[x,y],[4*x^3-3*x,3*y-4*y^3]];

m := [[cos(t), sin(t)], [4*cos(t)^3-3*cos(t), 3*sin...

> t:=2*k*Pi/250;

t := 1/125*k*Pi

> plot([m$k=1..250],color=red,scaling=constrained,axes=none);

[Maple Plot]

>