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/11,3/8,2/5,5/12,3/7,4/9,5/11,1/2,6/11,5/9,4/7,7/12,3/5,5/8,7/11,2/3,7/10,5/7,8/11,3/4,7/9,4/5,9/11,5/6,6/7,7/8,8/9,9/10,10/11,11/12,1}
最新问答： 你在完成教学设计的过程遇到什么困难,你是怎么克服的? 在一个正方体的6个面上标上数字,怎样才能使3朝上的可能性是三分之二 高中必修二数学基本几何体表面积及体积公式 个十百千的计数单位是什么 名词后跟形容词还是副词? Look at 后面是不是只能加名词,是不是Look at 后面加名词前面都要加the? 氯化钙不能干燥的东西氯化钙不能干燥什么啊! 如果26个英文字母对应的数字是1-26那么ATTITUDE=? 2.8加1.7的和去除9,得多少 文言翻译,愿陛下矜悯愚诚,听臣薇志,庶刘侥幸,保卒余年 雍正帝设立了什么 A东厂 B三司 c军机处 D锦衣卫 求成语口蜜腹剑的意思 Na与O2在点燃条件下有产生黄色火焰、淡黄色烟.这黄色烟各是什么? 一件物品打7.5折怎么算 It's our choices that make us who we are.意思我知道,谁帮忙分析下这句话,小弟英 什么叫中和度?注意是中和度！中和的概念我知道~比如：将20%的氢氧化钠溶液加入30ml丙烯酸溶液中，使丙烯酸的中和度达到 \"噩\"的笔顺 2010年12月24日山东省普通高中会考生物答案 已知a、b满足根号4a+b+1 + 根号1/3b+4a+3 =0,求2a 根号-a/b²的值. 短时间内怎样记英语课文记得牢
相关问答： 跪求
