Skip to content

Instantly share code, notes, and snippets.

@butchi

butchi/file0.txt

Last active December 23, 2015 13:11
Show Gist options
  • Save butchi/bf211c561fa90acb785f to your computer and use it in GitHub Desktop.
Save butchi/bf211c561fa90acb785f to your computer and use it in GitHub Desktop.
Download ZIP
ツインドラゴン（Mathematicaショートフラクタルシリーズ） ref: http://qiita.com/butchi_y/items/6a32ee40c9674d8cb8c6
Raw
file0.txt
Graphics[Point[
Transpose[{Re[#], Im[#]} &[
Table[FromDigits[IntegerDigits[k, 2], 1 + I], {k, 0, 1023}]
]]
]]
Raw
file1.txt
Graphics[Point[
Transpose[{Re[#], Im[#]} &[
Nest[Join[#, # + 1 - Im[Last[#]] + Re[Last[#]] I] &, {0}, 10]
]]
]]
Raw
file2.txt
Graphics[Point[Transpose[{Re[#],Im[#]}&[Nest[Join[#,#+1-Im[Last[#]]+Re[Last[#]] I]&,{0},10]]]]]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment