グモウスキーとミラーの写像投稿者：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 
|