[原创]请教vfbpgyfk先生一个编程问题

白新岭

下面引用由vfbpgyfk在 2010/05/26 00:24pm 发表的内容：
首先祝贺您。
如果还有需要帮助的，我会尽力的，我的信箱您知道，只不过不知什么原因，您发来的邮件有时打不开。我的方法是：点击“附件”，再双击需要发的文件（如果不能被识别的，系统就提示啦），就这样简单　...

我仔细阅读过，最近一直在学编程，就无暇顾及其他的事情，你说磨刀不误砍柴工，的确不假，现在如果想得到自己的数据，让程序运行就可以了，其他的工作不会耽误。这都是先生大力帮助的结果，因为一心想立刻得到结果，所以就不管三七二十一，就硬着头皮往上闯，还真闯出点明堂。如果没有先生的帮助，没有Excel做基础，到现在（大概半月的时间），我想会一无所获。
对于，有关素数问题和歌猜问题，我们只能互相切磋，讨论，没有谁可以评断另一个的，也没有人可以把自己的思想，观点强加于别人。
说说，网友的事情，滕瑞雄先生一直在宣扬他的质数占位学说，其实就是公倍数而已，小学生都知道；还有一位网友在宣传倍数含量，与藤先生的也差不多，不过要比腾先生的早，且有好些推论，还是长于藤先生的。
童信平俨然像一位数学教授，总是拿数学符号，和细节问题来要求他人，他自己对问题的态度问什么要强加他人，每个人都有自己处理问题和看问题的方法和方式，不可能人人一律，这点上，熊一兵先生做的非常好，他说，因为这个问题刚接触，对于如何表示因人而异，不要求一致，只要事先说明就可以了，

白新岭

用“二维程序”可在1天之内处理64.7亿的数据，半月才可以拿下1000亿内的全部数据，只是电脑连续工作怕散热不好，影响其性能，所以也不计划运行了，得到100亿内的数据就可以了。满够用的。因为有个问题需要这些数据。

vfbpgyfk

按我的发现和您的研究成果，完全可以说，四胞胎趋向无穷。您既然获得了这么多四胞胎，不防您总结地看一下，随着偶数的增大，四胞胎也在随着增多，总趋势是增加的，而且必定有一个增长比例（平均值）。前面我说过，当偶数大到某个程度后，就会出现八胞胎、十六胞胎……。如果您感觉有研究意义和价值，那是您的事。

白新岭

下面引用由vfbpgyfk在 2010/05/26 05:41pm 发表的内容：
按我的发现和您的研究成果，完全可以说，四胞胎趋向无穷。您既然获得了这么多四胞胎，不防您总结地看一下，随着偶数的增大，四胞胎也在随着增多，总趋势是增加的，而且必定有一个增长比例（平均值）。前面我说过 ...

我以前是实践在前，理论在后，现在是理论分析在前，投入实践中检验在后。
有关四胞胎素数群的数量有一个非常好的渐进公式：一个积分式。
在这个链接中：<http://www.mathchina.com/cgi-bin/topic.cgi?forum=5&topic=8925&start=48&#35;bottom
[原创]最密4生素数群的组数公式=4.151179∫dt/(LN(t))^4

白新岭

以下是用新得到的数据产生“生成初始值13”中的数据程序。
CLEAR ALL
SELECT 1
USE E:\用vfp求k生素数数量\生成初始值13.dbf ALIAS 生成初始值13
SELECT 2
USE E:\用vfp求k生素数数量\生成初始值11.DBF ALIAS 生成初始值11
*INPUT "请输入外循环开始值 wxhks=" TO wxhks
*INPUT "请输入外循环结束值 wjs=" TO wjs
*INPUT "请输入内循环开始值 nks=" TO nks
*INPUT "请输入内循环结束值 njs=" TO njs
GO Top
FOR h=1 TO 21
SELECT 生成初始值11
FOR j=0 TO 12
bpz=生成元11+j*2310       &&注意这条语句中的“初始值”
qmz=MOD(bpz,13)
IF qmz=0 OR qmz=2 OR qmz=6 OR qmz=8
ELSE
SELECT  生成初始值13
APPEND BLANK
REPLACE 生成元13 WITH bpz
SELECT 生成初始值11
ENDIF
ENDFOR
SKIP
ENDFOR
CLEAR ALL

白新岭

* 请注意，外循环是初始值，即：从1到3，
CLEAR ALL
SELECT 1
USE E:\用vfp求k生素数数量\生成初始值17.dbf ALIAS 生成初始值17
SELECT 2
USE E:\用vfp求k生素数数量\生成初始值13.DBF ALIAS 生成初始值13
*INPUT "请输入外循环开始值 wxhks=" TO wxhks
*INPUT "请输入外循环结束值 wjs=" TO wjs
*INPUT "请输入内循环开始值 nks=" TO nks
*INPUT "请输入内循环结束值 njs=" TO njs
GO Top
FOR h=1 TO 189
SELECT 生成初始值13
FOR j=0 TO 16
bpz=生成元13+j*30030      &&注意这条语句中的“初始值”
qmz=MOD(bpz,17)
IF qmz=0 OR qmz=2 OR qmz=6 OR qmz=8
ELSE
SELECT  生成初始值17
APPEND BLANK
REPLACE 生成元17 WITH bpz
SELECT 生成初始值13
ENDIF
ENDFOR
SKIP
ENDFOR
CLEAR ALL

白新岭

CLEAR ALL
SELECT 1
USE E:\用vfp求k生素数数量\生成初始值19.dbf ALIAS 生成初始值19 &&当每增倍一个素数周期就改成下一个表名（改成带下一个素数数字的表
SELECT 2
USE E:\用vfp求k生素数数量\生成初始值17.DBF ALIAS 生成初始值17 &&同上
*INPUT "请输入外循环开始值 wxhks=" TO wxhks
*INPUT "请输入外循环结束值 wjs=" TO wjs
*INPUT "请输入内循环开始值 nks=" TO nks
*INPUT "请输入内循环结束值 njs=" TO njs
GO Top
FOR h=1 TO 2457  &&外循环终值改成下边选择的工作区表中的记录总数
SELECT 生成初始值17 &&同第一条注释
FOR j=0 TO 18  &&改成下一个素数-1
bpz=生成元17+j*510510      &&注意这条语句中的“初始值”---改成字段名
qmz=MOD(bpz,19)  &&用新增加的素数值
IF qmz=0 OR qmz=2 OR qmz=6 OR qmz=8
ELSE
SELECT  生成初始值19 &&同第一条注释
APPEND BLANK
REPLACE 生成元19 WITH bpz &&改成本次追加记录的字段名
SELECT 生成初始值17 &&同第一条注释
ENDIF
ENDFOR
SKIP
ENDFOR
CLEAR ALL

白新岭

CLEAR ALL
SELECT 1
USE E:\用vfp求k生素数数量\生成初始值23.dbf ALIAS 生成初始值23 &&当每增倍一个素数周期就改成下一个表名（改成带下一个素数数字的表
SELECT 2
USE E:\用vfp求k生素数数量\生成初始值19.DBF ALIAS 生成初始值19 &&同上
*INPUT "请输入外循环开始值 wxhks=" TO wxhks
*INPUT "请输入外循环结束值 wjs=" TO wjs
*INPUT "请输入内循环开始值 nks=" TO nks
*INPUT "请输入内循环结束值 njs=" TO njs
GO Top
FOR h=1 TO 36855  &&外循环终值改成下边选择的工作区表中的记录总数
SELECT 生成初始值19 &&同第一条注释
FOR j=0 TO 22  &&改成下一个素数-1
bpz=生成元19+j*9699690      &&注意这条语句中的“初始值”---改成字段名
qmz=MOD(bpz,23)  &&用新增加的素数值
IF qmz=0 OR qmz=2 OR qmz=6 OR qmz=8
ELSE
SELECT  生成初始值23 &&同第一条注释
APPEND BLANK
REPLACE 生成元23 WITH bpz &&改成本次追加记录的字段名
SELECT 生成初始值19 &&同第一条注释
ENDIF
ENDFOR
SKIP
ENDFOR
CLEAR ALL

白新岭

CLEAR ALL
SELECT 1
USE E:\用vfp求k生素数数量\生成初始值29.dbf ALIAS 生成初始值29 &&当每增倍一个素数周期就改成下一个表名（改成带下一个素数数字的表
SELECT 2
USE E:\用vfp求k生素数数量\生成初始值23.DBF ALIAS 生成初始值23 &&同上
*INPUT "请输入外循环开始值 wxhks=" TO wxhks
*INPUT "请输入外循环结束值 wjs=" TO wjs
*INPUT "请输入内循环开始值 nks=" TO nks
*INPUT "请输入内循环结束值 njs=" TO njs
GO Top
FOR h=1 TO 700245  &&外循环终值改成下边选择的工作区表中的记录总数
SELECT 生成初始值23 &&同第一条注释
FOR j=0 TO 28  &&改成下一个素数-1
bpz=生成元23+j*223092870      &&注意这条语句中的“初始值”---改成字段名
qmz=MOD(bpz,29)  &&用新增加的素数值
IF qmz=0 OR qmz=2 OR qmz=6 OR qmz=8
ELSE
SELECT  生成初始值29 &&同第一条注释
APPEND BLANK
REPLACE 生成元29 WITH bpz &&改成本次追加记录的字段名
SELECT 生成初始值23 &&同第一条注释
ENDIF
ENDFOR
SKIP
ENDFOR
CLEAR ALL

白新岭

以上几个大致相同的程序是按照先生编好的程序“二维程序”，稍微修改而成。而且很快就得到了初始值（字段名为：生成元）的所有数据，它好像一个核裂变，很快就膨大了，步长=2*3*5*7*11*13*17*19*23*29=6469693230，也就是说一次外循环可以处理完6469693230个自然数，而实际处理数据量=初始值的数量（即此系列程序产生的“生成元字段中的记录数）=（7-4）*（11-4）*（13-4）*（17-4）*（19-4）*（23-4）*（29-4）=3*7*9*13*15*19*25=17506125，这1750万个初始值被处理后得到的数据就是四胞胎素数群的代表值，它与一个初始值19在30亿内处理的数据量大致相同，从这里看稍微处理后的程序比以前以210做步长时要快6倍左右。