SELECT 1
USE D:\最密三生素数文件\素数表.dbf ALIAS 素数表
kssj=SECONDS()  &&取出开始时间
s=1.000000000000000000
SELECT 1
  GO 5
  A=素数
  s=s*(A^6*(A-7)/(A-1)^7)
        SKIP 1
        FOR  j=1 TO 50876228
        SELECT 1
        B=素数
        s=s*(B^6*(B-7)/(B-1)^7)
        SELECT 1  
        SKIP
        ENDFOR

?s
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
求最密7生素数的后续系数
0.3694375108626990
前期系数：146.0922261
最终结果（7生素数系数）53.9719483696988000

0,2,6,8,12,18,20,26
SELECT 1
USE D:\最密三生素数文件\素数表.dbf ALIAS 素数表
kssj=SECONDS()  &&取出开始时间
s=1.000000000000000000
SELECT 1
  GO 7
  A=素数
  s=s*(A^7*(A-8)/(A-1)^8)
        SKIP 1
        FOR  j=1 TO 50876228
        SELECT 1
        B=素数
        s=s*(B^7*(B-8)/(B-1)^8)
        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 素数表
kssj=SECONDS()  &&取出开始时间
s=1.000000000000000000
SELECT 1
  GO 7
  A=素数
  s=s*(A^8*(A-9)/(A-1)^9)
        SKIP 1
        FOR  j=1 TO 50876228
        SELECT 1
        B=素数
        s=s*(B^8*(B-9)/(B-1)^9)
        SELECT 1  
        SKIP
        ENDFOR

?s
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
s=0.44325470144056700

SELECT 1
USE D:\最密三生素数文件\素数表.dbf ALIAS 素数表
kssj=SECONDS()  &&取出开始时间
s=1.000000000000000000
SELECT 1
  GO 7
  A=素数
  s=s*(A^9*(A-10)/(A-1)^10)
        SKIP 1
        FOR  j=1 TO 50876228
        SELECT 1
        B=素数
        s=s*(B^9*(B-10)/(B-1)^10)
        SELECT 1  
        SKIP
        ENDFOR

?s
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
s=0.345052546194588

SELECT 1
USE D:\最密三生素数文件\素数表.dbf ALIAS 素数表
kssj=SECONDS()  &&取出开始时间
s=1.000000000000000000
SELECT 1
  GO 8
  A=素数
  s=s*(A^10*(A-11)/(A-1)^11)
        SKIP 1
        FOR  j=1 TO 50876228
        SELECT 1
        B=素数
        s=s*(B^10*(B-11)/(B-1)^11)
        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 素数表
kssj=SECONDS()  &&取出开始时间
s=1.000000000000000000
SELECT 1
  GO 8
  A=素数
  s=s*(A^11*(A-12)/(A-1)^12)
        SKIP 1
        FOR  j=1 TO 50876228
        SELECT 1
        B=素数
        s=s*(B^11*(B-12)/(B-1)^12)
        SELECT 1  
        SKIP
        ENDFOR

?s
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
s=0.289234633707104

SELECT 1
   USE D:\最密三生素数文件\素数表.DBF ALIAS 素数表
   SELECT 2
   USE D:\最密三生素数文件\正三中项.DBF ALIAS 正三中
   kssj=SECONDS()
   SELECT 1
   GO 1
   For i=1 to 50876228
    @ 5,12 say i
   SELECT 1 &&打开盛放素数的表
   jl=recno()
   PUBLIC A
   A=素数
   SKIP 1
   PUBLIC B
   B=素数
   SKIP 1
   PUBLIC C
   C=素数
   cj1=B-A &&求前后两个素数的差值
   cj2=C-B &&求前后两个素数的差值
     IF cj1=2 AND cj2=4
     SELECT 2
     APPEND BLANK  &&增加一条空记录
     REPLACE zszx WITH A+3 &&将A+3付给变量zszx
     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 1
   For i=1 to 50876228
    @ 5,12 say i
   SELECT 1 &&打开盛放素数的表
   jl=recno()
   PUBLIC A
   A=素数
   SKIP 1
   PUBLIC B
   B=素数
   SKIP 1
   PUBLIC C
   C=素数
   cj1=B-A &&求前后两个素数的差值
   cj2=C-B &&求前后两个素数的差值
     IF cj1=4 AND cj2=2
     SELECT 2
     APPEND BLANK  &&增加一条空记录
     REPLACE nszx WITH A+3 &&将A+3付给变量zszx
     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:\最密三生素数文件\最密4生素数.DBF ALIAS 密4中
   kssj=SECONDS()
   SELECT 1
   GO 1
   For i=1 to 50876228
    @ 5,12 say i
   SELECT 1 &&打开盛放素数的表
   jl=recno()
   PUBLIC A
   A=素数
   SKIP 1
   PUBLIC B
   B=素数
   SKIP 1
   PUBLIC C
   C=素数
   SKIP 1
   PUBLIC D
   D=素数
   cj1=B-A &&求前后两个素数的差值
   cj2=C-B &&求前后两个素数的差值
   cj3=D-C &&求前后两个素数的差值
     IF cj1=2 AND cj2=4 AND cj3=2
     SELECT 2
     APPEND BLANK  &&增加一条空记录
     REPLACE szx WITH A+4 &&将A+4付给变量szx
     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:\最密三生素数文件\最密4生素数.DBF ALIAS 四中项
   SELECT 2
   USE d:\最密三生素数文件\统计最密4中项.DBF ALIAS 四中统计
   
   kssj=SECONDS()
   FOR i=1 TO 10
      @ 3,6 say i
        fw=10^i
        SELECT 1
        COUNT ALL FOR szx<fw TO tj
         SELECT 2
         APPEND BLANK     &&增加一条空记录
         REPLACE n WITH i
         REPLACE 范围 WITH fw
         REPLACE 总量 WITH tj
   ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")