Anonymous user
Sierpinski triangle/Graphical: Difference between revisions
→{{header|Mathematica}}
(+ D entry) |
|||
Line 365:
Show[Graphics[{Opacity[1], Black, Map[Polygon, Sierpinski[8], 1]}, AspectRatio -> 1]]</lang>
<lang Mathematica>
sierpinski[v_, 0] := Graphics@Polygon@v;
sierpinski[v_, n_] :=Show[sierpinski[#, n - 1] & /@ (Mean /@ # & /@ v~Tuples~2~Partition~3)];
sierpinski[{{0, 0}, {1, 0}, {.5, .8}}, 3]
</lang>
<lang Mathematica>
sierpinski = Map[Mean, Partition[Tuples[#, 2], 3], {2}] &;
p = Nest[Join @@ sierpinski /@ # &, {{{0, 0}, {1, 0}, {.5, .8}}}, 3];
Graphics[Polygon@p]
</lang>
[[File:MmaSierpinski.png]]
| |||