Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Manipulate[
- Graphics[{Table[
- Line[{{Cos[r 3 \[Degree]],
- Sin[r 3 \[Degree]]}, {Cos[2 r 3 \[Degree]],
- Sin[2 r 3 \[Degree]]}}], {r, 0, n}]},
- PlotRange -> {{-1, 1}, {-1, 1}}, ImageSize -> {500, 500}], {n, 1,
- 380}]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement