グモウスキーとミラーの写像

 投稿者:hayashi  投稿日:2019年 1月 2日(水)14時51分48秒
  カオスフラクタルの本に載っている
gumowski-mira mapです。

REM グモウスキーとミラーの写像
LET LEFT   = -20
LET RIGHT  =  23
LET BOTTOM = -13
LET TOP    =  12
SET WINDOW LEFT, RIGHT, BOTTOM, TOP
SET POINT STYLE 1
SET POINT COLOR 3 ! 緑
SET AREA COLOR 1 ! 黒
PLOT AREA : LEFT,BOTTOM;RIGHT,BOTTOM;RIGHT,TOP;LEFT,TOP
LET N = 300000
LET X = 0.1
LET Y = 0
LET A = 0.008
LET B = 0.05
LET MU = -0.8
DEF G(X) = MU * X + 2*(1 - MU)*X^2/(1 + X^2)
FOR I = 1 TO N
   DRAW GM(X,Y)
NEXT I

PICTURE GM(X,Y)
   LET PX = X
   LET X = Y + A*(1-B*Y^2)*Y + G(PX)
   LET Y = -PX + G(X)
   PLOT POINTS : X,Y
END PICTURE
END
 

戻る