Polyspiral: Difference between revisions
→{{header|Nim}}
m (Updated description and link for Fōrmulæ solution) |
|||
Line 1,350:
end</lang>
[[File:love2dPolyspiral.jpg]]
=={{header|Mathematica}}/{{header|Wolfram Language}}==
<lang Mathematica>linedata = {};
Dynamic[Graphics[Line[linedata], PlotRange -> 1000]]
Do[
linedata = AnglePath[{#, \[Theta]} & /@ Range[5, 300, 3]];
Pause[0.1];
,
{\[Theta], Subdivide[0.1, 1, 100]}
]</lang>
{{out}}
Outputs an animating graphic with a spiral with changing angle.
=={{header|Nim}}==
| |||