Carotid-Kundalini Fractal

 投稿者：しばっち  投稿日：2015年10月28日(水)22時12分6秒
 
!'Carotid-Kundalini Fractal
SET WINDOW -1,1,-1,1
FOR N=0 TO 10
   PLOT LINES
   FOR X=-1 TO 1 STEP 1/64
      PLOT LINES:X,CK(N,X);
   NEXT X
NEXT N
END

EXTERNAL  FUNCTION CK(N,X) !'Carotid-Kundalini Function
LET CK=COS(N*X*ACOS(X))
END FUNCTION
 		 

戻る