|
投稿者：しばっち
投稿日：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
|
|
|