|
|
!'Henon Map
SET POINT STYLE 1
LET MODE=2
SELECT CASE MODE
CASE 0
LET ALPHA=1.4
LET BETA=.3
SET WINDOW -1.3,1.3,-1.3,1.3
CASE 1
LET ALPHA=.2
LET BETA=.9991
SET WINDOW -4,4,-4,4
CASE 2
LET ALPHA=.2
LET BETA=-.9999
SET WINDOW -.2,1.2,-1.2,.2
END SELECT
FOR I=1 TO 100000
LET XX=1-ALPHA*X*X+Y
LET YY=BETA*X
LET X=XX
LET Y=YY
PLOT POINTS:X,Y
NEXT I
END
|
|