フィボナッチ列フラクタル（Mathematicaショートフラクタルシリーズ） ref: http://qiita.com/butchi_y/items/fe0fa7d3e7909ec00210

fibonacci_word_fractal.nb

w = Flatten[Nest[{#, #[[1]]} &, {1, 0}, 20]];
ListPlot[{Re[#], Im[#]} & /@ 
  Accumulate[
    Join[
      {0}, 
      I^Accumulate[Join[{1}, w*(-1)^Mod[Range[Length[w]], 2]]]
    ]
  ], 
  Joined -> True,
  AspectRatio -> Automatic
]

fibonacci_word_fractal_short.nb

Graphics[Line[{Re[#],Im[#]}&/@FoldList[Plus,0,I^FoldList[Plus,1,Flatten[Nest[{#,#[[1]]}&,{1,0},20]]*(-1)^Range[28657]]]]]

file1.txt

In[1] := w = Flatten[Nest[{#, #[[1]]} &, {1, 0}, 5]];
Out[1] := {1, 0, 1, 1, 0, 1, 0, 1, 1, 0, 1, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1}

file2.txt

In[2] := Accumulate[Join[{1}, w*(-1)^Mod[Range[Length[w]], 2]]]
Out[2] := {1, 0, 0, -1, 0, 0, 1, 1, 2, 1, 1, 0, 1, 1, 2, 2, 3, 2, 2, 1, 1, 0}

file3.txt

In[3] := I^Accumulate[Join[{1}, w*(-1)^Mod[Range[Length[w]], 2]]]
Out[3] := {I, 1, 1, -I, 1, 1, I, I, -1, I, I, 1, I, I, -1, -1, -I, -1, -1, I, I,
  1}