用mathematica求 farey 数列程序

题目

用mathematica求 farey 数列程序
任意程序都行

答案

Mathematica 程序:farey[x_] :=Module[{m,n,jieguo},jieguo = Union[Sort[Flatten[Table[m/n,{n,1,x},{m,1,n}]]]];jieguo]farey[12]运行结果:{1/12,1/11,1/10,1/9,1/8,1/7,1/6,2/11,1/5,2/9,1/4,3/11,2/7,3/10,1/3,4...