JohnMcBetty
- 12
- 0
I need some help writing a Farey Sequence in Mathematica, so far this is all I have:
FareySequence[n_] := GCD[a, b]; While b : a, b = b, a % b;
result := a
Simplify[a, b];
g := GCD[a, b]
result := (a/g, b/g)
I am very new to programming, please help!
FareySequence[n_] := GCD[a, b]; While b : a, b = b, a % b;
result := a
Simplify[a, b];
g := GCD[a, b]
result := (a/g, b/g)
I am very new to programming, please help!