|

楼主 |
发表于 2021-8-23 10:10
|
显示全部楼层
SELECT 1
USE D:\素数式系数\素数式.dbf ALIAS 素数式
SELECT 2
USE D:\素数式系数\余数表.dbf ALIAS 余数表
SELECT 3
USE D:\素数式系数\素数表十亿.dbf ALIAS 素数表
kssj=SECONDS() &&取出开始时间
SELECT 1
k=3 &&k=RECCOUNT()
SELECT 3
GO 3
s=1.0000000000000000
FOR i=1 TO 50876320 &&又遇到以前类似事情,外循环变量用了j与下面的内循环变量一致,所以提示0不能做除数。
@ 5,12 say i
SELECT 3
p=素数
jl=recno()
s=s*p^(k-1)*(p-k)/(p-1)^k
SELECT 3
GO jl+1
ENDFOR
?s
=MESSAGEBOX("运行时间:"+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
今天计算出:∏\({P^2(P-3)}\over(P-1)^3\)的值为:0.635166354758853(P≥5,为素数,趋于无穷大) |
|