Henon Map

 投稿者:しばっち  投稿日:2015年10月28日(水)22時13分33秒
 
!'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
 

戻る