Cannabis Curve

 投稿者:しばっち  投稿日:2015年10月28日(水)22時24分18秒
 
!'Cannabis Curve
SET WINDOW -3,3,-1,5
LET A=1
FOR T=0 TO 360 STEP 1/8
   LET R=A*(1+9/10*COS(RAD(8*T)))*(1+COS(RAD(24*T))/10)*(9/10+COS(RAD(200*T))/10)*(1+SIN(RAD(T)))
   LET X=R*COS(RAD(T))
   LET Y=R*SIN(RAD(T))
   PLOT LINES:X,Y;
NEXT T
END
 

戻る