Advertisement
Guest User

Untitled

a guest
Jun 26th, 2024
41
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.40 KB | None | 0 0
  1. Show[Show[Table[PolarPlot[
  2. GoldenRatio^
  3. (-2*(t + 2*Pi*(n/5))),
  4. {t, -10, 10}, PlotRange ->
  5. {{-10, 10}, {-10, 10}},
  6. PlotStyle -> Green],
  7. {n, 1, 5}], Axes -> False],
  8. Show[Table[PolarPlot[
  9. GoldenRatio^
  10. (2*(t + 2*Pi*(n/5))),
  11. {t, -10, 10}, PlotRange ->
  12. {{-10, 10}, {-10, 10}},
  13. PlotStyle -> Green],
  14. {n, 1, 5}], Axes -> False]]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement