|
|
[原创]5x+1问题猜想。
|
[这个贴子最后由天山草在 2013/09/09 02:25pm 第 2 次编辑]
考虑 q=19,在 1000 以内没有非平凡解。扩大到 10000 以内,仍然没有非平凡解。
q = 19;
ss = 0;
For[k = 1, k <= 10000, k++,
x = k;
s = 0;
While[x != 1 && s < 500, s = s + 1;
If[EvenQ[x], x = x/2, x = q*x + 1]]; If[x == 1, ss = ss + 1]]; If[
ss - 14 != 0,
Print["q=", q, ", ", "10000 以内能收敛到 1 的非平凡解个数 = ", ss - 14],
Print["q=", q, ", ", "10000 以内没有能收敛到 1 的非平凡解"]]
运行结果:
q=19, 10000 以内没有能收敛到 1 的非平凡解
[br][br]-=-=-=-=- 以下内容由 天山草 在 时添加 -=-=-=-=-
程序中为什么要减去 14 ?因为平凡解的数目是 1,2,4,8,16,32,64,128,256,512,1024,2048,4096,8192 共十四个。 |
|