注册 登录
编程论坛 → VFP论坛

简单的筛选二生素数程序

独木星空 发布于 2025-03-18 08:13， 3028 次点击
SELECT 1
USE D:\素数式系数\素数表十亿.DBF ALIAS 素数表
SELECT 2
USE D:\素数式系数\二生素数jg20.DBF ALIAS 二生素数表
kssj=SECONDS()
SELECT  1
GO 1
For i=1 to 50847534
      @ 5,12 say i
    SELECT  1     &&打开盛放素数式的表
    jl=recno()
    PUBLIC A
    A=素数
    SKIP 1
    PUBLIC B
    B=素数
    cj1=B-A  &&求前后两个素数的差值
    IF cj1=20
         SELECT 2
         APPEND BLANK     &&增加一条空记录
         REPLACE ers20 WITH A+10   &&将N值付给素数式
    ENDIF
      SELECT 1
      GO jl+1
   ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
250 回复
#202
独木星空2025-07-04 11:08
SELECT 1
    USE d:\最密四生素数文件\四中和值4复中没有的.DBF ALIAS 四中和复4没有
    SELECT 2
    USE d:\最密四生素数文件\四中特例统计.DBF ALIAS 四中特例统计
   
    kssj=SECONDS()
    FOR i=1 TO 46
      @ 3,6 say i
        fw=i*19399380+1338557220
        SELECT 1
        COUNT ALL FOR szhz4<fw TO tj
         SELECT 2
         APPEND BLANK     &&增加一条空记录
         REPLACE 区间 WITH i+69
         REPLACE 范围 WITH fw
         REPLACE 总量 WITH tj
    ENDFOR
     =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
#203
独木星空2025-07-04 11:32
SELECT 1
    USE d:\最密四生素数文件\四中和值6复中没有的.DBF ALIAS 四中和复6没有
    SELECT 2
    USE d:\最密四生素数文件\四中特例统计.DBF ALIAS 四中特例统计
   
    kssj=SECONDS()
    FOR i=1 TO 46
      @ 3,6 say i
        fw=i*19399380+2230928700
        SELECT 1
        COUNT ALL FOR szhz6<fw TO tj
         SELECT 2
         APPEND BLANK     &&增加一条空记录
         REPLACE 区间 WITH i+115
         REPLACE 范围 WITH fw
         REPLACE 总量 WITH tj
    ENDFOR
     =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
#204
独木星空2025-07-04 17:19
SELECT 1
    USE d:\最密四生素数文件\四中和值8复中没有的.DBF ALIAS 四中和复8没有
    SELECT 2
    USE d:\最密四生素数文件\四中特例统计.DBF ALIAS 四中特例统计
   
    kssj=SECONDS()
    FOR i=1 TO 46
      @ 3,6 say i
        fw=i*19399380+3123300180
        SELECT 1
        COUNT ALL FOR szhz8<fw TO tj
         SELECT 2
         APPEND BLANK     &&增加一条空记录
         REPLACE 区间 WITH i+161
         REPLACE 范围 WITH fw
         REPLACE 总量 WITH tj
    ENDFOR
     =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
#205
独木星空2025-07-04 17:33
SELECT 1
    USE d:\最密四生素数文件\四中和值10复中没有的.DBF ALIAS 四中和复10没有
    SELECT 2
    USE d:\最密四生素数文件\四中特例统计.DBF ALIAS 四中特例统计
   
    kssj=SECONDS()
    FOR i=1 TO 46
      @ 3,6 say i
        fw=i*19399380+4015671660
        SELECT 1
        COUNT ALL FOR szhz10<fw TO tj
         SELECT 2
         APPEND BLANK     &&增加一条空记录
         REPLACE 区间 WITH i+207
         REPLACE 范围 WITH fw
         REPLACE 总量 WITH tj
    ENDFOR
     =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
#206
独木星空2025-07-04 17:42
SELECT 1
    USE d:\最密四生素数文件\四中和值12复中没有的.DBF ALIAS 四中和复12没有
    SELECT 2
    USE d:\最密四生素数文件\四中特例统计.DBF ALIAS 四中特例统计
   
    kssj=SECONDS()
    FOR i=1 TO 46
      @ 3,6 say i
        fw=i*19399380+4908043140
        SELECT 1
        COUNT ALL FOR szhz12<fw TO tj
         SELECT 2
         APPEND BLANK     &&增加一条空记录
         REPLACE 区间 WITH i+253
         REPLACE 范围 WITH fw
         REPLACE 总量 WITH tj
    ENDFOR
     =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
#207
独木星空2025-07-04 17:51
SELECT 1
    USE d:\最密四生素数文件\四中和值14复中没有的.DBF ALIAS 四中和复14没有
    SELECT 2
    USE d:\最密四生素数文件\四中特例统计.DBF ALIAS 四中特例统计
   
    kssj=SECONDS()
    FOR i=1 TO 46
      @ 3,6 say i
        fw=i*19399380+5800414620
        SELECT 1
        COUNT ALL FOR szhz14<fw TO tj
         SELECT 2
         APPEND BLANK     &&增加一条空记录
         REPLACE 区间 WITH i+299
         REPLACE 范围 WITH fw
         REPLACE 总量 WITH tj
    ENDFOR
     =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
#208
独木星空2025-07-04 18:02
SELECT 1
    USE d:\最密四生素数文件\四中和值16复中没有的.DBF ALIAS 四中和复16没有
    SELECT 2
    USE d:\最密四生素数文件\四中特例统计.DBF ALIAS 四中特例统计
   
    kssj=SECONDS()
    FOR i=1 TO 46
      @ 3,6 say i
        fw=i*19399380+6692786100
        SELECT 1
        COUNT ALL FOR szhz16<fw TO tj
         SELECT 2
         APPEND BLANK     &&增加一条空记录
         REPLACE 区间 WITH i+345
         REPLACE 范围 WITH fw
         REPLACE 总量 WITH tj
    ENDFOR
     =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
#209
独木星空2025-07-05 10:44
SELECT 1
     USE d:\最密四生素数文件\四中和值2复中没有的.DBF ALIAS 四中和复没有
     kssj=SECONDS()
      SELECT 1
      GO 1
      FOR i=1 TO 511250
     @ 3,6 say i
      jl=recno()
      PUBLIC A
      A=szhz2f
       s=MOD(A,210)
       SELECT 1
       REPLACE mod210 WITH s
       GO jl+1
       ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
#210
独木星空2025-07-06 10:02
SELECT 1
    USE d:\最密四生素数文件\四中和值2复中没有mod210为30.DBF ALIAS 四中和复2没有
    SELECT 2
    USE d:\最密四生素数文件\四中特例统计模30.DBF ALIAS 四中特例统计
   
    kssj=SECONDS()
    FOR i=1 TO 138
      @ 3,6 say i
        fw=i*9699690
        SELECT 1
        COUNT ALL FOR szhz2f<fw TO tj
         SELECT 2
         APPEND BLANK     &&增加一条空记录
         REPLACE 序号 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,"运行时间提示")
#211
独木星空2025-07-06 10:13
SELECT 1
    USE d:\最密四生素数文件\四中和值2复中没有mod210为180.DBF ALIAS 四中和复2没有
    SELECT 2
    USE d:\最密四生素数文件\四中特例统计模30.DBF ALIAS 四中特例统计
   
    kssj=SECONDS()
    FOR i=1 TO 138
      @ 3,6 say i
        fw=i*9699690
        SELECT 1
        COUNT ALL FOR szhz2f<fw TO tj
         SELECT 2
         APPEND BLANK     &&增加一条空记录
         REPLACE 序号 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,"运行时间提示")
#212
独木星空2025-07-06 10:19
SELECT 1
    USE d:\最密四生素数文件\四中和值2复中没有mod210为180.DBF ALIAS 四中和复2没有
    SELECT 2
    USE d:\最密四生素数文件\四中特例统计模180.DBF ALIAS 四中特例统计
   
    kssj=SECONDS()
    FOR i=1 TO 138
      @ 3,6 say i
        fw=i*9699690
        SELECT 1
        COUNT ALL FOR szhz2f<fw TO tj
         SELECT 2
         APPEND BLANK     &&增加一条空记录
         REPLACE 序号 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,"运行时间提示")
#213
独木星空2025-07-12 10:49
SELECT 1
USE D:\最密三生素数文件\素数表.dbf ALIAS 素数表
kssj=SECONDS()  &&取出开始时间
s=2.250000000000000000
SELECT 1
  GO 3
  A=素数
  s=s*(A^2*(A-3)/(A-1)^3)
        SKIP 1
        FOR  j=1 TO 50876228
        SELECT 1
        B=素数
        s=s*(B^2*(B-3)/(B-1)^3)
        SELECT 1  
        SKIP
        ENDFOR

?s
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
#214
独木星空2025-07-12 11:03
SELECT 1
USE D:\最密三生素数文件\素数表.dbf ALIAS 素数表
kssj=SECONDS()  &&取出开始时间
s=1.000000000000000000
SELECT 1
  GO 3
  A=素数
  s=s*(A^3*(A-4)/(A-1)^4)
        SKIP 1
        FOR  j=1 TO 50876228
        SELECT 1
        B=素数
        s=s*(B^3*(B-4)/(B-1)^4)
        SELECT 1  
        SKIP
        ENDFOR

?s
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
#215
独木星空2025-07-12 11:20
SELECT 1
USE D:\最密三生素数文件\素数表.dbf ALIAS 素数表
kssj=SECONDS()  &&取出开始时间
s=1.000000000000000000
SELECT 1
  GO 4
  A=素数
  s=s*(A^4*(A-5)/(A-1)^5)
        SKIP 1
        FOR  j=1 TO 50876228
        SELECT 1
        B=素数
        s=s*(B^4*(B-5)/(B-1)^5)
        SELECT 1  
        SKIP
        ENDFOR

?s
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
#216
独木星空2025-07-12 11:29
SELECT 1
USE D:\最密三生素数文件\素数表.dbf ALIAS 素数表
kssj=SECONDS()  &&取出开始时间
s=1.000000000000000000
SELECT 1
  GO 4
  A=素数
  s=s*(A^5*(A-6)/(A-1)^6)
        SKIP 1
        FOR  j=1 TO 50876228
        SELECT 1
        B=素数
        s=s*(B^5*(B-6)/(B-1)^6)
        SELECT 1  
        SKIP
        ENDFOR

?s
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
#217
独木星空2025-07-18 11:02
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
#218
独木星空2025-07-18 11:29
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,"运行时间提示")
#219
独木星空2025-07-18 22:01
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
#220
独木星空2025-07-19 11:22
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
#221
独木星空2025-07-19 12:58
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,"运行时间提示")
#222
独木星空2025-07-19 13:00
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
#223
独木星空2025-07-19 16:43
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,"运行时间提示")
用素数表制作最密三生素数中项
#224
独木星空2025-07-19 17:43
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,"运行时间提示")
用素数表制作最密三生素数中项逆元
#225
独木星空2025-07-19 21:41
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,"运行时间提示")
#226
独木星空2025-07-19 22:51
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,"运行时间提示")
#227
独木星空2025-07-20 09:39
SELECT 1
   USE D:\最密三生素数文件\素数表.DBF ALIAS 素数表
   SELECT 2
   USE D:\最密三生素数文件\最密5生素数.DBF ALIAS 密5中
   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=素数
   SKIP 1
   PUBLIC E
   E=素数
   cj1=B-A &&求前后两个素数的差值
   cj2=C-B &&求前后两个素数的差值
   cj3=D-C &&求前后两个素数的差值
   cj4=E-D &&求前后两个素数的差值
     IF cj1=2 AND cj2=4 AND cj3=2 AND cj4=4
     SELECT 2
     APPEND BLANK  &&增加一条空记录
     REPLACE wss WITH A+6 &&将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,"运行时间提示")
用素数表制作最密5生素数中项
#228
独木星空2025-07-20 10:58
SELECT 1
   USE d:\最密三生素数文件\最密5生素数.DBF ALIAS 五中项
   SELECT 2
   USE d:\最密三生素数文件\统计最密5中项.DBF ALIAS 五中统计
   
   kssj=SECONDS()
   FOR i=1 TO 10
      @ 3,6 say i
        fw=10^i
        SELECT 1
        COUNT ALL FOR wss<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,"运行时间提示")
统计最密5生素数
#229
独木星空2025-07-20 11:06
SELECT 1
   USE D:\最密三生素数文件\素数表.DBF ALIAS 素数表
   SELECT 2
   USE D:\最密三生素数文件\最密5生素数逆.DBF ALIAS 密5中逆
   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=素数
   SKIP 1
   PUBLIC E
   E=素数
   cj1=B-A &&求前后两个素数的差值
   cj2=C-B &&求前后两个素数的差值
   cj3=D-C &&求前后两个素数的差值
   cj4=E-D &&求前后两个素数的差值
     IF cj1=4 AND cj2=2 AND cj3=4 AND cj4=2
     SELECT 2
     APPEND BLANK  &&增加一条空记录
     REPLACE nwss WITH A+6 &&将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,"运行时间提示")
用素数表制作最密5生素数逆(0,4,2,4,2)
#230
独木星空2025-07-20 16:52
SELECT 1
   USE D:\最密三生素数文件\素数表.DBF ALIAS 素数表
   SELECT 2
   USE D:\最密三生素数文件\最密6生素数.DBF ALIAS 密6中
   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=素数
   SKIP 1
   PUBLIC E
   E=素数
   SKIP 1
   PUBLIC F
   F=素数
   cj1=B-A &&求前后两个素数的差值
   cj2=C-B &&求前后两个素数的差值
   cj3=D-C &&求前后两个素数的差值
   cj4=E-D &&求前后两个素数的差值
   cj5=F-E &&求前后两个素数的差值
     IF cj1=4 AND cj2=2 AND cj3=4 AND cj4=2 AND cj5=4
     SELECT 2
     APPEND BLANK  &&增加一条空记录
     REPLACE lss WITH A+8 &&将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,"运行时间提示")
#231
独木星空2025-07-20 16:58
SELECT 1
   USE D:\最密三生素数文件\素数表.DBF ALIAS 素数表
   SELECT 2
   USE D:\最密三生素数文件\最密6生素数.DBF ALIAS 密6中
   kssj=SECONDS()
   SELECT 1
   GO 1
   For i=1 to 50876228
    @ 5,12 say i
   SELECT 1 &&打开盛放素数的表
   jl=recno()
   PUBLIC A
   A=素数
   SKIP 5
   PUBLIC B
   B=素数
   cj1=B-A &&求前后两个素数的差值
     IF cj1=16
     SELECT 2
     APPEND BLANK  &&增加一条空记录
     REPLACE lss WITH A+8 &&将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,"运行时间提示")
用素数表制作最密6生素数简
#232
独木星空2025-07-20 23:33
SELECT 1
   USE D:\最密三生素数文件\素数表.DBF ALIAS 素数表
   SELECT 2
   USE D:\最密三生素数文件\最密7生素数.DBF ALIAS 密7中
   kssj=SECONDS()
   SELECT 1
   GO 1
   For i=1 to 50876228
    @ 5,12 say i
   SELECT 1 &&打开盛放素数的表
   jl=recno()
   PUBLIC A
   A=素数
   SKIP 4
   PUBLIC B
   B=素数
   SKIP 2
   PUBLIC C
   C=素数
   cj1=B-A &&求前后两个素数的差值
   cj2=C-B &&求前后两个素数的差值
     IF cj1=12 AND cj2=8
     SELECT 2
     APPEND BLANK  &&增加一条空记录
     REPLACE qss WITH A+10 &&将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,"运行时间提示")
用素数表制作最密7生素数中项
#233
独木星空2025-07-21 11:40
SELECT 1
   USE D:\最密三生素数文件\素数表.DBF ALIAS 素数表
   SELECT 2
   USE D:\最密三生素数文件\最密7生素数逆.DBF ALIAS 密7中逆
   kssj=SECONDS()
   SELECT 1
   GO 1
   For i=1 to 50876228
    @ 5,12 say i
   SELECT 1 &&打开盛放素数的表
   jl=recno()
   PUBLIC A
   A=素数
   SKIP 2
   PUBLIC B
   B=素数
   SKIP 4
   PUBLIC C
   C=素数
   cj1=B-A &&求前后两个素数的差值
   cj2=C-B &&求前后两个素数的差值
     IF cj1=8 AND cj2=12
     SELECT 2
     APPEND BLANK  &&增加一条空记录
     REPLACE nqss WITH A+10 &&将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,"运行时间提示")
用素数表筛选最密7生素数中项（0,2,8,12,14,18,20）
#234
独木星空2025-07-21 12:49
SELECT 1
   USE D:\最密三生素数文件\素数表.DBF ALIAS 素数表
   SELECT 2
   USE D:\最密三生素数文件\最密8生素数.DBF ALIAS 密8中
   kssj=SECONDS()
   SELECT 1
   GO 1
   For i=1 to 50876228
    @ 5,12 say i
   SELECT 1 &&打开盛放素数的表
   jl=recno()
   PUBLIC A
   A=素数
   SKIP 4
   PUBLIC B
   B=素数
   SKIP 3
   PUBLIC C
   C=素数
   cj1=B-A &&求前后两个素数的差值
   cj2=C-B &&求前后两个素数的差值
     IF cj1=12 AND cj2=14
     SELECT 2
     APPEND BLANK  &&增加一条空记录
     REPLACE bss WITH A+13 &&将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,"运行时间提示")
用素数表筛选最密8生素数（0,2,6,8,12,18,20,26）
#235
独木星空2025-07-21 15:21
SELECT 1
   USE D:\最密三生素数文件\素数表.DBF ALIAS 素数表
   SELECT 2
   USE D:\最密三生素数文件\最密8生素数逆.DBF ALIAS 密8中逆
   kssj=SECONDS()
   SELECT 1
   GO 1
   For i=1 to 50876228
    @ 5,12 say i
   SELECT 1 &&打开盛放素数的表
   jl=recno()
   PUBLIC A
   A=素数
   SKIP 3
   PUBLIC B
   B=素数
   SKIP 4
   PUBLIC C
   C=素数
   cj1=B-A &&求前后两个素数的差值
   cj2=C-B &&求前后两个素数的差值
     IF cj1=14 AND cj2=12
     SELECT 2
     APPEND BLANK  &&增加一条空记录
     REPLACE nbss WITH A+13 &&将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,"运行时间提示")
#236
独木星空2025-07-21 16:08
SELECT 1
   USE D:\最密三生素数文件\素数表.DBF ALIAS 素数表
   SELECT 2
   USE D:\最密三生素数文件\最密8生素数中.DBF ALIAS 密8中中
   kssj=SECONDS()
   SELECT 1
   GO 1
   For i=1 to 50876228
    @ 5,12 say i
   SELECT 1 &&打开盛放素数的表
   jl=recno()
   PUBLIC A
   A=素数
   SKIP 4
   PUBLIC B
   B=素数
   SKIP 3
   PUBLIC C
   C=素数
   cj1=B-A &&求前后两个素数的差值
   cj2=C-B &&求前后两个素数的差值
     IF cj1=14 AND cj2=12
     SELECT 2
     APPEND BLANK  &&增加一条空记录
     REPLACE zbss WITH A+13 &&将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,"运行时间提示")
用素数表筛选最密8生素数中项（0,2,6,12,14,20,24,26）
#237
独木星空2025-07-21 16:57
SELECT 1
   USE D:\最密三生素数文件\素数表.DBF ALIAS 素数表
   SELECT 2
   USE D:\最密三生素数文件\最密9生素数.DBF ALIAS 密9中
   kssj=SECONDS()
   SELECT 1
   GO 1
   For i=1 to 50876228
    @ 5,12 say i
   SELECT 1 &&打开盛放素数的表
   jl=recno()
   PUBLIC A
   A=素数
   SKIP 4
   PUBLIC B
   B=素数
   SKIP 4
   PUBLIC C
   C=素数
   cj1=B-A &&求前后两个素数的差值
   cj2=C-B &&求前后两个素数的差值
     IF cj1=12 AND cj2=18
     SELECT 2
     APPEND BLANK  &&增加一条空记录
     REPLACE jss WITH A+15 &&将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,"运行时间提示")
用素数表筛选最密9生素数中项0,2,6,8,12,18,20,26,30
#238
独木星空2025-07-22 18:16
  SELECT 1
   USE  d:\最密三生素数文件\对称8素13.DBF ALIAS 对称8素13
   SELECT 2
    USE  d:\最密三生素数文件\对称8素末.DBF ALIAS 对称8素11
    kssj=SECONDS()                      &&取出开始时间
    For N=1 to 13
    @ 3,6 say N
       SELECT 2
       go 1
       for m=1 to 8
           && @ 4,8 say 孪素
           X=dc8s+2310*(N-1)
           MZ=X%13
                IF  MZ=0 OR MZ=1 OR MZ=2 OR MZ=6 OR MZ=7 OR MZ=11 OR MZ=12
                  else
                  SELECT   1      &&打开盛放素数的表
                  APPEND BLANK                &&增加一条空记录
                  REPLACE dc8s13 WITH X     &&将N值付给素
                ENDIF
                SELECT 2
                SKIP
       endfor
    ENDFOR
   =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
制作最密对称8生元（从11升级到13）
#239
独木星空2025-07-22 18:28
SELECT 1
   USE  d:\最密三生素数文件\对称8素13.DBF ALIAS 对称8素13
   SELECT 2
   USE  d:\最密三生素数文件\对称8素17.DBF ALIAS 对称8素17
    kssj=SECONDS()                      &&取出开始时间
    For N=1 to 17
    @ 3,6 say N
       SELECT 1
       go 1
       for m=1 to 48
           && @ 4,8 say 孪素
           X=dc8s13+30030*(N-1)
           MZ=X%17
                IF  MZ=0 OR MZ=2 OR MZ=3 OR MZ=6 OR MZ=7 OR MZ=9 OR MZ=12 OR MZ=14
                  else
                  SELECT   2      &&打开盛放素数的表
                  APPEND BLANK                &&增加一条空记录
                  REPLACE dc8s17 WITH X     &&将N值付给素
                ENDIF
                SELECT 2
                SKIP
       endfor
    ENDFOR
   =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
制作最密对称8生元（从13升级到17）
#240
独木星空2025-07-22 19:47
SELECT 1
   USE  d:\最密三生素数文件\对称8素17.DBF ALIAS 对称8素17
   SELECT 2
   USE  d:\最密三生素数文件\对称8素19.DBF ALIAS 对称8素19
    kssj=SECONDS()                      &&取出开始时间
    For N=1 to 19
    @ 3,6 say N
       SELECT 1
       go 1
       for m=1 to 432
           && @ 4,8 say 孪素
           X=dc8s17+510510*(N-1)
           MZ=X%19
                IF  MZ=0 OR MZ=1 OR MZ=2 OR MZ=5 OR MZ=6 OR MZ=7 OR MZ=12 OR MZ=14
                  else
                  SELECT   2      &&打开盛放素数的表
                  APPEND BLANK                &&增加一条空记录
                  REPLACE dc8s19 WITH X     &&将N值付给素
                ENDIF
                SELECT 1
                SKIP
       endfor
    ENDFOR
   =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
制作最密对称8生元（从17升级到19）
#241
独木星空2025-07-22 20:12
SELECT 1
   USE  d:\最密三生素数文件\对称8素23.DBF ALIAS 对称8素23
   SELECT 2
   USE  d:\最密三生素数文件\对称8素29.DBF ALIAS 对称8素29
    kssj=SECONDS()                      &&取出开始时间
    For N=1 to 29
    @ 3,6 say N
       SELECT 1
       go 1
       for m=1 to 71280
           && @ 4,8 say 孪素
           X=dc8s23+223092870*(N-1)
           MZ=X%29
                IF  MZ=0 OR MZ=2 OR MZ=6 OR MZ=12 OR MZ=14 OR MZ=20 OR MZ=24 OR MZ=26
                  else
                  SELECT   2      &&打开盛放素数的表
                  APPEND BLANK                &&增加一条空记录
                  REPLACE dc8s29 WITH X     &&将N值付给素
                ENDIF
                SELECT 1
                SKIP
       endfor
    ENDFOR
   =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
制作最密对称8生元（从23升级到29）
#242
独木星空2025-07-22 20:30
CLEAR ALL
SELECT 1
USE d:\最密三生素数文件\素数表.DBF ALIAS 素数表
SELECT 2
USE d:\最密三生素数文件\对称8素29.DBF ALIAS 对称8素
SELECT 3
USE d:\最密三生素数文件\对称8素表.DBF ALIAS 对称8素表
     kssj=SECONDS()                      &&取出开始时间
  For i=1 to 2
         @ 3,6 say i
         SELECT 2
       go 1
       SELECT 2
    for m=1 to 1496880
       k=dc8s29
       N=k+6469693230*(i-1)
        Kf=INT(SQRT(N))       &&求出奇数的开方根
        SELECT  1             &&打开素数表
        LOCATE FOR 素数>=kf      &&根据开方根,查找最大素数
        DO CASE
                CASE EOF()          &&如果超出素数表最后一条记录
                        GO BOTTOM
                CASE 素数>kf     &&如果找到的素数比开方根值大,就将记录指针退回一个,保证使用的最大素数在开方根内
                        SKIP -1
        ENDCASE
        SSS=RECNO()    &&记录下最大素数（开方根内）记录位置（如果找到的素数等于开方根，则直接读取这个素数的位置）
        GO 11           &&从第一条记录开始读取素数(3)
        FOR j=1 TO SSS-10      &&内循环开始。这个循环实质上是从小到大顺序,依次读取素数。循环值是记录序号
                qmz=MOD(N,素数)   &&以读取的素数为条件,对被判断值求模 【qmz=MOD(bpz,素数)】文本号括着的原在此行语句体部分.特别需要注意的是在用标点符号时，一定改成英文模式及半角状态。
                IF qmz=0 OR qmz=2  OR MZ=6 OR MZ=12 OR MZ=14 OR MZ=20 OR MZ=24 OR MZ=26
                        EXIT         
                ENDIF
                SKIP            &&素数表指针向下移动一个
        ENDFOR
        IF j>sss-10
                SELECT  3  &&打开盛放素数的表
                APPEND BLANK                        &&增加一条空记录
                REPLACE dc8s WITH N             &&将N值付给素数
        ENDIF
        SELECT 2
        skip
      ENDFOR
   ENDFOR
        =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
用生成元制作最密8生素数
#243
独木星空2025-07-22 20:39
CLEAR ALL
SELECT 1
USE d:\最密三生素数文件\素数表.DBF ALIAS 素数表
SELECT 2
USE d:\最密三生素数文件\对称8素29.DBF ALIAS 对称8素
SELECT 3
USE d:\最密三生素数文件\对称8素表.DBF ALIAS 对称8素表
     kssj=SECONDS()                      &&取出开始时间
  For i=1 to 2
         @ 3,6 say i
         SELECT 2
       go 1
       SELECT 2
    for m=1 to 1496880
     @ 6,12 say m
       k=dc8s29
       N=k+6469693230*(i-1)
        Kf=INT(SQRT(N))       &&求出奇数的开方根
        SELECT  1             &&打开素数表
        LOCATE FOR 素数>=kf      &&根据开方根,查找最大素数
        DO CASE
                CASE EOF()          &&如果超出素数表最后一条记录
                        GO BOTTOM
                CASE 素数>kf     &&如果找到的素数比开方根值大,就将记录指针退回一个,保证使用的最大素数在开方根内
                        SKIP -1
        ENDCASE
        SSS=RECNO()    &&记录下最大素数（开方根内）记录位置（如果找到的素数等于开方根，则直接读取这个素数的位置）
        GO 11           &&从第一条记录开始读取素数(3)
        FOR j=1 TO SSS-10      &&内循环开始。这个循环实质上是从小到大顺序,依次读取素数。循环值是记录序号
                qmz=MOD(N,素数)   &&以读取的素数为条件,对被判断值求模 【qmz=MOD(bpz,素数)】文本号括着的原在此行语句体部分.特别需要注意的是在用标点符号时，一定改成英文模式及半角状态。
                IF qmz=0 OR qmz=2  OR qmz=6 OR qmz=12 OR qmz=14 OR qmz=20 OR qmz=24 OR qmz=26
                        EXIT         
                ENDIF
                SKIP            &&素数表指针向下移动一个
        ENDFOR
        IF j>sss-10
                SELECT  3  &&打开盛放素数的表
                APPEND BLANK                        &&增加一条空记录
                REPLACE dc8s WITH N             &&将N值付给素数
        ENDIF
        SELECT 2
        skip
      ENDFOR
   ENDFOR
        =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
上楼有点瑕疵
#244
独木星空2025-07-25 10:03
SELECT 1
  USE D:\最密三生素数文件\素数表.dbf ALIAS 素数表
  kssj=SECONDS()  &&取出开始时间
  s=1.000000000000000000
  SELECT 1
    GO 10
    A=素数
    s=s*(A*(A-16)/(A-8)^2)
        SKIP 1
        FOR  j=1 TO 50876228
        SELECT 1
        B=素数
        s=s*(B*(B-16)/(B-8)^2)
        SELECT 1  
        SKIP
        ENDFOR

 ?s
 =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
对称最密8生素数的中项和合成，求其系数（公式中，公共系数）
#245
独木星空2025-07-25 16:54
SELECT 1
   USE  d:\最密三生素数文件\六生成元11.DBF ALIAS 六生成元11
   SELECT 2
   USE  d:\最密三生素数文件\六生成元13.DBF ALIAS 六生成元13
    kssj=SECONDS()                      &&取出开始时间
    For N=1 to 13
    @ 3,6 say N
       SELECT 1
       go 1
       for m=1 to 5
           && @ 4,8 say 孪素
           X=scy11+2310*(N-1)
           MZ=X%13
                IF  MZ=0 OR MZ=4 OR MZ=6 OR MZ=10 OR MZ=12 OR MZ=3
                  else
                  SELECT   2      &&打开盛放素数的表
                  APPEND BLANK                &&增加一条空记录
                  REPLACE scy13 WITH X     &&将N值付给素
                ENDIF
                SELECT 1
                SKIP
       endfor
    ENDFOR
   =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
用最密6生素数（0,4,2,4,2,4）的生成元11，制作生成元13（上一个台阶）
#246
独木星空2025-07-25 17:01
SELECT 1
   USE  d:\最密三生素数文件\六生成元13.DBF ALIAS 六生成元13
   SELECT 2
   USE  d:\最密三生素数文件\六生成元17.DBF ALIAS 六生成元17
    kssj=SECONDS()                      &&取出开始时间
    For N=1 to 17
    @ 3,6 say N
       SELECT 1
       go 1
       for m=1 to 35
           && @ 4,8 say 孪素
           X=scy13+30030*(N-1)
           MZ=X%17
                IF  MZ=0 OR MZ=4 OR MZ=6 OR MZ=10 OR MZ=12 OR MZ=16
                  else
                  SELECT   2      &&打开盛放素数的表
                  APPEND BLANK                &&增加一条空记录
                  REPLACE scy17 WITH X     &&将N值付给素
                ENDIF
                SELECT 1
                SKIP
       endfor
    ENDFOR
   =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
用最密6生素数（0,4,2,4,2,4）的生成元13，制作生成元17（上一个台阶）
#247
独木星空2025-07-25 17:06
SELECT 1
   USE  d:\最密三生素数文件\六生成元17.DBF ALIAS 六生成元17
   SELECT 2
   USE  d:\最密三生素数文件\六生成元19.DBF ALIAS 六生成元19
    kssj=SECONDS()                      &&取出开始时间
    For N=1 to 19
    @ 3,6 say N
       SELECT 1
       go 1
       for m=1 to 385
           && @ 4,8 say 孪素
           X=scy17+510510*(N-1)
           MZ=X%19
                IF  MZ=0 OR MZ=4 OR MZ=6 OR MZ=10 OR MZ=12 OR MZ=16
                  else
                  SELECT   2      &&打开盛放素数的表
                  APPEND BLANK                &&增加一条空记录
                  REPLACE scy19 WITH X     &&将N值付给素
                ENDIF
                SELECT 1
                SKIP
       endfor
    ENDFOR
   =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
用最密6生素数（0,4,2,4,2,4）的生成元17，制作生成元19（上一个台阶）
#248
独木星空2025-07-25 17:11
SELECT 1
   USE  d:\最密三生素数文件\六生成元19.DBF ALIAS 六生成元19
   SELECT 2
   USE  d:\最密三生素数文件\六生成元23.DBF ALIAS 六生成元23
    kssj=SECONDS()                      &&取出开始时间
    For N=1 to 23
    @ 3,6 say N
       SELECT 1
       go 1
       for m=1 to 5005
           && @ 4,8 say 孪素
           X=scy19+9699690*(N-1)
           MZ=X%23
                IF  MZ=0 OR MZ=4 OR MZ=6 OR MZ=10 OR MZ=12 OR MZ=16
                  else
                  SELECT   2      &&打开盛放素数的表
                  APPEND BLANK                &&增加一条空记录
                  REPLACE scy23 WITH X     &&将N值付给素
                ENDIF
                SELECT 1
                SKIP
       endfor
    ENDFOR
   =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
用最密6生素数（0,4,2,4,2,4）的生成元19，制作生成元23（上一个台阶）
#249
独木星空2025-07-25 17:20
SELECT 1
   USE  d:\最密三生素数文件\六生成元23.DBF ALIAS 六生成元23
   SELECT 2
   USE  d:\最密三生素数文件\六生成元29.DBF ALIAS 六生成元29
    kssj=SECONDS()                      &&取出开始时间
    For N=1 to 29
    @ 3,6 say N
       SELECT 1
       go 1
       for m=1 to 85085
           && @ 4,8 say 孪素
           X=scy23+223092870*(N-1)
           MZ=X%29
                IF  MZ=0 OR MZ=4 OR MZ=6 OR MZ=10 OR MZ=12 OR MZ=16
                  else
                  SELECT   2      &&打开盛放素数的表
                  APPEND BLANK                &&增加一条空记录
                  REPLACE scy29 WITH X     &&将N值付给素
                ENDIF
                SELECT 1
                SKIP
       endfor
    ENDFOR
   =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
用最密6生素数（0,4,2,4,2,4）的生成元23，制作生成元29（上一个台阶），最后生成元29有19569550个元素
#250
独木星空2025-07-25 17:37
SELECT 1
  USE d:\最密三生素数文件\素数表.DBF ALIAS 素数表
  SELECT 2
  USE d:\最密三生素数文件\六生成元29.DBF ALIAS 六生成元29
  SELECT 3
  USE d:\最密三生素数文件\对称6素.DBF ALIAS 对称6素表
     kssj=SECONDS()                      &&取出开始时间
  For i=1 to 2
         @ 3,6 say i
         SELECT 2
       go 1
       SELECT 2
    for m=1 to 1956955
     @ 6,12 say m
       k=scy29
       N=k+6469693230*(i-1)
        Kf=INT(SQRT(N))       &&求出奇数的开方根
        SELECT  1             &&打开素数表
        LOCATE FOR 素数>=kf      &&根据开方根,查找最大素数
        DO CASE
                CASE EOF()          &&如果超出素数表最后一条记录
                        GO BOTTOM
                CASE 素数>kf     &&如果找到的素数比开方根值大,就将记录指针退回一个,保证使用的最大素数在开方根内
                        SKIP -1
        ENDCASE
        SSS=RECNO()    &&记录下最大素数（开方根内）记录位置（如果找到的素数等于开方根，则直接读取这个素数的位置）
        GO 11           &&从第一条记录开始读取素数(3)
        FOR j=1 TO SSS-10      &&内循环开始。这个循环实质上是从小到大顺序,依次读取素数。循环值是记录序号
                qmz=MOD(N,素数)   &&以读取的素数为条件,对被判断值求模 【qmz=MOD(bpz,素数)】文本号括着的原在此行语句体部分.特别需要注意的是在用标点符号时，一定改成英文模式及半角状态。
                IF qmz=0 OR qmz=4  OR qmz=6 OR qmz=10 OR qmz=12 OR qmz=16
                        EXIT         
                ENDIF
                SKIP            &&素数表指针向下移动一个
        ENDFOR
        IF j>sss-10
                SELECT  3  &&打开盛放素数的表
                APPEND BLANK                        &&增加一条空记录
                REPLACE dc6s WITH N             &&将N值付给素数
        ENDIF
        SELECT 2
        skip
      ENDFOR
   ENDFOR
        =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
用最密对称6生成元29制作6生素数
#251
独木星空2025-08-02 10:22
SELECT 1
  USE d:\最密三生素数文件\素数表.DBF ALIAS 素数表
  SELECT 2
  USE d:\最密三生素数文件\六生成元29.DBF ALIAS 六生成元29
  SELECT 3
  USE d:\最密三生素数文件\对称6素.DBF ALIAS 对称6素表
     kssj=SECONDS()                      &&取出开始时间
  For i=15 to 16
         @ 3,6 say i
         SELECT 2
       go 1
       SELECT 2
    for m=1 to 1956955
     @ 6,12 say m
       k=scy29
       N=k+6469693230*(i-1)
        Kf=INT(SQRT(N))       &&求出奇数的开方根
        SELECT  1             &&打开素数表
        LOCATE FOR 素数>=kf      &&根据开方根,查找最大素数
        DO CASE
                CASE EOF()          &&如果超出素数表最后一条记录
                        GO BOTTOM
                CASE 素数>kf     &&如果找到的素数比开方根值大,就将记录指针退回一个,保证使用的最大素数在开方根内
                        SKIP -1
        ENDCASE
        SSS=RECNO()    &&记录下最大素数（开方根内）记录位置（如果找到的素数等于开方根，则直接读取这个素数的位置）
        GO 11           &&从第一条记录开始读取素数(3)
        FOR j=1 TO SSS-10      &&内循环开始。这个循环实质上是从小到大顺序,依次读取素数。循环值是记录序号
                qmz=MOD(N,素数)   &&以读取的素数为条件,对被判断值求模 【qmz=MOD(bpz,素数)】文本号括着的原在此行语句体部分.特别需要注意的是在用标点符号时，一定改成英文模式及半角状态。
                IF qmz=0 OR qmz=4  OR qmz=6 OR qmz=10 OR qmz=12 OR qmz=16
                        EXIT         
                ENDIF
                SKIP            &&素数表指针向下移动一个
        ENDFOR
        IF j>sss-10
                SELECT  3  &&打开盛放素数的表
                APPEND BLANK                        &&增加一条空记录
                REPLACE dc6s WITH N             &&将N值付给素数
        ENDIF
        SELECT 2
        skip
      ENDFOR
   ENDFOR
        =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
用生成元制作最密6生素数
12345
©2025, BC-CN.NET
电脑版