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