|
SELECT 1
USE H:\素数式系数\素数表十亿.dbf ALIAS 素数表
kssj=SECONDS() &&取出开始时间
s=2.000000000000000000
SELECT 1
GO 2
A=素数
s=s*A*(A-2)/(A-1)^2
SKIP 1
FOR j=1 TO 50876310
SELECT 1
B=素数
s=s*B*(B-2)/(B-1)^2
SELECT 1
SKIP
ENDFOR
?s
=MESSAGEBOX("运行时间:"+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
这是求二生素数公共系数的vfp程序,2∏\({P*(P-2)}\over(P-1)^2\),P≥3.
运行时间:0分53.38秒
确定
2C2=1.320323632296411000 |
|