设为首页收藏本站
开启辅助访问 切换到窄版

数学中国

 找回密码
 注册
搜索
热搜: 活动 交友 discuz
数学中国»论坛 › 数学中国论坛 › 基础数学 › 哥猜等难题和猜想 › [原创]请教vfbpgyfk先生一个编程问题
1 ...369370371372373374375376... 384下一页
返回列表 发新帖
楼主: 白新岭

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

  [复制链接]
 楼主| 发表于 2025-6-17 23:03 | 显示全部楼层
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 12 &&需要更改到段区+1除2一半的位置（指区间记录条
   FOR k=1 TO 1
    @ 9,6 say k
   jl1=recno()
   PUBLIC ZL1
   ZL1=总量
   PUBLIC FL1
   FL1=分量
   czhi=24-12 &&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+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,"运行时间提示")
四中和值23平方项参与时合成分配
回复 支持 反对

使用道具 举报

 楼主| 发表于 2025-6-17 23:14 | 显示全部楼层
截止2025年06月16日周一23:08分浏览量766627， 回复3757，热度279
截止2025年06月17日周二23:14分浏览量769981， 回复3771，热度279
回复 支持 反对

使用道具 举报

 楼主| 发表于 2025-6-18 10:53 | 显示全部楼层
截止2025年06月17日周二23:14分浏览量769981， 回复3771，热度279
截止2025年06月18日周三10:53分浏览量770960， 回复3772，热度279
回复 支持 反对

使用道具 举报

 楼主| 发表于 2025-6-18 11:20 | 显示全部楼层
SELECT 1
USE d:\最密四生素数文件\四中和值5.DBF ALIAS 四中和5
SELECT 2
USE d:\最密四生素数文件\四中和值22.DBF ALIAS 四中和22  &&需要更改文件名中阿拉伯数字内容
kssj=SECONDS()
SELECT 1
GO 1
FOR i=1 TO 21246940
   @ 3,6 say i
   PUBLIC A
   A=szhz5+7585157580  &&446185740*(22-5)，需要更改被减数
   jl=recno()
      SELECT 2
      APPEND BLANK     &&增加一条空记录
      REPLACE szhz22 WITH A  &&需要更改字段名阿拉伯数字内容
      SELECT 1
      skip
ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
用四中和值5制作四中和值22
回复 支持 反对

使用道具 举报

 楼主| 发表于 2025-6-18 11:42 | 显示全部楼层
SELECT 1
   USE d:\最密四生素数文件\四中升序.DBF ALIAS 四中表
   SELECT 2
   USE d:\最密四生素数文件\四中和值22.DBF ALIAS 四中和22  &&每次需要改动
   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=23-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-223092870 &&10623470*（22-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,"运行时间提示")
四中和值22合成分配
回复 支持 反对

使用道具 举报

 楼主| 发表于 2025-6-18 16:53 | 显示全部楼层
SELECT 1
USE d:\最密四生素数文件\四中和值5.DBF ALIAS 四中和5
SELECT 2
USE d:\最密四生素数文件\四中和值21.DBF ALIAS 四中和21  &&需要更改文件名中阿拉伯数字内容
kssj=SECONDS()
SELECT 1
GO 1
FOR i=1 TO 21246940
   @ 3,6 say i
   PUBLIC A
   A=szhz5+7138971840  &&446185740*(21-5)，需要更改被减数
   jl=recno()
      SELECT 2
      APPEND BLANK     &&增加一条空记录
      REPLACE szhz21 WITH A  &&需要更改字段名阿拉伯数字内容
      SELECT 1
      skip
ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
用四中和值5制作四中和值21
回复 支持 反对

使用道具 举报

 楼主| 发表于 2025-6-18 17:20 | 显示全部楼层
SELECT 1
   USE d:\最密四生素数文件\四中升序.DBF ALIAS 四中表
   SELECT 2
   USE d:\最密四生素数文件\四中和值21.DBF ALIAS 四中和21  &&每次需要改动
   SELECT 3
   USE d:\最密四生素数文件\四中统计表.DBF ALIAS 四中统计表
   kssj=SECONDS()
   SELECT 3
   GO 1
   FOR k=1 TO 10  &&每次需要改动
    @ 9,6 say k
   jl1=recno()
   PUBLIC ZL1
   ZL1=总量
   PUBLIC FL1
   FL1=分量
   czhi=22-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-212469400 &&10623470*（21-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,"运行时间提示")
四中和值21合成分配
回复 支持 反对

使用道具 举报

 楼主| 发表于 2025-6-18 21:13 | 显示全部楼层
SELECT 1
   USE d:\最密四生素数文件\四中升序.DBF ALIAS 四中表
   SELECT 2
   USE d:\最密四生素数文件\四中和值21.DBF ALIAS 四中和21 &&需要更改阿拉伯数字部分
   SELECT 3
   USE d:\最密四生素数文件\四中统计表.DBF ALIAS 四中统计表
   kssj=SECONDS()
   SELECT 3
   GO 11 &&需要更改到段区+1除2一半的位置（指区间记录条
   FOR k=1 TO 1
    @ 9,6 say k
   jl1=recno()
   PUBLIC ZL1
   ZL1=总量
   PUBLIC FL1
   FL1=分量
   czhi=22-11 &&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-212469400 &&10623470*(21-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,"运行时间提示")
四中和值21合成平方参与时分配
回复 支持 反对

使用道具 举报

 楼主| 发表于 2025-6-18 21:41 | 显示全部楼层
SELECT 1
USE d:\最密四生素数文件\四中和值5.DBF ALIAS 四中和5
SELECT 2
USE d:\最密四生素数文件\四中和值20.DBF ALIAS 四中和20  &&需要更改文件名中阿拉伯数字内容
kssj=SECONDS()
SELECT 1
GO 1
FOR i=1 TO 21246940
   @ 3,6 say i
   PUBLIC A
   A=szhz5+6692786100  &&446185740*(20-5)，需要更改被减数
   jl=recno()
      SELECT 2
      APPEND BLANK     &&增加一条空记录
      REPLACE szhz20 WITH A  &&需要更改字段名阿拉伯数字内容
      SELECT 1
      skip
ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
用四中和值5制作四中和值20
回复 支持 反对

使用道具 举报

 楼主| 发表于 2025-6-18 21:59 | 显示全部楼层
SELECT 1
   USE d:\最密四生素数文件\四中升序.DBF ALIAS 四中表
   SELECT 2
   USE d:\最密四生素数文件\四中和值20.DBF ALIAS 四中和20  &&每次需要改动
   SELECT 3
   USE d:\最密四生素数文件\四中统计表.DBF ALIAS 四中统计表
   kssj=SECONDS()
   SELECT 3
   GO 1
   FOR k=1 TO 10  &&每次需要改动
    @ 9,6 say k
   jl1=recno()
   PUBLIC ZL1
   ZL1=总量
   PUBLIC FL1
   FL1=分量
   czhi=21-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-201845930 &&10623470*（20-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,"运行时间提示")
四中和值20合成分配
回复 支持 反对

使用道具 举报

下一页 »
1 ...369370371372373374375376... 384下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies E
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|数学中国 ( 京ICP备05040119号 )

GMT+8, 2025-7-4 04:09 , Processed in 0.083597 second(s), 15 queries .

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表