Message Boards

WOLFRAM COMMUNITY

541 Views

2 Replies

3 Total Likes

View groups...

Follow this post

Share this post:

GROUPS:

Mathematics Graphics and Visualization Wolfram Language

Complex circle spiral

Ed Pegg

Ed Pegg, Wolfram Research

Posted 2 months ago

POSTED BY: Ed Pegg

Reply
|
Flag

2 Replies

Sort By:

Replies
Likes
Recent

Hans Milton

Posted 2 months 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}} ]

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