4-9.mws

4-9 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):

> y:=sin(t):

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

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

> t:=n*2*Pi/100:

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

[Maple Plot]

>