Sierpinski pentagon: Difference between revisions
Content added Content deleted
(→{{header|Quackery}}: Added image) |
|||
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}} |