![]() |
![]() |
||||||||||||||||||||||||||||||||||||||||||||||||||||||||
![]() |
![]() |
||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||
> 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);
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||