Sierpinski pentagon: Difference between revisions
m
→{{header|Mathematica}}
(→{{header|Quackery}}: Added image) |
|||
Line 1,003:
................................................................................................................................................................................................................................................................</pre>
=={{header|Mathematica}}/{{header|Wolfram Language}}==
<lang mathematica>pentaFlake[0] = RegularPolygon[5];
pentaFlake[n_] := GeometricTransformation[pentaFlake[n - 1], TranslationTransform /@ CirclePoints[{GoldenRatio^(2 n - 1), Pi/10}, 5]]
Graphics@pentaFlake[4]</lang>
{{out}}
|