7-1 Construct the line segments joining points of the curve with the corresponding center of curvature for each of the following: thenephroid, the astroid, the deltoid and the cardioid.

> restart:

> x:=3*cos(s)-cos(3*s):y:=3*sin(s)-sin(3*s):

> x1:=diff(x,s):y1:=diff(y,s):

> x2:=diff(x1,s):y2:=diff(y1,s):

> s:=n*Pi/50:

> f:=(x1^2+y1^2)/(x1*y2-x2*y1):

> xc:=x-f*y1:yc:=y+f*x1:

> m:=[[x,y],[xc,yc]]:

> w:=evalf(m):

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

>