Explore the spiral structures of daisies and sunflowers.
Run the code to draw a spiral. Try angles other than 5 degrees:
Note: to try other angles, change both occurrences of the angle.
Graphics[Point[
Table[Sqrt[t] {Sin[t 5 \[Degree]], Cos[t 5 \[Degree]]}, {t, 400}]]]
Make a spiral with the golden angle. Try numbers of points other than 400:
ga = 360./GoldenRatio^2;
Graphics[Point[
Table[Sqrt[t] {Sin[t ga \[Degree]], Cos[t ga \[Degree]]}, {t,
400}]]]
Make the points larger and red. Try other sizes and colors (like Blue or Orange):
ga = 360./GoldenRatio^2; Graphics[{PointSize[.03], Red,
Point[Table[
Sqrt[t] {Sin[t ga \[Degree]], Cos[t ga \[Degree]]}, {t, 400}]]}]
Explore different angles. Drag the slider to change the angle:
Hint: press (or ) for fine control while dragging the slider; press + (or +) for even finer control.
Add controls for the size and number of points: