SELECT 1
USE H:\素数式系数\素数表十亿.dbf ALIAS 素数表
kssj=SECONDS() &&取出开始时间
s=8.555555555555555555
SELECT 1
GO 6
A=素数
s=s*A*(A-9)/(A-2)/(A-7)
SKIP 1
FOR j=1 TO 50876310
SELECT 1
B=素数
s=s*B*(B-9)/(B-2)/(B-7)
SELECT 1
SKIP
ENDFOR
?s
=MESSAGEBOX("运行时间:"+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
计算孪生素数对的中项,加,最密7生素数的中项,和,合成数的数量公式中的公共系数。
储备材料。
USE H:\素数式系数\素数表十亿.dbf ALIAS 素数表
kssj=SECONDS() &&取出开始时间
s=8.555555555555555555
SELECT 1
GO 6
A=素数
s=s*A*(A-9)/(A-2)/(A-7)
SKIP 1
FOR j=1 TO 50876310
SELECT 1
B=素数
s=s*B*(B-9)/(B-2)/(B-7)
SELECT 1
SKIP
ENDFOR
?s
=MESSAGEBOX("运行时间:"+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
计算孪生素数对的中项,加,最密7生素数的中项,和,合成数的数量公式中的公共系数。
储备材料。
素数问题的解决是我学习编程永恒的动力。