ロジスティック写像の分岐図を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で書いてみた。それがこれ。

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