|

楼主 |
发表于 2021-8-29 19:33
|
显示全部楼层
SELECT 1
USE D:\素数式系数\素数表十亿.dbf ALIAS 素数表
SELECT 2
USE D:\素数式系数\第n组常数.dbf ALIAS 系数表
kssj=SECONDS() &&取出开始时间
s=1.0000000000000000
SELECT 1
GO 8
FOR i=1 TO 50876320
@ 5,12 say i
P=素数
s=s*(1-1/(P-16)^2)
SELECT 1
SKIP
ENDFOR
SELECT 2
APPEND BLANK &&增加一条空记录
REPLACE n值 WITH 16 &&将B值付给素数式
REPLACE 常数 WITH s &&将B值付给素数式
=MESSAGEBOX("运行时间:"+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示") |
|