« Heroesシーズン1の最終回はドラゴンクエスト/ダイの大冒険っぽい。 | トップページ | 「タイタンの妖女」を読んだ。 »

2008年12月21日 (日)

ロジスティック写像の分岐図をExcelで(再)

前にExcelのセル入力だけでロジスティック写像の分岐図を描いたけど、あまりきれいじゃなかった。wikipediaの図がやたらきれいなんで、

http://ja.wikipedia.org/wiki/%E3%82%AB%E3%82%AA%E3%82%B9%E7%90%86%E8%AB%96

もう少しなんとかならんかと、ExcelのVBAで

Option Explicit

Private Sub CommandButton1_Click()
    Dim i As Long, j As Long
    Dim a As Double, x As Double
   
    Application.ScreenUpdating = False
   
    Open "logistics.dat" For Output As #1
   
    For i = 0 To 10000
        a = (CDbl(i) / 10000#) * 4#
        x = 0.1
        For j = 0 To 800
            x = a * x * (1# - x)
            If j >= 500 Then
                Print #1, a, x
            End If
        Next j
    Next i
    Close #1
   
    Application.ScreenUpdating = True
End Sub

のようにして、Gnuplotで書いてみた。それがこれ。

Logisticgnuplot

だめだー、まだ全然きれいじゃない。もしかして密度に応じて色の濃度を変えているのかな。めんどくさーい。

« Heroesシーズン1の最終回はドラゴンクエスト/ダイの大冒険っぽい。 | トップページ | 「タイタンの妖女」を読んだ。 »

学問・資格」カテゴリの記事

コメント

コメントを書く

(ウェブ上には掲載しません)

トラックバック

この記事のトラックバックURL:
http://app.cocolog-nifty.com/t/trackback/512682/43360864

この記事へのトラックバック一覧です: ロジスティック写像の分岐図をExcelで(再):

« Heroesシーズン1の最終回はドラゴンクエスト/ダイの大冒険っぽい。 | トップページ | 「タイタンの妖女」を読んだ。 »

最近のコメント

2018年11月
        1 2 3
4 5 6 7 8 9 10
11 12 13 14 15 16 17
18 19 20 21 22 23 24
25 26 27 28 29 30  
フォト
無料ブログはココログ