エクセルで描く
ロジスティック写像(分岐図)を描く
Xn+1 =
a・Xn(1−Xn) 0<Xn≦1、0<a≦4 , n→∞
(n=10000 Xn初期値 0〜1(乱数)にて描画)
Sub
Logistic() 'ロジスティック写像
For a = 2.9 To 4 Step
0.0001
Xn = Rnd()
'初期値を乱数で実施 0〜1
For n世代 = 0 To 10000
Xn1 = a *
Xn * (1 - Xn)
Xn = Xn1
Next n世代
Cells(6 + cnt, 3) = a
Cells(6 + cnt, 4) = Xn1
cnt = cnt + 1
Next
a
End Sub
※但し、旧エクセルだと取込める散布図のデータ数が非常に低く、アドインなどで拡張する必要がある。