





















restart:
x:=cos(2*t)+2*cos(t): y:=sin(2*t)+2*sin(t): x1:=diff(x,t): y1:=diff(y,t): x2:=diff(x1,t): y2:=diff(y1,t): r:=(x12+y12)/abs(x1*y2y1*x2): xx:=xr*y1:

To avoid the problem of ``Dividing by Zero'', replace the line


This is the drawing of the line segments connecting points of the the curve

This is the drawing of the line segments connecting points of the the curve

This is the drawing of the line segments connecting points of the the curve

This is the drawing of the line segments connecting points of the the curve

restart;
with(plots): x:=5*cos(t); y:=3*sin(t); x1:=diff(x,t); y1:=diff(y,t); x2:=diff(x1,t); y2:=diff(y1,t); rr:=(x12+y12)(3/2)/abs(x1*y2y1*x2); r:=(x12+y12)/abs(x1*y2y1*x2); xx:=xr*y1; yy:=y+r*x1; animate({ 5*cos(s),3*sin(s),s=0..2*Pi, xx+rr*cos(s), yy+rr*sin(s),s=0..2*Pi },t=0..2*Pi,color=black,axes=none); 