数学中国

 找回密码
 注册
搜索
热搜: 活动 交友 discuz
楼主: 白新岭

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

  [复制链接]
 楼主| 发表于 2022-12-17 21:23 | 显示全部楼层
SELECT 1
USE d:\二次等差素数数列\素数表.DBF ALIAS 素数表
SELECT 2
USE d:\二次等差素数数列\二次等差九生.DBF ALIAS 等差九生
SELECT 3
USE d:\二次等差素数数列\二次等差十生.DBF ALIAS 等差十生
kssj=SECONDS()
For i=1 to 23
      @ 5,12 say i
     SELECT 2
     jl9=记录9
    SELECT  1
    GO jl9
    jl=recno() &&记录指针位置
    PUBLIC A
    A=素数
    skip
    FOR j=1 TO 6
       n=j
    SELECT 1
    PUBLIC B
    B=素数
    cj=B-A
    IF cj=18
         SELECT 3
         APPEND BLANK     &&增加一条空记录
         REPLACE 十生素 WITH A+18
         REPLACE 记录10 WITH jl+n
         exit
    ENDIF
      SELECT 1
      skip
   ENDFOR
   SELECT 2
   skip
   ENDFOR
    =MESSAGEBOX("运行时间:"+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
回复 支持 反对

使用道具 举报

发表于 2022-12-18 00:24 | 显示全部楼层
截止2022年12月16日周五22:13分浏览量82314,回复1895,热度119度
截止2022年12月18日周日00:23分浏览量82429,回复1905,热度119度
正好为10亿的二次等差素数数列的组数(回复1905)
回复 支持 反对

使用道具 举报

发表于 2022-12-18 10:25 | 显示全部楼层
截止2022年12月18日周日00:23分浏览量82429,回复1905,热度119度
截止2022年12月18日周日10:24分浏览量82449,回复1906,热度119度
回复 支持 反对

使用道具 举报

 楼主| 发表于 2022-12-18 15:26 | 显示全部楼层
SELECT 1
USE d:\二次等差素数数列\素数表.DBF ALIAS 素数表
SELECT 2
USE d:\二次等差素数数列\二次等差十生.DBF ALIAS 等差十生
SELECT 3
USE d:\二次等差素数数列\二次等差11生.DBF ALIAS 等差11生
kssj=SECONDS()
For i=1 to 9
      @ 5,12 say i
     SELECT 2
     jl10=记录10
    SELECT  1
    GO jl10
    jl=recno() &&记录指针位置
    PUBLIC A
    A=素数
    skip
    FOR j=1 TO 6
       n=j
    SELECT 1
    PUBLIC B
    B=素数
    cj=B-A
    IF cj=20
         SELECT 3
         APPEND BLANK     &&增加一条空记录
         REPLACE 生素11 WITH A+20
         REPLACE 记录11 WITH jl+n
         exit
    ENDIF
      SELECT 1
      skip
   ENDFOR
   SELECT 2
   skip
   ENDFOR
    =MESSAGEBOX("运行时间:"+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
回复 支持 反对

使用道具 举报

 楼主| 发表于 2022-12-18 21:30 | 显示全部楼层
截止2022年12月18日周日00:23分浏览量82429,回复1905,热度119度
截止2022年12月18日周日21:29分浏览量82507,回复1908,热度119度
回复 支持 反对

使用道具 举报

 楼主| 发表于 2022-12-19 15:30 | 显示全部楼层
截止2022年12月18日周日21:29分浏览量82507,回复1908,热度119度
截止2022年12月19日周一15:30分浏览量82623,回复1909,热度119度
回复 支持 反对

使用道具 举报

 楼主| 发表于 2022-12-19 19:30 | 显示全部楼层
SELECT 1
USE H:\素数式系数\素数表十亿.dbf ALIAS 素数表
kssj=SECONDS()  &&取出开始时间
s=19.861111111111111111
SELECT 1
  GO 7
  A=素数
  s=s*A*(A-11)/(A-4)/(A-7)
  SKIP 1
        FOR  j=1 TO 50876310
        SELECT 1
        B=素数
        s=s*B*(B-11)/(B-4)/(B-7)
        SELECT 1  
        SKIP
        ENDFOR

?s
=MESSAGEBOX("运行时间:"+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
回复 支持 反对

使用道具 举报

 楼主| 发表于 2022-12-19 22:30 | 显示全部楼层
截止2022年12月18日周日21:29分浏览量82507,回复1908,热度119度
截止2022年12月19日周一22:30分浏览量82647,回复1911,热度119度
回复 支持 反对

使用道具 举报

 楼主| 发表于 2022-12-20 21:51 | 显示全部楼层
截止2022年12月19日周一22:30分浏览量82647,回复1911,热度119度
截止2022年12月20日周二21:51分浏览量82801,回复1912,热度119度
回复 支持 反对

使用道具 举报

 楼主| 发表于 2022-12-21 22:37 | 显示全部楼层
截止2022年12月20日周二21:51分浏览量82801,回复1912,热度119度
截止2022年12月21日周三22:37分浏览量82872,回复1913,热度119度
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2025-7-18 15:32 , Processed in 0.100901 second(s), 15 queries .

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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