4-11.mws

Construct the circles with center at
(cos(t),sin(t)) and and passing through
(2cos(t)/3+cos(2t)/3,2sin(t)/3+sin(2t)/3) with
t ranging over [0,2p]. restart;

> restart;

> x:=cos(t);

x := cos(t)

> y:=sin(t);

y := sin(t)

> x1:=2/3*x+1/3*cos(2*t);

x1 := 2/3*cos(t)+1/3*cos(2*t)

> y1:=2/3*y-1/3*sin(2*t);

y1 := 2/3*sin(t)-1/3*sin(2*t)

> r:=((x-x1)^2+(y-y1)^2)^(1/2);

r := sqrt((1/3*cos(t)-1/3*cos(2*t))^2+(1/3*sin(t)+1...

> m:=[x+r*sin(s),y+r*cos(s),s=-Pi..Pi];

m := [cos(t)+sqrt((1/3*cos(t)-1/3*cos(2*t))^2+(1/3*...
m := [cos(t)+sqrt((1/3*cos(t)-1/3*cos(2*t))^2+(1/3*...

> t:=k*Pi/50;

t := 1/50*k*Pi

> w:=evalf(m):

> plot([w$k=1..100],color=pink,scaling=constrained,axes=none);

[Maple Plot]

>