Sierpinski triangle/Graphical: Difference between revisions

Content deleted Content added

Inline

@@ Line 367: / Line 367: @@
 <lang Mathematica>sierpinski[v_, 0] := Graphics@Polygon@v;
-sierpinski[v_, n_] :=Show[sierpinski[#, n - 1] & /@ (Mean /@ # & /@  v~Tuples~2~Partition~3)];
+sierpinski[v_, n_] :=sierpinski[#, n - 1] & /@ (Mean /@ # & /@ v~Tuples~2~Partition~3);
-sierpinski[{{0, 0}, {1, 0}, {.5, .8}}, 3]  </lang>
+Show@sierpinski[N@{{0, 0}, {1, 0}, {.5, .8}}, 3]</lang>
 <lang Mathematica>sierpinski = Map[Mean, Partition[Tuples[#, 2], 3], {2}] &;