![]() |
![]() |
||||||||||||||||||||||||||||||||||||||||||||||||||||||||
![]() |
![]() |
||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||
> restart: > x:=2*cos(s)-cos(2*s):y:=2*sin(s)-sin(2*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); |
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||