Message Boards Message Boards

3
|
301 Views
|
2 Replies
|
3 Total Likes
View groups...
Share
Share this post:

Complex circle spiral

Posted 3 days ago

POSTED BY: Ed Pegg
2 Replies

Turns out this is the 1-4 Doyle Spiral. enter image description here

Here's the 1-5 spiral.
enter image description here
The whole series seems to have unusual symmetry polynomials.

POSTED BY: Ed Pegg
Posted 3 days ago

Looks a bit like Ford circles over Farey fractions

fordCircles[n_]:=Map[{{#,1/(2 Denominator[#]^2)},1/(2 Denominator[#]^2)}&,FareySequence[n]]

fordCirclesGraph[n_]:=Graphics[
  Map[Circle@@fordCircles[n][[#]]&,Range@Length@fordCircles[n]],
  PlotRange->{{0,1},{Automatic,0.5}}
]

enter image description here

POSTED BY: Hans Milton
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