| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 4038 人关注过本帖
标题:通过单位矩阵与周期矩阵耦合统计方程解组数
只看楼主 加入收藏
独木星空
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:河北省曲阳县
等 级:版主
威 望:71
帖 子:939
专家分:683
注 册:2016-6-29
收藏
得分:0 
如果不显示循环号,运算速度还可以。
图片附件: 游客没有浏览图片的权限,请 登录注册

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

素数问题的解决是我学习编程永恒的动力。
2023-07-13 21:13
独木星空
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:河北省曲阳县
等 级:版主
威 望:71
帖 子:939
专家分:683
注 册:2016-6-29
收藏
得分:0 
SELECT 1
USE H:\素数式系数\素数表十亿.dbf ALIAS 素数表
kssj=SECONDS()  &&取出开始时间
s=3082.130001548320000
SELECT 1
  GO 9
  A=素数
  s=s*A^9*(A-10)/(A-1)^10
        SKIP 1
        FOR  j=1 TO 50876310
        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,"运行时间提示")
最密孪串5的系数。

素数问题的解决是我学习编程永恒的动力。
2023-07-13 21:47
独木星空
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:河北省曲阳县
等 级:版主
威 望:71
帖 子:939
专家分:683
注 册:2016-6-29
收藏
得分:0 
SELECT 1
USE H:\素数式系数\素数表十亿.dbf ALIAS 素数表
kssj=SECONDS()  &&取出开始时间
s=10.0000000000000000
SELECT 1
  GO 4
  A=素数
  s=s*A*(A-6)/(A-2)/(A-4)
        SKIP 1
        FOR  j=1 TO 50876310
        SELECT 1
        B=素数
        s=s*B*(B-6)/(B-2)/(B-4)
        SELECT 1  
        SKIP
        ENDFOR

?s
=MESSAGEBOX("运行时间:"+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
这是计算:最密4生素数(0,2,6,8)与孪生素数对(0,2)合成的6生素数的公共系数vfp程序。(减法,线性合成)。

素数问题的解决是我学习编程永恒的动力。
2023-07-19 21:18
独木星空
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:河北省曲阳县
等 级:版主
威 望:71
帖 子:939
专家分:683
注 册:2016-6-29
收藏
得分:0 
数学专业性强,vfp编程平平。

素数问题的解决是我学习编程永恒的动力。
2023-07-19 21:19
laowan001
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:66
帖 子:1092
专家分:2686
注 册:2015-12-30
收藏
得分:0 
以下是引用独木星空在2023-7-19 21:19:12的发言:

数学专业性强,vfp编程平平。

就冲你这种韧劲,成为编程高手也只是时间问题,加油
2023-07-20 08:52
独木星空
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:河北省曲阳县
等 级:版主
威 望:71
帖 子:939
专家分:683
注 册:2016-6-29
收藏
得分:0 
sELECT 1
USE h:\二生素数串\孪串23表.DBF ALIAS 孪串23表
SELECT 2
USE h:\二生素数串\孪串6表.DBF ALIAS 孪串6表
SELECT 3
USE h:\二生素数串\孪串6排列.DBF ALIAS 孪串6排列
kssj=SECONDS()                      &&取出开始时间
     SELECT 2
     GO 1
       FOR k=1 TO 7952170
      &&  @22,20 SAY k
      &&  jlh=recno()&&jlh记录号
       PUBLIC F
           F=串6
       PUBLIC G
           G=记录号6
      IF F=48
         SELECT 1
         GO G
           PUBLIC A
           A=孪串23
           SKIP 1
           PUBLIC B
           B=孪串23
           SKIP 1
           PUBLIC C
           C=孪串23
           SKIP 1
           PUBLIC D
           D=孪串23
           SKIP 1
           PUBLIC E
           E=孪串23
           SKIP 1
           PUBLIC M
           M=孪串23
                       
           SELECT 3              &&打开保存求解结果的信息表
           APPEND BLANK                        &&增加一条空记录
           REPLACE 串6距 WITH 48       &&将被判断值保存到被判断值字段中(被判断值数据栏)
           REPLACE 记录6 WITH G
           REPLACE 元素1 WITH A
           REPLACE 元素2 WITH B
           REPLACE 元素3 WITH C
           REPLACE 元素4 WITH D
           REPLACE 元素5 WITH E
           REPLACE 元素6 WITH M
           ENDIF
        SELECT 2
        skip
        ENDFOR
=MESSAGEBOX("运行时间:"+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
这是抄录最密6串孪素的vfp程序,凉一凉,使之冷却。

素数问题的解决是我学习编程永恒的动力。
2023-07-21 21:01
独木星空
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:河北省曲阳县
等 级:版主
威 望:71
帖 子:939
专家分:683
注 册:2016-6-29
收藏
得分:0 
温故而知新

素数问题的解决是我学习编程永恒的动力。
2024-04-28 21:12
快速回复:通过单位矩阵与周期矩阵耦合统计方程解组数
数据加载中...
 
   



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

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