Sierpinski pentagon: Difference between revisions

Content added Content deleted
Line 1,003: Line 1,003:
................................................................................................................................................................................................................................................................</pre>
................................................................................................................................................................................................................................................................</pre>


=={{header|Mathematica}}==
=={{header|Mathematica}}/{{header|Wolfram Language}}==
<lang mathematica>pentaFlake[0] = RegularPolygon[5];
<lang mathematica>pentaFlake[0] = RegularPolygon[5];
pentaFlake[n_] := GeometricTransformation[pentaFlake[n - 1], TranslationTransform /@ CirclePoints[{GoldenRatio^(2 n - 1), Pi/10}, 5]]
pentaFlake[n_] :=
GeometricTransformation[pentaFlake[n - 1],
TranslationTransform /@
CirclePoints[{GoldenRatio^(2 n - 1), Pi/10}, 5]]

Graphics@pentaFlake[4]</lang>
Graphics@pentaFlake[4]</lang>
{{out}}
{{out}}