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

白新岭 · 发表于 2025-6-17 10:57

SELECT 1
USE d:\最密四生素数文件\四中升序.DBF ALIAS 四中表
SELECT 2
USE d:\最密四生素数文件\四中和值27.DBF ALIAS 四中和27&&每次需要改动
SELECT 3
USE d:\最密四生素数文件\四中统计表.DBF ALIAS 四中统计表
kssj=SECONDS()
SELECT 3
GO 1
FOR k=1 TO 13&&每次需要改动
@ 9,6 say k
jl1=recno()
PUBLIC ZL1
ZL1=总量
PUBLIC FL1
FL1=分量
czhi=28-k &&czhi代表差值，即合成区间分量，这里每次需要改动
SELECT 3
GO czhi
PUBLIC ZL2
ZL2=总量
PUBLIC FL2
FL2=分量
      SELECT 1
      GO ZL1-FL1+1 &&定位在第一个参与运算值上,本次运行交叉部分，外循坏取前段，内循环取后段，一次产生两组
      FOR i=1 TO FL1
      && @ 19,16 say i
      jl=recno()
      PUBLIC A
      A=ssz
         SELECT 1
         GO ZL2-FL2+1&&到段区起始位置
         FOR j=1  TO FL2&&循环本区间的数据量
         PUBLIC B
         B=ssz
         n=A+B
         c=INT(n/210)*5-276210220&&10623470*（27-1），每次需要改动
         d=(n-210*INT(n/210))/30
            IF d<2
            SELECT  2
            GO c+d
            REPLACE sztj WITH sztj+2 &&本次运行（a+b）的平方交叉部分
            ELSE
            SELECT  2
            GO c+INT((d+INT(d/2))/2)
            REPLACE sztj WITH sztj+2 &&本次运行（a+b）的平方交叉部分
            ENDIF
      SELECT 1
      skip
      ENDFOR
   SELECT 1
   GO jl+1
ENDFOR
SELECT 3&&原来这里没有选择工作区导致第二次循环时中断
GO jl1+1
ENDFOR
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
四中和值27分配

白新岭 · 发表于 2025-6-17 12:10

SELECT 1
USE d:\最密四生素数文件\四中升序.DBF ALIAS 四中表
SELECT 2
USE d:\最密四生素数文件\四中和值27.DBF ALIAS 四中和27&&需要更改阿拉伯数字部分
SELECT 3
USE d:\最密四生素数文件\四中统计表.DBF ALIAS 四中统计表
kssj=SECONDS()
SELECT 3
GO 14&&需要更改到段区+1除2一半的位置（指区间记录条
FOR k=1 TO 1
@ 9,6 say k
jl1=recno()
PUBLIC ZL1
ZL1=总量
PUBLIC FL1
FL1=分量
czhi=28-14 &&czhi代表差值，即合成区间分量，需要更改段区和值
SELECT 3
GO czhi
PUBLIC ZL2
ZL2=总量
PUBLIC FL2
FL2=分量
      SELECT 1
      GO ZL1-FL1+1 &&定位在第一个参与运算值上,本次运行交叉部分，外循坏取前段，内循环取后段，一次产生两组
      FOR i=1 TO FL1
      && @ 19,16 say i
      jl=recno()
      PUBLIC A
      A=ssz
         SELECT 1
         GO ZL2-FL2+1&&到段区起始位置
         FOR j=1  TO FL2&&循环本区间的数据量
         PUBLIC B
         B=ssz
         n=A+B
         c=INT(n/210)*5-276210220&&10623470*(27-1)，需要更改段区阿拉伯数字，公式值改变被减数
         d=(n-210*INT(n/210))/30
            IF d<2
            SELECT  2
            GO c+d
            REPLACE sztj WITH sztj+1 &&本次运行（a+b）的平方交叉部分
            ELSE
            SELECT  2
            GO c+INT((d+INT(d/2))/2)
            REPLACE sztj WITH sztj+1 &&本次运行（a+b）的平方交叉部分
            ENDIF
      SELECT 1
      skip
      ENDFOR
   SELECT 1
   GO jl+1
ENDFOR
SELECT 3&&原来这里没有选择工作区导致第二次循环时中断
GO jl1+1
ENDFOR
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
四中和值27平方项合成分配

白新岭 · 发表于 2025-6-17 12:34

SELECT 1
USE d:\最密四生素数文件\四中和值5.DBF ALIAS 四中和5
SELECT 2
USE d:\最密四生素数文件\四中和值26.DBF ALIAS 四中和26&&需要更改文件名中阿拉伯数字内容
kssj=SECONDS()
SELECT 1
GO 1
FOR i=1 TO 21246940
@ 3,6 say i
PUBLIC A
A=szhz5+9369900540&&446185740*(26-5)，需要更改被减数
jl=recno()
   SELECT 2
   APPEND BLANK    &&增加一条空记录
   REPLACE szhz26 WITH A&&需要更改字段名阿拉伯数字内容
   SELECT 1
   skip
ENDFOR
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
用四中和值5制作四中和值26

白新岭 · 发表于 2025-6-17 13:45

SELECT 1
USE d:\最密四生素数文件\四中升序.DBF ALIAS 四中表
SELECT 2
USE d:\最密四生素数文件\四中和值26.DBF ALIAS 四中和26&&每次需要改动
SELECT 3
USE d:\最密四生素数文件\四中统计表.DBF ALIAS 四中统计表
kssj=SECONDS()
SELECT 3
GO 1
FOR k=1 TO 13&&每次需要改动
@ 9,6 say k
jl1=recno()
PUBLIC ZL1
ZL1=总量
PUBLIC FL1
FL1=分量
czhi=27-k &&czhi代表差值，即合成区间分量，这里每次需要改动
SELECT 3
GO czhi
PUBLIC ZL2
ZL2=总量
PUBLIC FL2
FL2=分量
      SELECT 1
      GO ZL1-FL1+1 &&定位在第一个参与运算值上,本次运行交叉部分，外循坏取前段，内循环取后段，一次产生两组
      FOR i=1 TO FL1
      && @ 19,16 say i
      jl=recno()
      PUBLIC A
      A=ssz
         SELECT 1
         GO ZL2-FL2+1&&到段区起始位置
         FOR j=1  TO FL2&&循环本区间的数据量
         PUBLIC B
         B=ssz
         n=A+B
         c=INT(n/210)*5-265586750&&10623470*（26-1），每次需要改动
         d=(n-210*INT(n/210))/30
            IF d<2
            SELECT  2
            GO c+d
            REPLACE sztj WITH sztj+2 &&本次运行（a+b）的平方交叉部分
            ELSE
            SELECT  2
            GO c+INT((d+INT(d/2))/2)
            REPLACE sztj WITH sztj+2 &&本次运行（a+b）的平方交叉部分
            ENDIF
      SELECT 1
      skip
      ENDFOR
   SELECT 1
   GO jl+1
ENDFOR
SELECT 3&&原来这里没有选择工作区导致第二次循环时中断
GO jl1+1
ENDFOR
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
四中和值26合成分配

白新岭 · 发表于 2025-6-17 16:15

SELECT 1
USE d:\最密四生素数文件\四中和值5.DBF ALIAS 四中和5
SELECT 2
USE d:\最密四生素数文件\四中和值25.DBF ALIAS 四中和25&&需要更改文件名中阿拉伯数字内容
kssj=SECONDS()
SELECT 1
GO 1
FOR i=1 TO 21246940
@ 3,6 say i
PUBLIC A
A=szhz5+8923714800&&446185740*(25-5)，需要更改被减数
jl=recno()
   SELECT 2
   APPEND BLANK    &&增加一条空记录
   REPLACE szhz25 WITH A&&需要更改字段名阿拉伯数字内容
   SELECT 1
   skip
ENDFOR
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
用四种和值5制作四种和值25

白新岭 · 发表于 2025-6-17 16:50

SELECT 1
USE d:\最密四生素数文件\四中升序.DBF ALIAS 四中表
SELECT 2
USE d:\最密四生素数文件\四中和值25.DBF ALIAS 四中和25&&每次需要改动
SELECT 3
USE d:\最密四生素数文件\四中统计表.DBF ALIAS 四中统计表
kssj=SECONDS()
SELECT 3
GO 1
FOR k=1 TO 12&&每次需要改动
@ 9,6 say k
jl1=recno()
PUBLIC ZL1
ZL1=总量
PUBLIC FL1
FL1=分量
czhi=26-k &&czhi代表差值，即合成区间分量，这里每次需要改动
SELECT 3
GO czhi
PUBLIC ZL2
ZL2=总量
PUBLIC FL2
FL2=分量
      SELECT 1
      GO ZL1-FL1+1 &&定位在第一个参与运算值上,本次运行交叉部分，外循坏取前段，内循环取后段，一次产生两组
      FOR i=1 TO FL1
      && @ 19,16 say i
      jl=recno()
      PUBLIC A
      A=ssz
         SELECT 1
         GO ZL2-FL2+1&&到段区起始位置
         FOR j=1  TO FL2&&循环本区间的数据量
         PUBLIC B
         B=ssz
         n=A+B
         c=INT(n/210)*5-254963280&&10623470*（25-1），每次需要改动
         d=(n-210*INT(n/210))/30
            IF d<2
            SELECT  2
            GO c+d
            REPLACE sztj WITH sztj+2 &&本次运行（a+b）的平方交叉部分
            ELSE
            SELECT  2
            GO c+INT((d+INT(d/2))/2)
            REPLACE sztj WITH sztj+2 &&本次运行（a+b）的平方交叉部分
            ENDIF
      SELECT 1
      skip
      ENDFOR
   SELECT 1
   GO jl+1
ENDFOR
SELECT 3&&原来这里没有选择工作区导致第二次循环时中断
GO jl1+1
ENDFOR
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
四中和值25合成分配无平方项参与

白新岭 · 发表于 2025-6-17 17:56

SELECT 1
USE d:\最密四生素数文件\四中升序.DBF ALIAS 四中表
SELECT 2
USE d:\最密四生素数文件\四中和值25.DBF ALIAS 四中和25 &&需要更改阿拉伯数字部分
SELECT 3
USE d:\最密四生素数文件\四中统计表.DBF ALIAS 四中统计表
kssj=SECONDS()
SELECT 3
GO 13 &&需要更改到段区+1除2一半的位置（指区间记录条
FOR k=1 TO 1
@ 9,6 say k
jl1=recno()
PUBLIC ZL1
ZL1=总量
PUBLIC FL1
FL1=分量
czhi=26-13 &&czhi代表差值，即合成区间分量，需要更改段区和值
SELECT 3
GO czhi
PUBLIC ZL2
ZL2=总量
PUBLIC FL2
FL2=分量
      SELECT 1
      GO ZL1-FL1+1 &&定位在第一个参与运算值上,本次运行交叉部分，外循坏取前段，内循环取后段，一次产生两组
      FOR i=1 TO FL1
      && @ 19,16 say i
      jl=recno()
      PUBLIC A
      A=ssz
         SELECT 1
         GO ZL2-FL2+1&&到段区起始位置
         FOR j=1  TO FL2&&循环本区间的数据量
         PUBLIC B
         B=ssz
         n=A+B
         c=INT(n/210)*5-254963280&&10623470*(25-1)，需要更改段区阿拉伯数字，公式值改变被减数
         d=(n-210*INT(n/210))/30
            IF d<2
            SELECT  2
            GO c+d
            REPLACE sztj WITH sztj+1 &&本次运行（a+b）的平方交叉部分
            ELSE
            SELECT  2
            GO c+INT((d+INT(d/2))/2)
            REPLACE sztj WITH sztj+1 &&本次运行（a+b）的平方交叉部分
            ENDIF
      SELECT 1
      skip
      ENDFOR
   SELECT 1
   GO jl+1
ENDFOR
SELECT 3&&原来这里没有选择工作区导致第二次循环时中断
GO jl1+1
ENDFOR
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
四中和值25合成分配，单独运算平方部分

白新岭 · 发表于 2025-6-17 19:55

SELECT 1
USE d:\最密四生素数文件\四中和值5.DBF ALIAS 四中和5
SELECT 2
USE d:\最密四生素数文件\四中和值24.DBF ALIAS 四中和24  &&需要更改文件名中阿拉伯数字内容
kssj=SECONDS()
SELECT 1
GO 1
FOR i=1 TO 21246940
@ 3,6 say i
PUBLIC A
A=szhz5+8477529060  &&446185740*(24-5)，需要更改被减数
jl=recno()
   SELECT 2
   APPEND BLANK    &&增加一条空记录
   REPLACE szhz24 WITH A&&需要更改字段名阿拉伯数字内容
   SELECT 1
   skip
ENDFOR
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
用四中和值5制作四中和值24

白新岭 · 发表于 2025-6-17 21:20

SELECT 1
USE d:\最密四生素数文件\四中升序.DBF ALIAS 四中表
SELECT 2
USE d:\最密四生素数文件\四中和值23.DBF ALIAS 四中和23  &&每次需要改动
SELECT 3
USE d:\最密四生素数文件\四中统计表.DBF ALIAS 四中统计表
kssj=SECONDS()
SELECT 3
GO 1
FOR k=1 TO 11  &&每次需要改动
@ 9,6 say k
jl1=recno()
PUBLIC ZL1
ZL1=总量
PUBLIC FL1
FL1=分量
czhi=24-k &&czhi代表差值，即合成区间分量，这里每次需要改动
SELECT 3
GO czhi
PUBLIC ZL2
ZL2=总量
PUBLIC FL2
FL2=分量
      SELECT 1
      GO ZL1-FL1+1 &&定位在第一个参与运算值上,本次运行交叉部分，外循坏取前段，内循环取后段，一次产生两组
      FOR i=1 TO FL1
      && @ 19,16 say i
      jl=recno()
      PUBLIC A
      A=ssz
         SELECT 1
         GO ZL2-FL2+1&&到段区起始位置
         FOR j=1  TO FL2&&循环本区间的数据量
         PUBLIC B
         B=ssz
         n=A+B
         c=INT(n/210)*5-233716340 &&10623470*（23-1），每次需要改动
         d=(n-210*INT(n/210))/30
            IF d<2
            SELECT  2
            GO c+d
            REPLACE sztj WITH sztj+2 &&本次运行（a+b）的平方交叉部分
            ELSE
            SELECT  2
            GO c+INT((d+INT(d/2))/2)
            REPLACE sztj WITH sztj+2 &&本次运行（a+b）的平方交叉部分
            ENDIF
      SELECT 1
      skip
      ENDFOR
   SELECT 1
   GO jl+1
ENDFOR
SELECT 3&&原来这里没有选择工作区导致第二次循环时中断
GO jl1+1
ENDFOR
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
四中和值23合成分配，无平方项参与

白新岭 · 发表于 2025-6-17 21:35

SELECT 1
USE d:\最密四生素数文件\四中和值5.DBF ALIAS 四中和5
SELECT 2
USE d:\最密四生素数文件\四中和值23.DBF ALIAS 四中和23  &&需要更改文件名中阿拉伯数字内容
kssj=SECONDS()
SELECT 1
GO 1
FOR i=1 TO 21246940
@ 3,6 say i
PUBLIC A
A=szhz5+8031343320  &&446185740*(23-5)，需要更改被减数
jl=recno()
   SELECT 2
   APPEND BLANK    &&增加一条空记录
   REPLACE szhz23 WITH A  &&需要更改字段名阿拉伯数字内容
   SELECT 1
   skip
ENDFOR
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
用四中和值5制作四中和值23

		自动登录	找回密码
密码			注册