|
|
! フラクタルポップコーン
! 「コンピューターレクリエーション Ⅳ 遊びの展開」
! 日経サイエンス より
SET WINDOW -8,8,-8,8
SET POINT STYLE 1
LET h=0.05
RANDOMIZE
LET c = INT(MOD(RND*9999,225))+1
FOR j=1 TO 50 ! x方向
FOR k=1 TO 50 ! y方向
LET x=-6+0.24*j
LET y=-6+0.24*k
FOR n=1 TO 50
LET xx=x-h*sin(y+TAN(3*y))
LET yy=y-h*sin(x+TAN(3*x))
PLOT POINTS :xx,yy
IF MOD(I,10000)=0 THEN
LET c=c+1
LET i=0
IF c>225 THEN
LET c=c-225
END if
SET POINT COLOR c
END IF
LET i=i+1
LET x=xx
LET y=yy
NEXT n
NEXT k
NEXT j
END
|
|