4-9.mws

Construct the circles with center at
(cos(t),sin(t)) passing through the point (1,0)
with t ranging over [0,2p].

>

> restart;

> x:=cos(t);

x := cos(t)

> y:=sin(t);

y := sin(t)

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

r := sqrt((cos(t)-1)^2+sin(t)^2)

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

m := [cos(t)+sqrt((cos(t)-1)^2+sin(t)^2)*sin(s), si...
m := [cos(t)+sqrt((cos(t)-1)^2+sin(t)^2)*sin(s), si...

> t:=k*Pi/50;

t := 1/50*k*Pi

> w:=evalf(m);

w := [cos(.6283185308e-1*k)+sqrt((cos(.6283185308e-...
w := [cos(.6283185308e-1*k)+sqrt((cos(.6283185308e-...
w := [cos(.6283185308e-1*k)+sqrt((cos(.6283185308e-...
w := [cos(.6283185308e-1*k)+sqrt((cos(.6283185308e-...

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

[Maple Plot]

>