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

vfbpgyfk

我主要活动于百度的哥德巴赫猜想吧，而且，由于自我感觉本人已经解决了哥猜问题，则不再研究了，只是偶尔进吧看看，也不随意地顶那篇发表过的文章，反正已经无人能够提出较为新颖的有说服力的质疑。昨天偶尔发现了数学中国这个老玩场，也就进来看看，并将哥猜终结研究论文（直捣龙宫法）发上来，看看是否有人能提出新的质疑，以便提高自己的认识。
现在来看，你还在研究你的那个连生素素数问题。本人愚见，如果不能落实并提升到理论层面，这种计算将是无休止的。

白新岭

vfbpgyfk 发表于 2021-1-1 07:23
我主要活动于百度的哥德巴赫猜想吧，而且，由于自我感觉本人已经解决了哥猜问题，则不再研究了，只是偶尔进 ...

计算只是一种处理数学问题一种手段。当然对于数学命题还是用证明来说话。我对哥德巴赫猜想的吸引力，已经失去了。我发过专题贴：等差k生素数有最小公差d使它中的一类中（不如说同位置上的素数更确切）二素数和遍历全体偶数，k值可以任意大。
例如二生素数（P，P+6），三生素数（P，P+30，P+60），四生素数（P，P+210，P+420，P+630）等等，不胜枚举。

白新岭

只不过，在小范围内存在有限个反例而已。实际上，当你知道反例只存在小范围内，也就知道哥德巴赫猜想不再是猜想了。它与证明不存在最密4生素数的间距没有模210余数是60或150的一样（间距以30为步长递增）。

白新岭

人们就像你说的一样，哥德巴赫猜想是在证明偶数都有素数解问题，而不是证明它的解组数问题，有解，还是无解（每一个偶数）。

vfbpgyfk

试用了好多方法，仍旧没有学会你的那种回复方法和途径，只好以这种方法直接回答你对哈-李公式中用到到的拉曼扭场系数 认识和看法。
记得1921年哈代在皇家学会演讲中介绍他们的哥德巴赫猜想计算公式时説：“能够最终证明哥德巴赫猜想的方法，应该类似于我与李特伍德的方法，我们不是在原则上没有成功，而是在细节上没有成功”。
经认真仔细分析研究，我认为哈代所讲的细节主要是指拉曼扭场系数计算式，而不是指X/ln(X)^2，更不应该是指1.3203。哈-李公式就由这三部分构成，再从陈景润的公式上看，基本是哈-李公式，只是全部地保留了拉揾扭场系数算式，并增加了个0.67系数，还有其他一些哥猜论证者的论证结果基本与哈-李公式保持相似性 。这就是说，他们的失败，皆因细节——拉曼扭场系数算式所致。再看这个算式，就是式中的那个P不可用数学公式计算的原因，从而，使将他们的研究从客观上打入猜想范畴。这就是因为现今的数学基础理论不不具备这种能力。
所以，在现今数学基础理论条件下，拉曼扭场系数计算式就是个废物，无论是谁在破解哥猜中用了拉曼扭场系数计算式，前景都是失败！因为这个计算式违背了认知事物和解决问题的基本准则，是要在不具备条件下实现目标。

vfbpgyfk

素数定理是计算素数对的核心，而且，在哈-李计算式中的计算值主要来源于N/ln(N)^2(素数定理构成的)，拉曼纽扬只是解决波动问题，你怎能本末倒置呢？
再说，拉曼纽扬算式中的P是不可计算值，那么，当偶数充分大或无穷大时，论证也不知道那时的最大素数P是个什么值，所以，拉曼纽扬只能计算力所能及范围内的值。而素数适用于任意偶数的计算（虽然达不到准确无误程度，但是可计算或证明的）。

白新岭

vfbpgyfk 发表于 2021-1-5 15:11
素数定理是计算素数对的核心，而且，在哈-李计算式中的计算值主要来源于N/ln(N)^2(素数定理构成的)，拉曼纽 ...

最近有yangchuanju先生非常赞成你的主张。哥德巴赫猜想问题是证明偶数有素数对，还是没有素数对问题，而不是证明偶数的素数对多少问题（实际上，每个人都清，如果证明多少就是无头案，偶数无数，怎么证明多少问题）。

白新岭

SELECT 1
USE D:\循环链条\素数式2310.dbf ALIAS 素数式11
SELECT 2
USE D:\循环链条\素数a不余m.dbf ALIAS 素数a余1
kssj=SECONDS()                      &&取出开始时间
SELECT 1
GO 7
p=素11
   FOR  j=1 TO 6234
  q=素11
  L=q-p
          SELECT 2
          APPEND BLANK
          REPLACE 素a WITH L &&改成本次追加记录的字段
          SELECT 1
          skip
   ENDFOR
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
这是新方法寻找最密k生素数式的先头工作。

白新岭

SELECT 1
USE D:\循环链条\素数a不余m.dbf ALIAS 素数a  &&比制作表的素数值小（即下表）        原表在条件为真时
SELECT 2
USE D:\循环链条\素数a余m参考.dbf ALIAS 素数a余数 &&比上边已筛除的素数值要大  在条件为假时参考表
SELECT 3
USE D:\循环链条\素数b不余m.dbf ALIAS 素数b  &&即将筛除素数余数的盛放表，与上表（参考表）素数值相同   在条件为真时制造表，即新表
SELECT 4
USE D:\循环链条\素数b余m参考.dbf ALIAS 素数b余数 &&比上边已筛除的素数值要大         在条件为真时参考表
SELECT 5
USE D:\循环链条\素数表万.dbf ALIAS 素数表参 &&即将筛除素数余数的盛放表，与上表（参考表）素数值相同
kssj=SECONDS()   &&取出开始时间
SELECT 5
GO 5 &&从素数13开始
FOR n=1 TO 21
ss=素数
IF MOD(n,2)=1 &&条件为真时，由a表制作b表，a表用一个，b表用2个，a表，为1和2,1表为主；b表为3和4,3表为主表
SELECT 3
DELETE ALL
PACK
SELECT 4
DELETE ALL
pack
SELECT 1   
GO 1            
   FOR i=1 TO 1000 &&这个范围远远超过出现最后一个余数的记录条数
    A=素a &&改成表1的字段名
    jlz=RECNO()  &&记住指针所在位置
    SELECT 4
    jlzs2=RECCOUNT()  &&核对表2记录条总数
    IF jlzs2=ss &&改成将要制作参考表的素数值，即表2中的素数值
    exit
    ENDIF
    ys=MOD(A,ss) &&改成将要制作参考表的素数值，即表2中的素数值
    SELECT 4
           count all for ys=余数b to js  &&改成将要制作参考表的字段名，即表2中的字段名
           IF js=0
          SELECT 4
          APPEND BLANK
          REPLACE 余数b WITH ys &&改成本次追加记录的字段名，即表2的字段名
          REPLACE 记录值 WITH jlz
          ENDIF
          SELECT 1
          skip
   ENDFOR
   SELECT 4
   GO ss
   DELETE NEXT 1
   pack
SELECT 1
GO 1
   &&jlzs1=RECCOUNT()  核对表2记录条总数            
  DO WHILE NOT EOF() && FOR i=1 TO jlzs1  &&循环次数改成，SELECT 1 的总记录条数
    A=素a  &&设成表1的字段名
    ys=MOD(A,ss) &&对3表的素数求余数
    SELECT 4
           count all for ys=余数b to js
           IF js=1
          SELECT 3
          APPEND BLANK
          REPLACE 素b WITH A &&改成本次追加记录的字段
          ENDIF
          SELECT 1
          skip
   ENDDO
   
ELSE  &&条件为假时，由b表制作a表，b表用一个，a表用2个  （a表，为1和2,1表为主；b表为3和4,3表为主表）
SELECT 1
DELETE ALL
PACK
SELECT 2
DELETE ALL
pack

SELECT 3  
GO 1            
   FOR i=1 TO 1000 &&这个范围远远超过出现最后一个余数的记录条数
    A=素b &&改成表1的字段名
    jlz=RECNO()  &&记住指针所在位置
    SELECT 2
    jlzs2=RECCOUNT()  &&核对表2记录条总数
    IF jlzs2=ss &&改成将要制作参考表的素数值，即表2中的素数值
    exit
    ENDIF
    ys=MOD(A,ss) &&改成将要制作参考表的素数值，即表2中的素数值
    SELECT 2
           count all for ys=余数a to js  &&改成将要制作参考表的字段名，即表2中的字段名
           IF js=0
          SELECT 2
          APPEND BLANK
          REPLACE 余数a WITH ys &&改成本次追加记录的字段名，即表2的字段名
          REPLACE 记录值 WITH jlz
          ENDIF
          SELECT 3
          skip
   ENDFOR
   SELECT 2
   GO ss
   DELETE NEXT 1
   pack
SELECT 3
GO 1
   &&jlzs1=RECCOUNT()  核对表2记录条总数            
  DO WHILE NOT EOF() && FOR i=1 TO jlzs1  &&循环次数改成，SELECT 1 的总记录条数
    A=素b  &&设成表1的字段名
    ys=MOD(A,ss) &&对3表的素数求余数
    SELECT 2
           count all for ys=余数a to js
           IF js=1
          SELECT 1
          APPEND BLANK
          REPLACE 素a WITH A &&改成本次追加记录的字段
          ENDIF
          SELECT 3
          skip
   ENDDO
   ENDIF
   SELECT 5 && 外循环是选择素数表
   skip
   endfor
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
这是真假变身循环替代法加工最密k生素数式的程序。

白新岭

SELECT 1
USE D:\循环链条\素数式2310.dbf ALIAS 素数式11
SELECT 2
USE D:\循环链条\素数a不余m.dbf ALIAS 素数a余1
kssj=SECONDS()                      &&取出开始时间
SELECT 1
GO 8
p=素11
   FOR  j=1 TO 6233
  q=素11
  L=q-p
          SELECT 2
          APPEND BLANK
          REPLACE 素a WITH L &&改成本次追加记录的字段
          SELECT 1
          skip
   ENDFOR
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")