Mira Fractal

 投稿者:しばっち  投稿日:2015年10月28日(水)22時14分0秒
 
!'Mira Fractal
PUBLIC NUMERIC A
SET WINDOW -30,30,-30,30
SET POINT STYLE 1
RESTORE 2
READ A,B,X,Y
1 DATA .2,1,12,0
2 DATA .31,1,12,0
3 DATA .4,1,12,0
4 DATA .7,.9998,9,0
5 DATA .7,.9998,12.1,0
6 DATA .7,.9998,15,0
  FOR I=1 TO 50000
     LET XX=B*Y+F(X)
     LET YY=-X+F(XX)
     LET X=XX
     LET Y=YY
     PLOT POINTS:X,Y
  NEXT I
END

EXTERNAL  FUNCTION F(X)
  LET F=A*X+2*(1-A)*X*X/(1+X*X)
END FUNCTION
 

戻る