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

白新岭 · 发表于 2025-7-18 10:42

SELECT 1
USE D:\最密三生素数文件\素数表.dbf ALIAS 素数表
kssj=SECONDS()  &&取出开始时间
s=1.000000000000000000
SELECT 1
  GO 5
  A=素数
  s=s*(A^6*(A-7)/(A-1)^7)
      SKIP 1
      FOR  j=1 TO 50876228
      SELECT 1
      B=素数
      s=s*(B^6*(B-7)/(B-1)^7)
      SELECT 1
      SKIP
      ENDFOR

?s
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
求最密7生素数的后续系数

白新岭 · 发表于 2025-7-18 11:28

SELECT 1
USE D:\最密三生素数文件\素数表.dbf ALIAS 素数表
kssj=SECONDS()  &&取出开始时间
s=1.000000000000000000
SELECT 1
  GO 7
  A=素数
  s=s*(A^7*(A-8)/(A-1)^8)
      SKIP 1
      FOR  j=1 TO 50876228
      SELECT 1
      B=素数
      s=s*(B^7*(B-8)/(B-1)^8)
      SELECT 1
      SKIP
      ENDFOR

?s
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
求最密8生素数的系数（后续，即正规化以后得连乘积式值）
0.5448521899040620
前部系数值：327.1748885
最终结果：178.2619544938600000
上边即为最密8生素数（0,2,6,8,12,18,20,26）的系数，渐近公式中的系数

白新岭 · 发表于 2025-7-18 21:58

SELECT 1
USE D:\最密三生素数文件\素数表.dbf ALIAS 素数表
kssj=SECONDS()  &&取出开始时间
s=1.000000000000000000
SELECT 1
  GO 7
  A=素数
  s=s*(A^8*(A-9)/(A-1)^9)
      SKIP 1
      FOR  j=1 TO 50876228
      SELECT 1
      B=素数
      s=s*(B^8*(B-9)/(B-1)^9)
      SELECT 1
      SKIP
      ENDFOR

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

白新岭 · 发表于 2025-7-18 22:31

截止2025年07月17日周四23:25分浏览量846841，回复3938，热度285
截止2025年07月18日周五22:31分浏览量848735，回复3943，热度285

白新岭 · 发表于 2025-7-19 09:04

截止2025年07月18日周五22:31分浏览量848735，回复3943，热度285
截止2025年07月19日周六09:03分浏览量850813，回复3944，热度285

白新岭 · 发表于 2025-7-19 11:19

SELECT 1
USE D:\最密三生素数文件\素数表.dbf ALIAS 素数表
kssj=SECONDS()  &&取出开始时间
s=1.000000000000000000
SELECT 1
  GO 7
  A=素数
  s=s*(A^9*(A-10)/(A-1)^10)
      SKIP 1
      FOR  j=1 TO 50876228
      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,"运行时间提示")

白新岭 · 发表于 2025-7-19 11:23

SELECT 1
USE D:\最密三生素数文件\素数表.dbf ALIAS 素数表
kssj=SECONDS()  &&取出开始时间
s=1.000000000000000000
SELECT 1
  GO 7
  A=素数
  s=s*(A^9*(A-10)/(A-1)^10)
      SKIP 1
      FOR  j=1 TO 50876228
      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,"运行时间提示")
s=0.345052546194588
运行时间：1分4.62秒

白新岭 · 发表于 2025-7-19 12:58

SELECT 1
USE D:\最密三生素数文件\素数表.dbf ALIAS 素数表
kssj=SECONDS()  &&取出开始时间
s=1.000000000000000000
SELECT 1
  GO 8
  A=素数
  s=s*(A^10*(A-11)/(A-1)^11)
      SKIP 1
      FOR  j=1 TO 50876228
      SELECT 1
      B=素数
      s=s*(B^10*(B-11)/(B-1)^11)
      SELECT 1
      SKIP
      ENDFOR

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

白新岭 · 发表于 2025-7-19 13:01

SELECT 1
USE D:\最密三生素数文件\素数表.dbf ALIAS 素数表
kssj=SECONDS()  &&取出开始时间
s=1.000000000000000000
SELECT 1
  GO 8
  A=素数
  s=s*(A^11*(A-12)/(A-1)^12)
      SKIP 1
      FOR  j=1 TO 50876228
      SELECT 1
      B=素数
      s=s*(B^11*(B-12)/(B-1)^12)
      SELECT 1
      SKIP
      ENDFOR

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

白新岭 · 发表于 2025-7-19 16:43

SELECT 1
USE D:\最密三生素数文件\素数表.DBF ALIAS 素数表
SELECT 2
USE D:\最密三生素数文件\正三中项.DBF ALIAS 正三中
kssj=SECONDS()
SELECT 1
GO 1
For i=1 to 50876228
@ 5,12 say i
SELECT 1 &&打开盛放素数的表
jl=recno()
PUBLIC A
A=素数
SKIP 1
PUBLIC B
B=素数
SKIP 1
PUBLIC C
C=素数
cj1=B-A &&求前后两个素数的差值
cj2=C-B &&求前后两个素数的差值
   IF cj1=2 AND cj2=4
   SELECT 2
   APPEND BLANK  &&增加一条空记录
   REPLACE zszx WITH A+3 &&将A+3付给变量zszx
   ENDIF
   SELECT 1
   GO jl+1
   ENDFOR
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
用素数表制作最密三生素数中项

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