|
尊敬的uk702!您那个算法可以调整吗(有点长)?
我会用这个, 可又速度太慢了, 20肯定出不来。
- Table[Do[If[Abs[(\[Pi] - 3) - t/Round[t/(\[Pi] - 3)]] < 10^-n,
- Return[t/Round[t/(\[Pi] - 3)]]], {t, 1, 10^n}], {n, 15}]
复制代码
{1/7, 1/7, 9/64, 15/106, 16/113, 16/113, 3423/24175, 4543/32085, 4687/33102, 14093/99532,
37576/265381, 192583/1360120, 244252/1725033, 2635103/18610450, 3612111/25510582} |
|