MODIFY PROJECT d:\最密四生素数文件\四素项目.pjx
ADD TABLE d:\最密四生素数文件\四中和值6中没有的.dbf
USE 四中和值6中没有的 AGAIN IN 0
SELECT 四中和值6中没有的
BROWSE LAST
GO bottom
COUNT ALL FOR szhz6<3123300200 TO tj
?tj
COUNT ALL FOR szhz6<2677114470 TO tj
?tj
GO 314489
USE
CLEAR

USE 四中和值5 AGAIN IN 0
SELECT 四中和值5
BROWSE LAST
GO bottom
GO 10623470
USE
MODIFY COMMAND d:\最密四生素数文件\分配四中和值4段.prg AS 936
DO d:\最密四生素数文件\分配四中和值4段.prg
SELECT 四中和5
BROWSE LAST
CLEAR
GO 10623470
SELECT * FROM 四中和5 WHERE sztj=0
COPY TO d:\最密四生素数文件\四中和值5中没有的无平方.dbf
USE
ADD TABLE d:\最密四生素数文件\四中和值5中没有的无平方.dbf
USE 四中和值5中没有的无平方 AGAIN IN 0
SELECT 四中和值5中没有的无平方
BROWSE LAST
GO bottom
COUNT ALL FOR szhz5<2677114470 TO tj
?tj
COUNT ALL FOR szhz5<2230928730 TO tj
?tj
GO 412074
USE
MODIFY COMMAND d:\最密四生素数文件\分配四中和值m段平方.prg AS 936
DO d:\最密四生素数文件\分配四中和值m段平方.prg
SELECT 四中和5
BROWSE LAST
GO 10623470
SELECT * FROM 四中和5 WHERE sztj=0
COPY TO d:\最密四生素数文件\四中和值5中没有的.dbf
USE
ADD TABLE d:\最密四生素数文件\四中和值5中没有的.dbf
USE 四中和值5中没有的 AGAIN IN 0
SELECT 四中和值5中没有的
BROWSE LAST
GO bottom
COUNT ALL FOR szhz5<2677114470 TO tj
?tj
COUNT ALL FOR szhz5<2230928730 TO tj
?tj
GO 346239
USE
CLEAR
2025年6月22日周日15:24农历五月廿七，对于分析最密四生素数中项和合成部分操作

SELECT 1
   USE d:\最密四生素数文件\四中和值6复.DBF ALIAS 四中和6复
   SELECT 2
   USE d:\最密四生素数文件\四中和值7.DBF ALIAS 四中和7
   kssj=SECONDS()
   SELECT 2
   GO 1
     FOR i=1 TO 10623470
      @ 9,6 say i
      jl=recno()
      PUBLIC A
      A=sztj
        SELECT 1
        GO i+10623470
        REPLACE sztj6 WITH sztj6+A
     
      SELECT 2
      GO jl+1
     ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
合并四中和值奇前半部（统计值）

SELECT 1
   USE d:\最密四生素数文件\四中和值8复.DBF ALIAS 四中和8复
   SELECT 2
   USE d:\最密四生素数文件\四中和值7.DBF ALIAS 四中和7
   kssj=SECONDS()
   SELECT 2
   GO 10623471
     FOR i=1 TO 10623470
      @ 9,6 say i
      jl=recno()
      PUBLIC A
      A=sztj
        SELECT 1
        GO i
        REPLACE sztj8  WITH sztj8+A
     
      SELECT 2
      GO jl+1
     ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

SELECT 1
   USE d:\最密四生素数文件\四中和值14复.DBF ALIAS 四中和14复  &&每次需要更改表名中的阿拉伯数字
   SELECT 2
   USE d:\最密四生素数文件\四中和值13.DBF ALIAS 四中和13 &&每次需要更改表名中的阿拉伯数字
   kssj=SECONDS()
   SELECT 2
   GO 10623471
     FOR i=1 TO 10623470
      @ 9,6 say i
      jl=recno()
      PUBLIC A
      A=sztj
        SELECT 1
        GO i
        REPLACE sztj14  WITH sztj14+A  &&每次需要更改字段名中的阿拉伯数字
     
      SELECT 2
      GO jl+1
     ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

SELECT 1
   USE d:\最密四生素数文件\四中和值14复.DBF ALIAS 四中和14复 &&每次修改文件名中的阿拉伯数字
   SELECT 2
   USE d:\最密四生素数文件\四中和值15.DBF ALIAS 四中和15 &&每次修改文件名中的阿拉伯数字
   kssj=SECONDS()
   SELECT 2
   GO 1
     FOR i=1 TO 10623470
      @ 9,6 say i
      jl=recno()
      PUBLIC A
      A=sztj
        SELECT 1
        GO i+10623470
        REPLACE sztj14 WITH sztj14+A&&每次修改字段名中的阿拉伯数字
     
      SELECT 2
      GO jl+1
     ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
合并四中和值奇前半部统计值

SELECT 1
   USE d:\最密四生素数文件\四中和值18复.DBF ALIAS 四中和18复  &&每次需要更改表名中的阿拉伯数字
   SELECT 2
   USE d:\最密四生素数文件\四中和值17.DBF ALIAS 四中和17 &&每次需要更改表名中的阿拉伯数字
   kssj=SECONDS()
   SELECT 2
   GO 10623471
     FOR i=1 TO 10623470
      @ 9,6 say i
      jl=recno()
      PUBLIC A
      A=sztj
        SELECT 1
        GO i
        REPLACE sztj18  WITH sztj18+A  &&每次需要更改字段名中的阿拉伯数字
     
      SELECT 2
      GO jl+1
     ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

SELECT 1
   USE d:\最密四生素数文件\四中和值18复.DBF ALIAS 四中和18复 &&每次修改文件名中的阿拉伯数字
   SELECT 2
   USE d:\最密四生素数文件\四中和值19.DBF ALIAS 四中和19 &&每次修改文件名中的阿拉伯数字
   kssj=SECONDS()
   SELECT 2
   GO 1
     FOR i=1 TO 10623470
      @ 9,6 say i
      jl=recno()
      PUBLIC A
      A=sztj
        SELECT 1
        GO i+10623470
        REPLACE sztj18 WITH sztj18+A&&每次修改字段名中的阿拉伯数字
     
      SELECT 2
      GO jl+1
     ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

SELECT 1
   USE d:\最密四生素数文件\四中和值20复.DBF ALIAS 四中和20复  &&每次需要更改表名中的阿拉伯数字
   SELECT 2
   USE d:\最密四生素数文件\四中和值19.DBF ALIAS 四中和19 &&每次需要更改表名中的阿拉伯数字
   kssj=SECONDS()
   SELECT 2
   GO 10623471
     FOR i=1 TO 10623470
      @ 9,6 say i
      jl=recno()
      PUBLIC A
      A=sztj
        SELECT 1
        GO i
        REPLACE sztj20  WITH sztj20+A  &&每次需要更改字段名中的阿拉伯数字
     
      SELECT 2
      GO jl+1
     ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

SELECT 1
   USE d:\最密四生素数文件\四中和值20复.DBF ALIAS 四中和20复 &&每次修改文件名中的阿拉伯数字
   SELECT 2
   USE d:\最密四生素数文件\四中和值21.DBF ALIAS 四中和21 &&每次修改文件名中的阿拉伯数字
   kssj=SECONDS()
   SELECT 2
   GO 1
     FOR i=1 TO 10623470
      @ 9,6 say i
      jl=recno()
      PUBLIC A
      A=sztj
        SELECT 1
        GO i+10623470
        REPLACE sztj20 WITH sztj20+A&&每次修改字段名中的阿拉伯数字
     
      SELECT 2
      GO jl+1
     ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

SELECT 1
   USE d:\最密四生素数文件\四中和值22复.DBF ALIAS 四中和22复  &&每次需要更改表名中的阿拉伯数字
   SELECT 2
   USE d:\最密四生素数文件\四中和值21.DBF ALIAS 四中和21 &&每次需要更改表名中的阿拉伯数字
   kssj=SECONDS()
   SELECT 2
   GO 10623471
     FOR i=1 TO 10623470
      @ 9,6 say i
      jl=recno()
      PUBLIC A
      A=sztj
        SELECT 1
        GO i
        REPLACE sztj22  WITH sztj22+A  &&每次需要更改字段名中的阿拉伯数字
     
      SELECT 2
      GO jl+1
     ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")