|
|
!'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
|
|