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

独木星空谁

SELECT  1
USE D:\连续整数方程\三生素数二元汇总1简逆.DBF ALIAS 三生二元
SELECT  2
USE D:\连续整数方程\三生素数逆1.DBF ALIAS 三生半
SELECT  3
USE D:\连续整数方程\三生素数三元运算结果表逆.DBF ALIAS 三生三元结果
kssj=SECONDS()


          SELECT  2
          GO 1
          For j=1 to 1009
          @ 15,22 say j
          A=三中42
         
              SELECT 3
             INSERT INTO 三生三元结果 (合成数,方法数) SELECT 合成数+A ,相同记录数 FROM 三生二元
          SELECT 2
          SKIP
          ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

独木星空谁

CLOSE DATA
USE d:\连续整数方程\三生素数三元运算结果表逆.dbf
sele 合成数,sum(方法数) as 方法数 from 三生素数三元运算结果表逆 group by 合成数  into dbf d:\连续整数方程\三生三元运算统计表逆
USE IN 三生三元运算统计表逆

白新岭

SELECT 1
USE h:\素数式系数\素数表十亿.dbf ALIAS 素数表
kssj=SECONDS()  &&取出开始时间
k=1
SELECT 1
   GO 3
    s=1.0000000000000000
       FOR  i=1 TO 50876320  &&又遇到以前类似事情，外循环变量用了j与下面的内循环变量一致，所以提示0不能做除数。
        @ 5,12 say i
        SELECT 1
        p=素数
         jl=recno()
        s=s*p*(p-3)/(p-1)/(p-2)
         SELECT 1
            GO jl+1
     ENDFOR
?s
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
今天，求了个捆绑式系数，捆绑的是孪生素数对，相对距离4（中项置零变为3，即去掉相对余数为3的，然后参与运算）
所求的极限3∏\({P*(P-3)}\over{(P-1)*(P-2)}\)=3*0.7216030288336000=2.164809086500800
2C2        1.3203236316937400
三生素数的系数        2.8582485950123400
通过不同方式，获得的系数，及公式一致。

独木星空谁

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,"运行时间提示")
这是孪中+最密三生素数的中项统计程序

独木星空谁

截止2021年12月10日13:11分周五，浏览量43542，回复1150，热度58.农历十一月初七

白新岭

SELECT 1
USE d:\二加三或1加4\孪生素数表.DBF ALIAS 孪素表
SELECT 2
USE d:\二加三或1加4\孪生素数统计表.DBF ALIAS 孪统计
SELECT 3
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 INT(i/2)
        @ 15,22 say j
        SELECT  2     
        GO j
        zgs1=总个数
        fgs1=分个数
        SELECT  2
        GO i-j+1
        zgs2=总个数
        fgs2=分个数
           SELECT 1
           GO zgs1-fgs1+1
               FOR k1=1  TO  fgs1
               A=孪中
               jl1=recno()
                 SELECT  1
                 GO zgs2-fgs2+1
                 For k2=1 to fgs2
                 jl2=recno()
                 B=孪中
                 C=A+B
                 SELECT 3
                 APPEND BLANK   
                 REPLACE 偶数 WITH C   
                 SELECT 1
                 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,"运行时间提示")
孪中合成程序。

白新岭

SELECT 1
USE d:\二加三或1加4\正三生素数表.DBF ALIAS 三素表
SELECT 2
USE d:\二加三或1加4\正三素统计表.DBF ALIAS 三素统计
SELECT 3
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 INT(i/2)
        @ 15,22 say j
        SELECT  2     
        GO j
        zgs1=总个数
        fgs1=分个数
        SELECT  2
        GO i-j+1
        zgs2=总个数
        fgs2=分个数
           SELECT 1
           GO zgs1-fgs1+1
               FOR k1=1  TO  fgs1
               A=正三中
               jl1=recno()
                 SELECT  1
                 GO zgs2-fgs2+1
                 For k2=1 to fgs2
                 jl2=recno()
                 B=正三中
                 C=A+B
                 SELECT 3
                 APPEND BLANK   
                 REPLACE 偶数 WITH C   
                 SELECT 1
                 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,"运行时间提示")
这是三生素数中项和结果统计程序

白新岭

SELECT 1
USE d:\二加三或1加4\逆三生素数表.DBF ALIAS 三素表
SELECT 2
USE d:\二加三或1加4\逆三素统计表.DBF ALIAS 三素统计
SELECT 3
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 INT(i/2)
        @ 15,22 say j
        SELECT  2     
        GO j
        zgs1=总个数
        fgs1=分个数
        SELECT  2
        GO i-j+1
        zgs2=总个数
        fgs2=分个数
           SELECT 1
           GO zgs1-fgs1+1
               FOR k1=1  TO  fgs1
               A=逆三中
               jl1=recno()
                 SELECT  1
                 GO zgs2-fgs2+1
                 For k2=1 to fgs2
                 jl2=recno()
                 B=逆三中
                 C=A+B
                 SELECT 3
                 APPEND BLANK   
                 REPLACE 偶数 WITH C   
                 SELECT 1
                 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,"运行时间提示")
这是逆三生素数中项和统计表（0,4,6）

白新岭

最近我想用这个宝库，里边有我处理各种数据的算法。

白新岭

2021年12月25日星期六农历十一月廿二晚18:35分热度59，回复1155，浏览量44260.