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

白新岭

SELECT 1
USE d:\素数表文件\素数表亿.DBF ALIAS 素数表
SELECT 2
USE d:\素数表文件\最密五生素数.DBF ALIAS 五素表
kssj=SECONDS()
SELECT  1   
GO 25997
For i=1 to 52501
       @ 5,12 say i
     SELECT  1     &&打开盛放素数式的表
    jl=recno()
     PUBLIC A
     A=素数
    &&  COUNT NEXT 28 FOR 素数-A=56 TO tj
    SKIP
     PUBLIC B
     B=素数
     SKIP
     PUBLIC C
     C=素数
     SKIP
     PUBLIC D
     D=素数
     SKIP
     PUBLIC E
     E=素数
     IF B-A=2 AND C-B=4 AND D-C=2 AND E-D=4
          SELECT 2
          APPEND BLANK     &&增加一条空记录
         REPLACE 五素 WITH A+6  &&将N值付给素数式
     ENDIF
       SELECT 1
       GO jl+1
    ENDFOR
     =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

白新岭

SELECT 1
USE d:\素数表文件\素数表亿.DBF ALIAS 素数表
SELECT 2
USE d:\素数表文件\最密四生素数.DBF ALIAS 四素表
kssj=SECONDS()
SELECT  1
GO 9592
For i=1 to 68906
       @ 5,12 say i
     SELECT  1     &&打开盛放素数式的表
    jl=recno()
     PUBLIC A
     A=素数
    &&  COUNT NEXT 28 FOR 素数-A=56 TO tj
    SKIP
     PUBLIC B
     B=素数
     SKIP
     PUBLIC C
     C=素数
     SKIP
     PUBLIC D
     D=素数
     IF B-A=2 AND C-B=4 AND D-C=2
          SELECT 2
          APPEND BLANK     &&增加一条空记录
         REPLACE 四素 WITH A+4  &&将N值付给素数式
     ENDIF
       SELECT 1
       GO jl+1
    ENDFOR
     =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

白新岭

截止2022年3月16日周三农历二月十四19:45分，热度73，回复1364，浏览量47711.

白新岭

SELECT 1
USE d:\素数表文件\最密四生素数.DBF ALIAS 四素表
SELECT 2
USE d:\素数表文件\素数表亿.DBF ALIAS 素数表
SELECT 3
USE d:\素数表文件\偶数表.DBF ALIAS 偶数表

kssj=SECONDS()
bwjm="一素加四中百万"

For i=1 TO 1
        @ 5,12 say i
        wd=bwjm+ALLTRIM(STR(i))
            SELECT 3
            DELETE ALL
            PACK      
            SELECT 1
             GO 1
                 FOR k1=1  TO  165
                 @ 15,22 say k1
                 A=四素
                jl1=recno()
                   SELECT  2
                   GO 1
                   For k2=1 to 78497
                   jl2=recno()
                   B=素数
                  C=A+B
                   SELECT 3
                   APPEND BLANK   
                   REPLACE 偶数 WITH C   
                   SELECT 2
                   GO jl2+1
                   ENDFOR
                 SELECT 1
                 GO jl1+1
               ENDFOR   
           
         SELECT 3
         USE IN 3&&打开，或关闭，那个工作区（或者，写别名）
      
        USE d:\素数表文件\偶数表.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:\素数表文件\&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:\素数表文件\素数表亿.DBF ALIAS 素数表
SELECT 2
USE d:\素数表文件\四生素数424.DBF ALIAS 四素表
kssj=SECONDS()
SELECT  1
GO 1
For i=1 to 78497
       @ 5,12 say i
     SELECT  1     &&打开盛放素数式的表
    jl=recno()
     PUBLIC A
     A=素数
    &&  COUNT NEXT 28 FOR 素数-A=56 TO tj
    SKIP
     PUBLIC B
     B=素数
     SKIP
     PUBLIC C
     C=素数
     SKIP
     PUBLIC D
     D=素数
     IF B-A=4 AND C-B=2 AND D-C=4
          SELECT 2
          APPEND BLANK     &&增加一条空记录
         REPLACE 四素 WITH A+5  &&将N值付给素数式
     ENDIF
       SELECT 1
       GO jl+1
    ENDFOR
     =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
编程就是我的进展史

白新岭

SELECT 1
USE D:\素数式系数\素数表亿.dbf ALIAS 素数表
kssj=SECONDS()  &&取出开始时间
SELECT 1
GO 4
    s=1.000000000000000
       FOR  j=1 TO 22686420
        SELECT 1
        p=素数
              && jl=RECCOUNT()
               s=s*p*(p-5)/(p-1)/(p-4)
              
     
         SELECT 1
               skip
  ENDFOR
  
?s
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

白新岭

SELECT 1
USE d:\素数表文件\素数表亿.DBF ALIAS 素数表
SELECT 2
USE d:\素数表文件\四生素数426.DBF ALIAS 四素表
kssj=SECONDS()
SELECT  1
GO 1
For i=1 to 78497
       @ 5,12 say i
     SELECT  1     &&打开盛放素数式的表
    jl=recno()
     PUBLIC A
     A=素数
    &&  COUNT NEXT 28 FOR 素数-A=56 TO tj
    SKIP
     PUBLIC B
     B=素数
     SKIP
     PUBLIC C
     C=素数
     COUNT NEXT 3 FOR 素数-C=6 TO tj
     IF B-A=4 AND C-B=2 AND tj=1
          SELECT 2
          APPEND BLANK     &&增加一条空记录
         REPLACE 四素 WITH A+6  &&将N值付给素数式
     ENDIF
       SELECT 1
       GO jl+1
    ENDFOR
     =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
编程留下了我研究素数问题的脚印。

白新岭

SELECT 1
USE d:\素数表文件\四生素数426.DBF ALIAS 四素表
SELECT 2
USE d:\素数表文件\素数表亿.DBF ALIAS 素数表
SELECT 3
USE d:\素数表文件\偶数表.DBF ALIAS 偶数表

kssj=SECONDS()
bwjm="一素加四中d12百万"

For i=1 TO 1
        @ 5,12 say i
        wd=bwjm+ALLTRIM(STR(i))
            SELECT 3
            DELETE ALL
            PACK      
            SELECT 1
             GO 1
                 FOR k1=1  TO  193
                 @ 15,22 say k1
                 A=四素
                jl1=recno()
                   SELECT  2
                   GO 3
                   For k2=1 to 78495
                   jl2=recno()
                   B=素数
                  C=A+B
                   SELECT 3
                   APPEND BLANK   
                   REPLACE 偶数 WITH C   
                   SELECT 2
                   GO jl2+1
                   ENDFOR
                 SELECT 1
                 GO jl1+1
               ENDFOR   
           
         SELECT 3
         USE IN 3&&打开，或关闭，那个工作区（或者，写别名）
      
        USE d:\素数表文件\偶数表.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:\素数表文件\&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:\素数表文件\素数表亿.DBF ALIAS 素数表
SELECT 2
USE d:\素数表文件\等差4生素数d6.DBF ALIAS 四素表
kssj=SECONDS()
SELECT  1
GO 1
For i=1 to 78497
       @ 5,12 say i
     SELECT  1     &&打开盛放素数式的表
    jl=recno()
     PUBLIC A
     A=素数
    COUNT next 3 FOR 素数-A=6 TO tj1
    GO jl
    COUNT next 5 FOR 素数-A=12 TO tj2
    GO jl
    COUNT next 7 FOR 素数-A=18 TO tj3
     IF  tj1+tj2+tj3=3
          SELECT 2
          APPEND BLANK     &&增加一条空记录
         REPLACE 四素 WITH A+9  &&将N值付给素数式
     ENDIF
       SELECT 1
       GO jl+1
    ENDFOR
     =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
今天分析一素+等差4生素数(0,6,12,18)的中项合成运算（合成数分布情况）。

白新岭

SELECT 1
USE d:\素数表文件\等差4生素数d6.DBF ALIAS 四素表
SELECT 2
USE d:\素数表文件\素数表亿.DBF ALIAS 素数表
SELECT 3
USE d:\素数表文件\偶数表.DBF ALIAS 偶数表

kssj=SECONDS()
bwjm="一素加四中等差d6百万"

For i=1 TO 1
        @ 5,12 say i
        wd=bwjm+ALLTRIM(STR(i))
            SELECT 3
            DELETE ALL
            PACK      
            SELECT 1
             GO 1
                 FOR k1=1  TO  324
                 @ 15,22 say k1
                 A=四素
                jl1=recno()
                   SELECT  2
                   GO 3
                   For k2=1 to 78495
                   jl2=recno()
                   B=素数
                  C=A+B
                   SELECT 3
                   APPEND BLANK   
                   REPLACE 偶数 WITH C   
                   SELECT 2
                   GO jl2+1
                   ENDFOR
                 SELECT 1
                 GO jl1+1
               ENDFOR   
           
         SELECT 3
         USE IN 3&&打开，或关闭，那个工作区（或者，写别名）
      
        USE d:\素数表文件\偶数表.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:\素数表文件\&wd
         
        USE IN &wd
        
      ENDFOR
      =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")