用mathematica求 farey 数列程序
用mathematica求 farey 数列程序
任意程序都行
任意程序都行
其他人气:373 ℃时间:2020-05-09 09:37:59
优质解答
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...
我来回答
类似推荐
猜你喜欢
- 12先阅读下列一段文字,下面是一类方程和它解的情况:x-1/x=1又1/2的解是x1=2,x2=-1/2 x-1
- 239分之169化简等于几分之几
- 3语文题(填诗句)
- 4设e²-x+y+2=0,确定z是x,y函数,求∂z/∂x及∂z/∂y
- 5The Polar bear can swims across the lake. 哪里错了
- 6把下列各式化成最简二次根式: (1)27/5132−12227; (2)−abc/2c32a4b.
- 7当英文第一人称、第二人称,在复数和单数的情况下,后面是动词的场合,动词的变化是?
- 8已知二次函数f(x)=ax^2+bx(a,b为常数,且a不等于0)满足条件f(-x+5)=f(x-3),且方程f(x)=x有等根
- 9已知一次函数y=kx+b,当x增加2时,y减小5,则k的值是( ) A.-2.5 B.-0.4 C.2.5 D.0.4
- 10y=√(x-1)·√(x-2)和y=√(x²-3x+2)是否是同一函数