May写像

写像力学系の軌道

初期値 (Subscript[x, 0])を与えてfの反復 (Subscript[x, n+1])=f((Subscript[x, n]))から得られる軌道 
O(f, (Subscript[x, 0]))={ (Subscript[x, 0]),(Subscript[x, 1]), (Subscript[x, 3]),.....}
を研究する

f[x_] := a x (1 - x);

a = 3.8;

orbit=NestList[f, 0.5, 40]

ListPlot[orbit]

ListPlot[orbit, Joined->True]

"

軌道の描画

ListPlot[Table[orbit[[i;;i+1]],{i,1,Length[m]-1}]]

DrawOrbit[initial_Real,param_Real,iteration_Integer]:=Module[{orbit},
f[x_] := param x (1 - x);
orbit=NestList[f, initial, iteration];
ListPlot[Table[orbit[[i;;i+1]],{i,1,Length[orbit]-1}]]
]

DrawOrbit[0.5,3.8,100]