Sierpinski triangle/Graphical: Difference between revisions

← Older editNewer edit →
Content deleted Content added
Line 1,253: Line 1,253:
1] &, {{{0, 0}, {1/2, 1}, {1, 0}}}, n]
1] &, {{{0, 0}, {1/2, 1}, {1, 0}}}, n]


Show[Graphics[{Opacity[1], Black, Map[Polygon, Sierpinski[8], 1]}, AspectRatio -> 1]]</lang>
Graphics[{Opacity[1], Black, Polygon /@ Sierpinski[8]}]</lang>
Another faster version
Another faster version
<lang Mathematica>cf = Compile[{{A, _Real, 2}},
<lang Mathematica>cf = Compile[{{A, _Real, 2}},
Retrieved from "https://rosettacode.org/wiki/Sierpinski_triangle/Graphical"