| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 4037 人关注过本帖
标题:通过单位矩阵与周期矩阵耦合统计方程解组数
只看楼主 加入收藏
独木星空
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:河北省曲阳县
等 级:版主
威 望:71
帖 子:939
专家分:683
注 册:2016-6-29
收藏
得分:0 
SELECT 1
USE h:\二生素数串\孪串13表.DBF ALIAS 孪串13表
SELECT 3
USE h:\二生素数串\孪串17表.DBF ALIAS 孪串17表
kssj=SECONDS()                      &&取出开始时间
  FOR i=1 TO 17
     @22,20 SAY i
     SELECT 1
     GO 1
       FOR k=1 TO 1485
       lc13=孪串13
       bpz=lc13+(i-1)*30030 &&给被判断值置数,以循环值做变量。
        ys=MOD(bpz,17)
        IF ys=0 OR ys=2
        else                        
        SELECT 3              &&打开保存求解结果的信息表
        APPEND BLANK                        &&增加一条空记录
        REPLACE 孪串17 WITH bpz             &&将被判断值保存到被判断值字段中(被判断值数据栏)
        ENDIF
        SELECT 1
        SKIP
        ENDFOR
ENDFOR
=MESSAGEBOX("运行时间:"+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
这是对孪生素数串的一个研究,不知放在那儿,吹水佬版主莫怪。

素数问题的解决是我学习编程永恒的动力。
2023-07-11 22:23
独木星空
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:河北省曲阳县
等 级:版主
威 望:71
帖 子:939
专家分:683
注 册:2016-6-29
收藏
得分:0 
SELECT 1
USE h:\二生素数串\孪串17表.DBF ALIAS 孪串17表
SELECT 3
USE h:\二生素数串\孪串19表.DBF ALIAS 孪串19表
kssj=SECONDS()                      &&取出开始时间
  FOR i=1 TO 19
     @22,20 SAY i
     SELECT 1
     GO 1
       FOR k=1 TO 22275
       lc17=孪串17
       bpz=lc17+(i-1)*510510 &&给被判断值置数,以循环值做变量。
        ys=MOD(bpz,19)
        IF ys=0 OR ys=2
        else                        
        SELECT 3              &&打开保存求解结果的信息表
        APPEND BLANK                        &&增加一条空记录
        REPLACE 孪串19 WITH bpz             &&将被判断值保存到被判断值字段中(被判断值数据栏)
        ENDIF
        SELECT 1
        SKIP
        ENDFOR
ENDFOR
=MESSAGEBOX("运行时间:"+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

素数问题的解决是我学习编程永恒的动力。
2023-07-11 22:36
独木星空
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:河北省曲阳县
等 级:版主
威 望:71
帖 子:939
专家分:683
注 册:2016-6-29
收藏
得分:0 
SELECT 1
USE h:\二生素数串\孪串19表.DBF ALIAS 孪串19表
SELECT 3
USE h:\二生素数串\孪串23表.DBF ALIAS 孪串23表
kssj=SECONDS()                      &&取出开始时间
  FOR i=1 TO 23
     @22,20 SAY i
     SELECT 1
     GO 1
       FOR k=1 TO 378675
       lc19=孪串19
       bpz=lc19+(i-1)*9699690 &&给被判断值置数,以循环值做变量。
        ys=MOD(bpz,23)
        IF ys=0 OR ys=2
        else                        
        SELECT 3              &&打开保存求解结果的信息表
        APPEND BLANK                        &&增加一条空记录
        REPLACE 孪串23 WITH bpz             &&将被判断值保存到被判断值字段中(被判断值数据栏)
        ENDIF
        SELECT 1
        SKIP
        ENDFOR
ENDFOR
=MESSAGEBOX("运行时间:"+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

素数问题的解决是我学习编程永恒的动力。
2023-07-11 22:36
独木星空
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:河北省曲阳县
等 级:版主
威 望:71
帖 子:939
专家分:683
注 册:2016-6-29
收藏
得分:0 
今天喝多了,发了不着边际的程序,不为别的,为出书做准备。
[附件]2[/附件
看来超过5M咋也发不了。

素数问题的解决是我学习编程永恒的动力。
2023-07-11 22:43
独木星空
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:河北省曲阳县
等 级:版主
威 望:71
帖 子:939
专家分:683
注 册:2016-6-29
收藏
得分:0 
SELECT 1
USE h:\二生素数串\孪串23表.DBF ALIAS 孪串23表
SELECT 3
USE h:\二生素数串\孪串3表.DBF ALIAS 孪串3表
kssj=SECONDS()                      &&取出开始时间
     SELECT 1
     GO 1
       FOR k=1 TO 7952173
        @22,20 SAY k
        jlh=recno()&&jlh记录号
        PUBLIC A
        A=孪串23
        SKIP 2
        PUBLIC B
        B=孪串23
        C=B-A                    
        SELECT 3              &&打开保存求解结果的信息表
        APPEND BLANK                        &&增加一条空记录
        REPLACE 串3 WITH C          &&将被判断值保存到被判断值字段中(被判断值数据栏)
        SELECT 1
        GO jlh+1
        ENDFOR
=MESSAGEBOX("运行时间:"+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

素数问题的解决是我学习编程永恒的动力。
2023-07-12 00:08
独木星空
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:河北省曲阳县
等 级:版主
威 望:71
帖 子:939
专家分:683
注 册:2016-6-29
收藏
得分:0 
sELECT 1
USE h:\二生素数串\孪串23表.DBF ALIAS 孪串23表
SELECT 3
USE h:\二生素数串\孪串4表.DBF ALIAS 孪串4表
kssj=SECONDS()                      &&取出开始时间
     SELECT 1
     GO 1
       FOR k=1 TO 7952172
        @22,20 SAY k
        jlh=recno()&&jlh记录号
        PUBLIC A
        A=孪串23
        SKIP 3
        PUBLIC B
        B=孪串23
        C=B-A                    
        SELECT 3              &&打开保存求解结果的信息表
        APPEND BLANK                        &&增加一条空记录
        REPLACE 串4 WITH C          &&将被判断值保存到被判断值字段中(被判断值数据栏)
        REPLACE 记录号4 WITH jlh  
        SELECT 1
        GO jlh+1
        ENDFOR
=MESSAGEBOX("运行时间:"+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

素数问题的解决是我学习编程永恒的动力。
2023-07-12 00:09
独木星空
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:河北省曲阳县
等 级:版主
威 望:71
帖 子:939
专家分:683
注 册:2016-6-29
收藏
得分:0 
孪串4重磅出炉。
图片附件: 游客没有浏览图片的权限,请 登录注册

素数问题的解决是我学习编程永恒的动力。
2023-07-12 00:12
laowan001
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:66
帖 子:1092
专家分:2686
注 册:2015-12-30
收藏
得分:0 
这是运行了将近24个小时?是46楼的程序吗?


[此贴子已经被作者于2023-7-12 07:51编辑过]

2023-07-12 07:40
独木星空
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:河北省曲阳县
等 级:版主
威 望:71
帖 子:939
专家分:683
注 册:2016-6-29
收藏
得分:0 
回复 48楼 laowan001
这是因为跨了夜,也就几分钟的事。那是负时间。

素数问题的解决是我学习编程永恒的动力。
2023-07-12 08:18
laowan001
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:66
帖 子:1092
专家分:2686
注 册:2015-12-30
收藏
得分:0 
2023-07-12 08:26
快速回复:通过单位矩阵与周期矩阵耦合统计方程解组数
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.019124 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved