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

白新岭

截止2022年05月04日周三20:21分浏览量50190，回复1408，热度,78度
截止2022年05月07日周六21:38分浏览量50452，回复1412，热度,78度
晚安！

白新岭

截止2022年05月07日周六21:38分浏览量50454，回复1413，热度,79度
总是有进步，温度上升，调整时间。

白新岭

SELECT 1
USE d:\二加三或1加4\孪生素数表.DBF ALIAS 孪素表
SELECT 2
USE d:\二加三或1加4\孪生素数统计表.DBF ALIAS 孪统计
SELECT 3
USE d:\二加三或1加4\偶数表新.DBF ALIAS 偶数表新
SELECT 4
USE d:\二加三或1加4\正三生素数表.dbf ALIAS 正三素表
SELECT 5
USE d:\二加三或1加4\正三素统计表.dbf ALIAS 正三统计
kssj=SECONDS()
bwjm="偶数周期表二加三"

For i=2381 TO 2383
      @ 5,12 say i
      wd=bwjm+ALLTRIM(STR(i-1))
      && USE IN 3
      && USE d:\等差四生素数\偶数表新.DBF ALIAS 偶数表新
       SELECT 3
     
       DELETE ALL
       PACK
      
       FOR j=1 TO i
        @ 15,22 say j
        SELECT  2     
        GO j
        zgs1=总个数
        fgs1=分个数
        SELECT  5
        GO i-j+1
        zgs2=总个数
        fgs2=分个数
           SELECT 1
           GO zgs1-fgs1+1
               FOR k1=1  TO  fgs1
               A=孪中
               jl1=recno()
                 SELECT  4
                 GO zgs2-fgs2+1
                 For k2=1 to fgs2
                 jl2=recno()
                 B=正三中
                 C=A+B
                 SELECT 3
                 APPEND BLANK   
                 REPLACE 偶数 WITH C   
                 SELECT 4
                 GO jl2+1
                 ENDFOR
               SELECT 1
               GO jl1+1
             ENDFOR   
          ENDFOR
       SELECT 3
       USE IN 3&&打开，或关闭，那个工作区（或者，写别名）
      
      USE d:\二加三或1加4\偶数表新.dbf && 设源表的名称为"表1"
      P=''
      FOR K=1 TO FCOUNT()
      P=P+IIF(EMPTY(P),'',',')+FIELDS(K)&& 取得表中所有字段名称,放在P中
      ENDFOR

      SELECT *,COUNT(FIELDS(1)) AS 相同记录数 FROM DBF() GROUP BY &P. INTO DBF d:\二加三或1加4\&wd
      
      USE IN &wd
      
    ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
一晃一个月有余，还没有一个新的编程，旧的都快忘记了。

白新岭

编程思路就是数学心声、
越过篱笆，穿过墙。横跨海洋，上过峰。

独木星空谁

截止2022年05月07日周六21:38分浏览量50454，回复1413，热度,79度
截止2022年05月09日周一21:01分浏览量50692，回复1416，热度,79度

白新岭

截止2022年05月09日周一21:01分浏览量50692，回复1416，热度,79度
截止2022年05月10日周二21:07分浏览量50816，回复1417，热度,79度

vfbpgyfk

请教一个问题，劳驾了，谢谢！

独木星空谁

截止2022年05月10日周二21:07分浏览量50816，回复1417，热度79度
截止2022年05月12日周四11:06分浏览量51007，回复1426，热度80度

vfbpgyfk

就具体事例来说吧，假如设N=256，请你就哈-李公式计算一下如何？至于（1-1/(P-1))^2连乘积可以不去计算，因为哈-李已经把这部分转换成具体的数值了。

独舟星海

二生素数(P,P+2m)的中项合成数6n的公式\(G_2(6n)\)=6∏\((1-{4\over(P-2)^2})\)∏\({P_i-2}\over{P_i-4}\)∏\({P_j-3}\over{P_j-4}\)\((二生素数的数量)^2\over{6n}\)，\(P_i\)整除6n；6n除\(P_j\)的余数与±2m除\(P_j\)的余数相同。
第一个连乘积是公共部分系数，后两个皆为调整系数（还原合成方法数）。