Construct the line segments joining points of the curve with the corresponding center of curvature for each of the deltoid .

> restart;

> x:=2*cos(t)+cos(2*t):

> y:=2*sin(t)-sin(2*t):

> x1:=diff(x,t):

> y1:=diff(y,t):

> x2:=diff(x1,t):

> y2:=diff(y1,t):

> r:=(x1^2+y1^2)^(3/2)/abs(x1*y2-y1*x2):

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

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

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

> t:=k*Pi/50+0.0001:

> plot([m$k=0..100],color=green,scaling=constrained,axes=none);

maple