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

白新岭 · 发表于 2023-9-11 21:37

截止2023年09月10日周日21:54分浏览量116100，回复2357，热度162
截止2023年09月11日周一21:38分浏览量116323，回复2358，热度162

独木星空谁 · 发表于 2023-9-11 21:42

截止2023年09月10日周日21:54分浏览量116100，回复2357，热度162
截止2023年09月11日周一21:42分浏览量116326，回复2359，热度163

独舟星海 · 发表于 2023-9-11 21:44

截止2023年09月10日周日21:54分浏览量116100，回复2357，热度162
截止2023年09月11日周一21:44分浏览量116327，回复2360，热度164

白新岭 · 发表于 2023-9-11 21:45

截止2023年09月10日周日21:54分浏览量116100，回复2357，热度162
截止2023年09月11日周一21:46分浏览量116328，回复2361，热度165

独木星空谁 · 发表于 2023-9-12 14:52

截止2023年09月11日周一21:46分浏览量116328，回复2361，热度165
截止2023年09月12日周二14:53分浏览量116440，回复2362，热度165

白新岭 · 发表于 2023-9-12 20:50

截止2023年09月11日周一21:46分浏览量116328，回复2361，热度165
截止2023年09月12日周二20:50分浏览量116473，回复2363，热度165

白新岭 · 发表于 2023-9-13 15:54

截止2023年09月12日周二20:50分浏览量116473，回复2363，热度165
截止2023年09月13日周三15:53分浏览量116575，回复2364，热度165

白新岭 · 发表于 2023-9-13 23:41

截止2023年09月12日周二20:50分浏览量116473，回复2363，热度165
截止2023年09月13日周三23:40分浏览量116623，回复2365，热度165

白新岭 · 发表于 2023-9-13 23:50

SELECT 1
USE H:\素数式系数\素数表十亿.dbf ALIAS 素数表
kssj=SECONDS()  &&取出开始时间
s=7.500000000000000000
SELECT 1
  GO 4
  A=素数
  s=s*A*(A-6)/(A-3)^2
      SKIP 1
      FOR  j=1 TO 50876310
      SELECT 1
      B=素数
      s=s*B*(B-6)/(B-3)^2
      SELECT 1
      SKIP
      ENDFOR

?s
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

白新岭 · 发表于 2023-9-13 23:57

上楼是计算正最密3生素数的中项减法中的合成系数（公共系数，即最小合成系数），也是这个问题的一个环节。
运行结果：2.117440757851877000
❶（只不过，标识不是1而是i）运行时间：2分31.66秒

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

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

浏览过的版块