Message Boards Message Boards

0
|
2030 Views
|
0 Replies
|
0 Total Likes
View groups...
Share
Share this post:

Touching Spirals

Posted 3 years ago

Touching Spirals:

With[{n = 2}, 
 ParametricPlot[{v Sqrt[u] Cos[u], v Sqrt[u] Sin[u]}, {u, 0, 
   n 2 Pi}, {v, Sqrt[(n - 1)/n], 1}, 
  Epilog -> {Red, Point[{Sqrt[ (n - 1) 2 Pi], 0}]}, 
  PlotPoints -> 30 + 10 n, Frame -> False, Axes -> False]]

enter image description here

n=3: enter image description here

POSTED BY: Oliver Seipel
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract