How can I plot a Farey diagram?How to make this beautiful animationPlotting an epicycloidGenerating a topological space diagram for an n-element setMathematica code for Bifurcation DiagramHow to draw a contour diagram in Mathematica?How to draw timing diagram from a list of values?Expressing a series formulaBifurcation diagram for Piecewise functionHow to draw a clock-diagram?How can I plot a space time diagram in mathematica?Plotting classical polymer modelA problem in bifurcation diagram

How to make payment on the internet without leaving a money trail?

Why did the Germans forbid the possession of pet pigeons in Rostov-on-Don in 1941?

I’m planning on buying a laser printer but concerned about the life cycle of toner in the machine

Is there a way to make member function NOT callable from constructor?

New order #4: World

LWC and complex parameters

Does bootstrapped regression allow for inference?

Extreme, but not acceptable situation and I can't start the work tomorrow morning

Is ipsum/ipsa/ipse a third person pronoun, or can it serve other functions?

Could a US political party gain complete control over the government by removing checks & balances?

What is GPS' 19 year rollover and does it present a cybersecurity issue?

Can a planet have a different gravitational pull depending on its location in orbit around its sun?

Symmetry in quantum mechanics

Pristine Bit Checking

Ideas for 3rd eye abilities

Is Social Media Science Fiction?

What is it called when one voice type sings a 'solo'?

Is there a familial term for apples and pears?

Landlord wants to switch my lease to a "Land contract" to "get back at the city"

Lied on resume at previous job

extract characters between two commas?

When blogging recipes, how can I support both readers who want the narrative/journey and ones who want the printer-friendly recipe?

Can I find out the caloric content of bread by dehydrating it?

Denied boarding due to overcrowding, Sparpreis ticket. What are my rights?



How can I plot a Farey diagram?


How to make this beautiful animationPlotting an epicycloidGenerating a topological space diagram for an n-element setMathematica code for Bifurcation DiagramHow to draw a contour diagram in Mathematica?How to draw timing diagram from a list of values?Expressing a series formulaBifurcation diagram for Piecewise functionHow to draw a clock-diagram?How can I plot a space time diagram in mathematica?Plotting classical polymer modelA problem in bifurcation diagram













1












$begingroup$


How can I plot the following diagram for a Farey series?



enter image description here










share|improve this question









New contributor




Gustavo Rubiano is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.







$endgroup$











  • $begingroup$
    From the beautiful book A. Hatcher Topology of numbers
    $endgroup$
    – Gustavo Rubiano
    8 hours ago










  • $begingroup$
    Could you perhaps expand a bit on how the curves are calculated etc?
    $endgroup$
    – MarcoB
    7 hours ago










  • $begingroup$
    pi.math.cornell.edu/~hatcher/TN/TNch1.pdf
    $endgroup$
    – Moo
    6 hours ago















1












$begingroup$


How can I plot the following diagram for a Farey series?



enter image description here










share|improve this question









New contributor




Gustavo Rubiano is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.







$endgroup$











  • $begingroup$
    From the beautiful book A. Hatcher Topology of numbers
    $endgroup$
    – Gustavo Rubiano
    8 hours ago










  • $begingroup$
    Could you perhaps expand a bit on how the curves are calculated etc?
    $endgroup$
    – MarcoB
    7 hours ago










  • $begingroup$
    pi.math.cornell.edu/~hatcher/TN/TNch1.pdf
    $endgroup$
    – Moo
    6 hours ago













1












1








1


1



$begingroup$


How can I plot the following diagram for a Farey series?



enter image description here










share|improve this question









New contributor




Gustavo Rubiano is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.







$endgroup$




How can I plot the following diagram for a Farey series?



enter image description here







graphics number-theory






share|improve this question









New contributor




Gustavo Rubiano is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.











share|improve this question









New contributor




Gustavo Rubiano is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.









share|improve this question




share|improve this question








edited 2 hours ago









Michael E2

150k12203482




150k12203482






New contributor




Gustavo Rubiano is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.









asked 8 hours ago









Gustavo RubianoGustavo Rubiano

93




93




New contributor




Gustavo Rubiano is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.





New contributor





Gustavo Rubiano is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.






Gustavo Rubiano is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.











  • $begingroup$
    From the beautiful book A. Hatcher Topology of numbers
    $endgroup$
    – Gustavo Rubiano
    8 hours ago










  • $begingroup$
    Could you perhaps expand a bit on how the curves are calculated etc?
    $endgroup$
    – MarcoB
    7 hours ago










  • $begingroup$
    pi.math.cornell.edu/~hatcher/TN/TNch1.pdf
    $endgroup$
    – Moo
    6 hours ago
















  • $begingroup$
    From the beautiful book A. Hatcher Topology of numbers
    $endgroup$
    – Gustavo Rubiano
    8 hours ago










  • $begingroup$
    Could you perhaps expand a bit on how the curves are calculated etc?
    $endgroup$
    – MarcoB
    7 hours ago










  • $begingroup$
    pi.math.cornell.edu/~hatcher/TN/TNch1.pdf
    $endgroup$
    – Moo
    6 hours ago















$begingroup$
From the beautiful book A. Hatcher Topology of numbers
$endgroup$
– Gustavo Rubiano
8 hours ago




$begingroup$
From the beautiful book A. Hatcher Topology of numbers
$endgroup$
– Gustavo Rubiano
8 hours ago












$begingroup$
Could you perhaps expand a bit on how the curves are calculated etc?
$endgroup$
– MarcoB
7 hours ago




$begingroup$
Could you perhaps expand a bit on how the curves are calculated etc?
$endgroup$
– MarcoB
7 hours ago












$begingroup$
pi.math.cornell.edu/~hatcher/TN/TNch1.pdf
$endgroup$
– Moo
6 hours ago




$begingroup$
pi.math.cornell.edu/~hatcher/TN/TNch1.pdf
$endgroup$
– Moo
6 hours ago










2 Answers
2






active

oldest

votes


















5












$begingroup$

The curvilinear triangles which are characteristic for this type of plot are called hypocyloid curves. We can use the parametric equations on Wikipedia to plot these, like so:



x[a_, b_, t_] := (b - a) Cos[t] + a Cos[(b - a)/a t]
y[a_, b_, t_] := (b - a) Sin[t] - a Sin[(b - a)/a t]
hypocycloid[n_] := ParametricPlot[
x[1/n, 1, t], y[1/n, 1, t],
t, 0, 2 Pi,
PlotStyle -> Thickness[0.002], Black
]

Show[
Graphics[Circle[0, 0, 1]],
hypocycloid[2],
hypocycloid[4],
hypocycloid[8],
hypocycloid[16],
hypocycloid[32],
hypocycloid[64],
ImageSize -> 500
]


Mathematica graphics



I've previously written about an application of hypocycloids here, and I showed how to visualize epicycloids here.



How to generate the labels is described here (also linked to by moo in a comment). I will simply provide the code.



mediant[a_, b_, c_, d_] := a + c, b + d
recursive[v1_, v2_, depth_] := If[
depth > 2,
mediant[v1, v2],
recursive[v1, mediant[v1, v2], depth + 1],
mediant[v1, v2],
recursive[mediant[v1, v2], v2, depth + 1]
]

computeLabels[v1_, v2_] := Module[numbers,
numbers =
Cases[recursive[v1, v2, 0], _Integer, _Integer, Infinity];
StringTemplate["``/``"] @@@ numbers
]
computeLabelsNegative[v1_, v2_] := Module[numbers,
numbers =
Cases[recursive[v1, v2, 0], _Integer, _Integer, Infinity];
StringTemplate["-`2`/`1`"] @@@ numbers
]

labels = Reverse@Join[
"1/0",
computeLabels[1, 0, 1, 1],
"1/1",
computeLabels[1, 1, 0, 1],
"0/1",
computeLabelsNegative[1, 0, 1, 1],
"-1,1",
computeLabelsNegative[1, 1, 0, 1]
];

coords = CirclePoints[1.1, 186 Degree, 64];

Show[
Graphics[Circle[0, 0, 1]],
hypocycloid[2],
hypocycloid[4],
hypocycloid[8],
hypocycloid[16],
hypocycloid[32],
hypocycloid[64],
Graphics@MapThread[Text, labels, coords],
ImageSize -> 500
]


Mathematica graphics






share|improve this answer











$endgroup$




















    1












    $begingroup$

    I looked up the Farey sequence on Wikipedia, out of curiosity, because I had not heard of it before. The Farey sequence of order $n$ is "the sequence of completely reduced fractions between 0 and 1 which, when in lowest terms, have denominators less than or equal to $n$, arranged in order of increasing size".



    On that basis, you can generate the sequence as follows, for instance:



    ClearAll[farey]
    farey[n_Integer] := (Divide @@@ Subsets[Range[n], 2]) ~ Join ~ 0, 1 //DeleteDuplicates //Sort


    So for instance:



    farey[5]



    0, 1/5, 1/4, 1/3, 2/5, 1/2, 3/5, 2/3, 3/4, 4/5, 1




    I am not sure how these sequences are connected with the figure you showed though.






    share|improve this answer









    $endgroup$













      Your Answer





      StackExchange.ifUsing("editor", function ()
      return StackExchange.using("mathjaxEditing", function ()
      StackExchange.MarkdownEditor.creationCallbacks.add(function (editor, postfix)
      StackExchange.mathjaxEditing.prepareWmdForMathJax(editor, postfix, [["$", "$"], ["\\(","\\)"]]);
      );
      );
      , "mathjax-editing");

      StackExchange.ready(function()
      var channelOptions =
      tags: "".split(" "),
      id: "387"
      ;
      initTagRenderer("".split(" "), "".split(" "), channelOptions);

      StackExchange.using("externalEditor", function()
      // Have to fire editor after snippets, if snippets enabled
      if (StackExchange.settings.snippets.snippetsEnabled)
      StackExchange.using("snippets", function()
      createEditor();
      );

      else
      createEditor();

      );

      function createEditor()
      StackExchange.prepareEditor(
      heartbeatType: 'answer',
      autoActivateHeartbeat: false,
      convertImagesToLinks: false,
      noModals: true,
      showLowRepImageUploadWarning: true,
      reputationToPostImages: null,
      bindNavPrevention: true,
      postfix: "",
      imageUploader:
      brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
      contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
      allowUrls: true
      ,
      onDemand: true,
      discardSelector: ".discard-answer"
      ,immediatelyShowMarkdownHelp:true
      );



      );






      Gustavo Rubiano is a new contributor. Be nice, and check out our Code of Conduct.









      draft saved

      draft discarded


















      StackExchange.ready(
      function ()
      StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f194838%2fhow-can-i-plot-a-farey-diagram%23new-answer', 'question_page');

      );

      Post as a guest















      Required, but never shown

























      2 Answers
      2






      active

      oldest

      votes








      2 Answers
      2






      active

      oldest

      votes









      active

      oldest

      votes






      active

      oldest

      votes









      5












      $begingroup$

      The curvilinear triangles which are characteristic for this type of plot are called hypocyloid curves. We can use the parametric equations on Wikipedia to plot these, like so:



      x[a_, b_, t_] := (b - a) Cos[t] + a Cos[(b - a)/a t]
      y[a_, b_, t_] := (b - a) Sin[t] - a Sin[(b - a)/a t]
      hypocycloid[n_] := ParametricPlot[
      x[1/n, 1, t], y[1/n, 1, t],
      t, 0, 2 Pi,
      PlotStyle -> Thickness[0.002], Black
      ]

      Show[
      Graphics[Circle[0, 0, 1]],
      hypocycloid[2],
      hypocycloid[4],
      hypocycloid[8],
      hypocycloid[16],
      hypocycloid[32],
      hypocycloid[64],
      ImageSize -> 500
      ]


      Mathematica graphics



      I've previously written about an application of hypocycloids here, and I showed how to visualize epicycloids here.



      How to generate the labels is described here (also linked to by moo in a comment). I will simply provide the code.



      mediant[a_, b_, c_, d_] := a + c, b + d
      recursive[v1_, v2_, depth_] := If[
      depth > 2,
      mediant[v1, v2],
      recursive[v1, mediant[v1, v2], depth + 1],
      mediant[v1, v2],
      recursive[mediant[v1, v2], v2, depth + 1]
      ]

      computeLabels[v1_, v2_] := Module[numbers,
      numbers =
      Cases[recursive[v1, v2, 0], _Integer, _Integer, Infinity];
      StringTemplate["``/``"] @@@ numbers
      ]
      computeLabelsNegative[v1_, v2_] := Module[numbers,
      numbers =
      Cases[recursive[v1, v2, 0], _Integer, _Integer, Infinity];
      StringTemplate["-`2`/`1`"] @@@ numbers
      ]

      labels = Reverse@Join[
      "1/0",
      computeLabels[1, 0, 1, 1],
      "1/1",
      computeLabels[1, 1, 0, 1],
      "0/1",
      computeLabelsNegative[1, 0, 1, 1],
      "-1,1",
      computeLabelsNegative[1, 1, 0, 1]
      ];

      coords = CirclePoints[1.1, 186 Degree, 64];

      Show[
      Graphics[Circle[0, 0, 1]],
      hypocycloid[2],
      hypocycloid[4],
      hypocycloid[8],
      hypocycloid[16],
      hypocycloid[32],
      hypocycloid[64],
      Graphics@MapThread[Text, labels, coords],
      ImageSize -> 500
      ]


      Mathematica graphics






      share|improve this answer











      $endgroup$

















        5












        $begingroup$

        The curvilinear triangles which are characteristic for this type of plot are called hypocyloid curves. We can use the parametric equations on Wikipedia to plot these, like so:



        x[a_, b_, t_] := (b - a) Cos[t] + a Cos[(b - a)/a t]
        y[a_, b_, t_] := (b - a) Sin[t] - a Sin[(b - a)/a t]
        hypocycloid[n_] := ParametricPlot[
        x[1/n, 1, t], y[1/n, 1, t],
        t, 0, 2 Pi,
        PlotStyle -> Thickness[0.002], Black
        ]

        Show[
        Graphics[Circle[0, 0, 1]],
        hypocycloid[2],
        hypocycloid[4],
        hypocycloid[8],
        hypocycloid[16],
        hypocycloid[32],
        hypocycloid[64],
        ImageSize -> 500
        ]


        Mathematica graphics



        I've previously written about an application of hypocycloids here, and I showed how to visualize epicycloids here.



        How to generate the labels is described here (also linked to by moo in a comment). I will simply provide the code.



        mediant[a_, b_, c_, d_] := a + c, b + d
        recursive[v1_, v2_, depth_] := If[
        depth > 2,
        mediant[v1, v2],
        recursive[v1, mediant[v1, v2], depth + 1],
        mediant[v1, v2],
        recursive[mediant[v1, v2], v2, depth + 1]
        ]

        computeLabels[v1_, v2_] := Module[numbers,
        numbers =
        Cases[recursive[v1, v2, 0], _Integer, _Integer, Infinity];
        StringTemplate["``/``"] @@@ numbers
        ]
        computeLabelsNegative[v1_, v2_] := Module[numbers,
        numbers =
        Cases[recursive[v1, v2, 0], _Integer, _Integer, Infinity];
        StringTemplate["-`2`/`1`"] @@@ numbers
        ]

        labels = Reverse@Join[
        "1/0",
        computeLabels[1, 0, 1, 1],
        "1/1",
        computeLabels[1, 1, 0, 1],
        "0/1",
        computeLabelsNegative[1, 0, 1, 1],
        "-1,1",
        computeLabelsNegative[1, 1, 0, 1]
        ];

        coords = CirclePoints[1.1, 186 Degree, 64];

        Show[
        Graphics[Circle[0, 0, 1]],
        hypocycloid[2],
        hypocycloid[4],
        hypocycloid[8],
        hypocycloid[16],
        hypocycloid[32],
        hypocycloid[64],
        Graphics@MapThread[Text, labels, coords],
        ImageSize -> 500
        ]


        Mathematica graphics






        share|improve this answer











        $endgroup$















          5












          5








          5





          $begingroup$

          The curvilinear triangles which are characteristic for this type of plot are called hypocyloid curves. We can use the parametric equations on Wikipedia to plot these, like so:



          x[a_, b_, t_] := (b - a) Cos[t] + a Cos[(b - a)/a t]
          y[a_, b_, t_] := (b - a) Sin[t] - a Sin[(b - a)/a t]
          hypocycloid[n_] := ParametricPlot[
          x[1/n, 1, t], y[1/n, 1, t],
          t, 0, 2 Pi,
          PlotStyle -> Thickness[0.002], Black
          ]

          Show[
          Graphics[Circle[0, 0, 1]],
          hypocycloid[2],
          hypocycloid[4],
          hypocycloid[8],
          hypocycloid[16],
          hypocycloid[32],
          hypocycloid[64],
          ImageSize -> 500
          ]


          Mathematica graphics



          I've previously written about an application of hypocycloids here, and I showed how to visualize epicycloids here.



          How to generate the labels is described here (also linked to by moo in a comment). I will simply provide the code.



          mediant[a_, b_, c_, d_] := a + c, b + d
          recursive[v1_, v2_, depth_] := If[
          depth > 2,
          mediant[v1, v2],
          recursive[v1, mediant[v1, v2], depth + 1],
          mediant[v1, v2],
          recursive[mediant[v1, v2], v2, depth + 1]
          ]

          computeLabels[v1_, v2_] := Module[numbers,
          numbers =
          Cases[recursive[v1, v2, 0], _Integer, _Integer, Infinity];
          StringTemplate["``/``"] @@@ numbers
          ]
          computeLabelsNegative[v1_, v2_] := Module[numbers,
          numbers =
          Cases[recursive[v1, v2, 0], _Integer, _Integer, Infinity];
          StringTemplate["-`2`/`1`"] @@@ numbers
          ]

          labels = Reverse@Join[
          "1/0",
          computeLabels[1, 0, 1, 1],
          "1/1",
          computeLabels[1, 1, 0, 1],
          "0/1",
          computeLabelsNegative[1, 0, 1, 1],
          "-1,1",
          computeLabelsNegative[1, 1, 0, 1]
          ];

          coords = CirclePoints[1.1, 186 Degree, 64];

          Show[
          Graphics[Circle[0, 0, 1]],
          hypocycloid[2],
          hypocycloid[4],
          hypocycloid[8],
          hypocycloid[16],
          hypocycloid[32],
          hypocycloid[64],
          Graphics@MapThread[Text, labels, coords],
          ImageSize -> 500
          ]


          Mathematica graphics






          share|improve this answer











          $endgroup$



          The curvilinear triangles which are characteristic for this type of plot are called hypocyloid curves. We can use the parametric equations on Wikipedia to plot these, like so:



          x[a_, b_, t_] := (b - a) Cos[t] + a Cos[(b - a)/a t]
          y[a_, b_, t_] := (b - a) Sin[t] - a Sin[(b - a)/a t]
          hypocycloid[n_] := ParametricPlot[
          x[1/n, 1, t], y[1/n, 1, t],
          t, 0, 2 Pi,
          PlotStyle -> Thickness[0.002], Black
          ]

          Show[
          Graphics[Circle[0, 0, 1]],
          hypocycloid[2],
          hypocycloid[4],
          hypocycloid[8],
          hypocycloid[16],
          hypocycloid[32],
          hypocycloid[64],
          ImageSize -> 500
          ]


          Mathematica graphics



          I've previously written about an application of hypocycloids here, and I showed how to visualize epicycloids here.



          How to generate the labels is described here (also linked to by moo in a comment). I will simply provide the code.



          mediant[a_, b_, c_, d_] := a + c, b + d
          recursive[v1_, v2_, depth_] := If[
          depth > 2,
          mediant[v1, v2],
          recursive[v1, mediant[v1, v2], depth + 1],
          mediant[v1, v2],
          recursive[mediant[v1, v2], v2, depth + 1]
          ]

          computeLabels[v1_, v2_] := Module[numbers,
          numbers =
          Cases[recursive[v1, v2, 0], _Integer, _Integer, Infinity];
          StringTemplate["``/``"] @@@ numbers
          ]
          computeLabelsNegative[v1_, v2_] := Module[numbers,
          numbers =
          Cases[recursive[v1, v2, 0], _Integer, _Integer, Infinity];
          StringTemplate["-`2`/`1`"] @@@ numbers
          ]

          labels = Reverse@Join[
          "1/0",
          computeLabels[1, 0, 1, 1],
          "1/1",
          computeLabels[1, 1, 0, 1],
          "0/1",
          computeLabelsNegative[1, 0, 1, 1],
          "-1,1",
          computeLabelsNegative[1, 1, 0, 1]
          ];

          coords = CirclePoints[1.1, 186 Degree, 64];

          Show[
          Graphics[Circle[0, 0, 1]],
          hypocycloid[2],
          hypocycloid[4],
          hypocycloid[8],
          hypocycloid[16],
          hypocycloid[32],
          hypocycloid[64],
          Graphics@MapThread[Text, labels, coords],
          ImageSize -> 500
          ]


          Mathematica graphics







          share|improve this answer














          share|improve this answer



          share|improve this answer








          edited 1 hour ago

























          answered 2 hours ago









          C. E.C. E.

          51.1k3101206




          51.1k3101206





















              1












              $begingroup$

              I looked up the Farey sequence on Wikipedia, out of curiosity, because I had not heard of it before. The Farey sequence of order $n$ is "the sequence of completely reduced fractions between 0 and 1 which, when in lowest terms, have denominators less than or equal to $n$, arranged in order of increasing size".



              On that basis, you can generate the sequence as follows, for instance:



              ClearAll[farey]
              farey[n_Integer] := (Divide @@@ Subsets[Range[n], 2]) ~ Join ~ 0, 1 //DeleteDuplicates //Sort


              So for instance:



              farey[5]



              0, 1/5, 1/4, 1/3, 2/5, 1/2, 3/5, 2/3, 3/4, 4/5, 1




              I am not sure how these sequences are connected with the figure you showed though.






              share|improve this answer









              $endgroup$

















                1












                $begingroup$

                I looked up the Farey sequence on Wikipedia, out of curiosity, because I had not heard of it before. The Farey sequence of order $n$ is "the sequence of completely reduced fractions between 0 and 1 which, when in lowest terms, have denominators less than or equal to $n$, arranged in order of increasing size".



                On that basis, you can generate the sequence as follows, for instance:



                ClearAll[farey]
                farey[n_Integer] := (Divide @@@ Subsets[Range[n], 2]) ~ Join ~ 0, 1 //DeleteDuplicates //Sort


                So for instance:



                farey[5]



                0, 1/5, 1/4, 1/3, 2/5, 1/2, 3/5, 2/3, 3/4, 4/5, 1




                I am not sure how these sequences are connected with the figure you showed though.






                share|improve this answer









                $endgroup$















                  1












                  1








                  1





                  $begingroup$

                  I looked up the Farey sequence on Wikipedia, out of curiosity, because I had not heard of it before. The Farey sequence of order $n$ is "the sequence of completely reduced fractions between 0 and 1 which, when in lowest terms, have denominators less than or equal to $n$, arranged in order of increasing size".



                  On that basis, you can generate the sequence as follows, for instance:



                  ClearAll[farey]
                  farey[n_Integer] := (Divide @@@ Subsets[Range[n], 2]) ~ Join ~ 0, 1 //DeleteDuplicates //Sort


                  So for instance:



                  farey[5]



                  0, 1/5, 1/4, 1/3, 2/5, 1/2, 3/5, 2/3, 3/4, 4/5, 1




                  I am not sure how these sequences are connected with the figure you showed though.






                  share|improve this answer









                  $endgroup$



                  I looked up the Farey sequence on Wikipedia, out of curiosity, because I had not heard of it before. The Farey sequence of order $n$ is "the sequence of completely reduced fractions between 0 and 1 which, when in lowest terms, have denominators less than or equal to $n$, arranged in order of increasing size".



                  On that basis, you can generate the sequence as follows, for instance:



                  ClearAll[farey]
                  farey[n_Integer] := (Divide @@@ Subsets[Range[n], 2]) ~ Join ~ 0, 1 //DeleteDuplicates //Sort


                  So for instance:



                  farey[5]



                  0, 1/5, 1/4, 1/3, 2/5, 1/2, 3/5, 2/3, 3/4, 4/5, 1




                  I am not sure how these sequences are connected with the figure you showed though.







                  share|improve this answer












                  share|improve this answer



                  share|improve this answer










                  answered 7 hours ago









                  MarcoBMarcoB

                  38.6k557115




                  38.6k557115




















                      Gustavo Rubiano is a new contributor. Be nice, and check out our Code of Conduct.









                      draft saved

                      draft discarded


















                      Gustavo Rubiano is a new contributor. Be nice, and check out our Code of Conduct.












                      Gustavo Rubiano is a new contributor. Be nice, and check out our Code of Conduct.











                      Gustavo Rubiano is a new contributor. Be nice, and check out our Code of Conduct.














                      Thanks for contributing an answer to Mathematica Stack Exchange!


                      • Please be sure to answer the question. Provide details and share your research!

                      But avoid


                      • Asking for help, clarification, or responding to other answers.

                      • Making statements based on opinion; back them up with references or personal experience.

                      Use MathJax to format equations. MathJax reference.


                      To learn more, see our tips on writing great answers.




                      draft saved


                      draft discarded














                      StackExchange.ready(
                      function ()
                      StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f194838%2fhow-can-i-plot-a-farey-diagram%23new-answer', 'question_page');

                      );

                      Post as a guest















                      Required, but never shown





















































                      Required, but never shown














                      Required, but never shown












                      Required, but never shown







                      Required, but never shown

































                      Required, but never shown














                      Required, but never shown












                      Required, but never shown







                      Required, but never shown







                      Popular posts from this blog

                      یوتیوب محتویات پیشینه[ویرایش] فناوری‌های ویدئویی[ویرایش] شوخی‌های آوریل[ویرایش] سانسور و فیلترینگ[ویرایش] آمار و ارقامی از یوتیوب[ویرایش] تأثیر اجتماعی[ویرایش] سیاست اجتماعی[ویرایش] نمودارها[ویرایش] یادداشت‌ها[ویرایش] پانویس[ویرایش] پیوند به بیرون[ویرایش] منوی ناوبریبررسی شده‌استYouTube.com[بروزرسانی]"Youtube.com Site Info""زبان‌های یوتیوب""Surprise! There's a third YouTube co-founder"سایت یوتیوب برای چندمین بار در ایران فیلتر شدنسخهٔ اصلیسالار کمانگر جوان آمریکایی ایرانی الاصل مدیر سایت یوتیوب شدنسخهٔ اصلیVideo websites pop up, invite postingsthe originalthe originalYouTube: Overnight success has sparked a backlashthe original"Me at the zoo"YouTube serves up 100 million videos a day onlinethe originalcomScore Releases May 2010 U.S. Online Video Rankingsthe originalYouTube hits 4 billion daily video viewsthe originalYouTube users uploading two days of video every minutethe originalEric Schmidt, Princeton Colloquium on Public & Int'l Affairsthe original«Streaming Dreams»نسخهٔ اصلیAlexa Traffic Rank for YouTube (three month average)the originalHelp! YouTube is killing my business!the originalUtube sues YouTubethe originalGoogle closes $A2b YouTube dealthe originalFlash moves on to smart phonesthe originalYouTube HTML5 Video Playerنسخهٔ اصلیYouTube HTML5 Video Playerthe originalGoogle tries freeing Web video with WebMthe originalVideo length for uploadingthe originalYouTube caps video lengths to reduce infringementthe originalAccount Types: Longer videosthe originalYouTube bumps video limit to 15 minutesthe originalUploading large files and resumable uploadingthe originalVideo Formats: File formatsthe originalGetting Started: File formatsthe originalThe quest for a new video codec in Flash 8the originalAdobe Flash Video File Format Specification Version 10.1the originalYouTube Mobile goes livethe originalYouTube videos go HD with a simple hackthe originalYouTube now supports 4k-resolution videosthe originalYouTube to get high-def 1080p playerthe original«Approximate YouTube Bitrates»نسخهٔ اصلی«Bigger and Better: Encoding for YouTube 720p HD»نسخهٔ اصلی«YouTube's 1080p – Failure Depends on How You Look At It»نسخهٔ اصلیYouTube in 3Dthe originalYouTube in 3D?the originalYouTube 3D Videosthe originalYouTube adds a dimension, 3D goggles not includedthe originalYouTube Adds Stereoscopic 3D Video Support (And 3D Vision Support, Too)the original«Sharing YouTube Videos»نسخهٔ اصلی«Downloading videos from YouTube is not supported, except for one instance when it is permitted.»نسخهٔ اصلی«Terms of Use, 5.B»نسخهٔ اصلی«Some YouTube videos get download option»نسخهٔ اصلی«YouTube looks out for content owners, disables video ripping»«Downloading videos from YouTube is not supported, except for one instance when it is permitted.»نسخهٔ اصلی«YouTube Hopes To Boost Revenue With Video Downloads»نسخهٔ اصلی«YouTube Mobile»نسخهٔ اصلی«YouTube Live on Apple TV Today; Coming to iPhone on June 29»نسخهٔ اصلی«Goodbye Flash: YouTube mobile goes HTML5 on iPhone and Android»نسخهٔ اصلی«YouTube Mobile Goes HTML5, Video Quality Beats Native Apps Hands Down»نسخهٔ اصلی«TiVo Getting YouTube Streaming Today»نسخهٔ اصلی«YouTube video comes to Wii and PlayStation 3 game consoles»نسخهٔ اصلی«Coming Up Next... YouTube on Your TV»نسخهٔ اصلی«Experience YouTube XL on the Big Screen»نسخهٔ اصلی«Xbox Live Getting Live TV, YouTube & Bing Voice Search»نسخهٔ اصلی«YouTube content locations»نسخهٔ اصلی«April fools: YouTube turns the world up-side-down»نسخهٔ اصلی«YouTube goes back to 1911 for April Fools' Day»نسخهٔ اصلی«Simon Cowell's bromance, the self-driving Nascar and Hungry Hippos for iPad... the best April Fools' gags»نسخهٔ اصلی"YouTube Announces It Will Shut Down""YouTube Adds Darude 'Sandstorm' Button To Its Videos For April Fools' Day"«Censorship fears rise as Iran blocks access to top websites»نسخهٔ اصلی«China 'blocks YouTube video site'»نسخهٔ اصلی«YouTube shut down in Morocco»نسخهٔ اصلی«Thailand blocks access to YouTube»نسخهٔ اصلی«Ban on YouTube lifted after deal»نسخهٔ اصلی«Google's Gatekeepers»نسخهٔ اصلی«Turkey goes into battle with Google»نسخهٔ اصلی«Turkey lifts two-year ban on YouTube»نسخهٔ اصلیسانسور در ترکیه به یوتیوب رسیدلغو فیلترینگ یوتیوب در ترکیه«Pakistan blocks YouTube website»نسخهٔ اصلی«Pakistan lifts the ban on YouTube»نسخهٔ اصلی«Pakistan blocks access to YouTube in internet crackdown»نسخهٔ اصلی«Watchdog urges Libya to stop blocking websites»نسخهٔ اصلی«YouTube»نسخهٔ اصلی«Due to abuses of religion, customs Emirates, YouTube is blocked in the UAE»نسخهٔ اصلی«Google Conquered The Web - An Ultimate Winner»نسخهٔ اصلی«100 million videos are viewed daily on YouTube»نسخهٔ اصلی«Harry and Charlie Davies-Carr: Web gets taste for biting baby»نسخهٔ اصلی«Meet YouTube's 224 million girl, Natalie Tran»نسخهٔ اصلی«YouTube to Double Down on Its 'Channel' Experiment»نسخهٔ اصلی«13 Some Media Companies Choose to Profit From Pirated YouTube Clips»نسخهٔ اصلی«Irate HK man unlikely Web hero»نسخهٔ اصلی«Web Guitar Wizard Revealed at Last»نسخهٔ اصلی«Charlie bit my finger – again!»نسخهٔ اصلی«Lowered Expectations: Web Redefines 'Quality'»نسخهٔ اصلی«YouTube's 50 Greatest Viral Videos»نسخهٔ اصلیYouTube Community Guidelinesthe original«Why did my YouTube account get closed down?»نسخهٔ اصلی«Why do I have a sanction on my account?»نسخهٔ اصلی«Is YouTube's three-strike rule fair to users?»نسخهٔ اصلی«Viacom will sue YouTube for $1bn»نسخهٔ اصلی«Mediaset Files EUR500 Million Suit Vs Google's YouTube»نسخهٔ اصلی«Premier League to take action against YouTube»نسخهٔ اصلی«YouTube law fight 'threatens net'»نسخهٔ اصلی«Google must divulge YouTube log»نسخهٔ اصلی«Google Told to Turn Over User Data of YouTube»نسخهٔ اصلی«US judge tosses out Viacom copyright suit against YouTube»نسخهٔ اصلی«Google and Viacom: YouTube copyright lawsuit back on»نسخهٔ اصلی«Woman can sue over YouTube clip de-posting»نسخهٔ اصلی«YouTube loses court battle over music clips»نسخهٔ اصلیYouTube to Test Software To Ease Licensing Fightsthe original«Press Statistics»نسخهٔ اصلی«Testing YouTube's Audio Content ID System»نسخهٔ اصلی«Content ID disputes»نسخهٔ اصلیYouTube Community Guidelinesthe originalYouTube criticized in Germany over anti-Semitic Nazi videosthe originalFury as YouTube carries sick Hillsboro video insultthe originalYouTube attacked by MPs over sex and violence footagethe originalAl-Awlaki's YouTube Videos Targeted by Rep. Weinerthe originalYouTube Withdraws Cleric's Videosthe originalYouTube is letting users decide on terrorism-related videosthe original«Time's Person of the Year: You»نسخهٔ اصلی«Our top 10 funniest YouTube comments – what are yours?»نسخهٔ اصلی«YouTube's worst comments blocked by filter»نسخهٔ اصلی«Site Info YouTube»نسخهٔ اصلیوبگاه YouTubeوبگاه موبایل YouTubeوووووو

                      Magento 2 - Auto login with specific URL Planned maintenance scheduled April 23, 2019 at 23:30 UTC (7:30pm US/Eastern) Announcing the arrival of Valued Associate #679: Cesar Manara Unicorn Meta Zoo #1: Why another podcast?Customer can't login - Page refreshes but nothing happensCustom Login page redirectURL to login with redirect URL after completionCustomer login is case sensitiveLogin with phone number or email address - Magento 1.9Magento 2: Set Customer Account Confirmation StatusCustomer auto connect from URLHow to call customer login form in the custom module action magento 2?Change of customer login error message magento2Referrer URL in modal login form

                      Rest API with Magento using PHP with example. Planned maintenance scheduled April 17/18, 2019 at 00:00UTC (8:00pm US/Eastern) Announcing the arrival of Valued Associate #679: Cesar Manara Unicorn Meta Zoo #1: Why another podcast?How to update product using magento client library for PHP?Oauth Error while extending Magento Rest APINot showing my custom api in wsdl(url) and web service list?Using Magento API(REST) via IXMLHTTPRequest COM ObjectHow to login in Magento website using REST APIREST api call for Guest userMagento API calling using HTML and javascriptUse API rest media management by storeView code (admin)Magento REST API Example ErrorsHow to log all rest api calls in magento2?How to update product using magento client library for PHP?