|
|

楼主 |
发表于 2016-12-31 23:08
|
显示全部楼层
本帖最后由 天山草 于 2016-12-31 23:11 编辑
今天取得了两个成果:
(1)按照前面修正的 5X+1 和 7X+1,分别验证到 100 万,均通过。即全部都能收敛到 1。
(2)将前面说的那个 9X+1 程序增加除以 11 和 13 的条件,验证到 100 万,通过。即全部都能收敛到 1。程序如下:
下面这程序运行的结果为 1000000,即全部收敛到 1。
s = 0;
For[k = 1, k <= 1000000, k++, n0 = k; (* 1000000 已验证 *)
n = k;
For[i = 1, i < 500, i++,
If[Mod[n, 2] == 0, n = n/2,
If[Mod[n, 3] == 0, n = n/3,
If[Mod[n, 5] == 0, n = n/5,
If[Mod[n, 7] == 0, n = n/7,
If[Mod[n, 11] == 0, n = n/11,
If[Mod[n, 13] == 0, n = n/13, n = 9 n + 1]]]]]];
If[n == 1, s++; Break[]];]]; Print;
|
|