A-M baby

2013-04-10 21:29:02 -07:00 · 2013-04-10 21:29:02 -07:00 · db842d013d
commit db842d013d
parent 764da6cbbb
19005 changed files with 197040 additions and 7 deletions
--- a/Task/Fractal-tree/Mathematica/fractal-tree.mathematica
+++ b/Task/Fractal-tree/Mathematica/fractal-tree.mathematica
@ -0,0 +1,17 @@
+fractalTree[
+  pt : {_, _}, \[Theta]orient_: \[Pi]/2, \[Theta]sep_: \[Pi]/9,
+  depth_Integer: 9] := Module[{pt2},
+  If[depth == 0, Return[]];
+  pt2 = pt + {Cos[\[Theta]orient], Sin[\[Theta]orient]}*depth;
+  DeleteCases[
+   Flatten@{
+     Line[{pt, pt2}],
+     fractalTree[pt2, \[Theta]orient - \[Theta]sep, \[Theta]sep,
+      depth - 1],
+     fractalTree[pt2, \[Theta]orient + \[Theta]sep, \[Theta]sep,
+      depth - 1]
+     },
+   Null
+   ]
+  ]
+Graphics[fractalTree[{0, 0}, \[Pi]/2, \[Pi]/9]]