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

独舟星海

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程序。
运行时间:0分53.38秒
        确定
\(2C_2\)=1.320323632296411000

独木星空谁

截止2022年11月18日周五19:51分浏览量80109，回复1802，热度113度
截止2022年11月19日周六15:20分浏览量80183，回复1805，热度114度

独木星空谁

截止2022年11月18日周五19:51分浏览量80109，回复1802，热度113度
截止2022年11月19日周六21:35分浏览量80201，回复1806，热度114度

独木星空谁

SELECT 1
USE H:\素数式系数\素数表十亿.dbf ALIAS 素数表
kssj=SECONDS()  &&取出开始时间
s=5.000000000000000000
SELECT 1
  GO 4
  A=素数
  s=s*A*(A-5)/(A-2)/(A-3)
  SKIP 1
        FOR  j=1 TO 50876310
        SELECT 1
        B=素数
        s=s*B*(A-5)/(A-2)/(A-3)
        SELECT 1  
        SKIP
        ENDFOR

?s
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
计算孪中+最密3生素数的中项合成数的数量公式前的系数（公共系数）

独木星空谁

小小的失误，就会前功尽弃，不过耽搁的时间不算多，1分多钟，不到2分钟。

白新岭

截止2022年11月19日周六21:35分浏览量80201，回复1806，热度114度
截止2022年11月20日周日10:32分浏览量80246，回复1809，热度114度

独木星空谁

截止2022年11月19日周六21:35分浏览量80201，回复1806，热度114度
截止2022年11月20日周日20:32分浏览量80268，回复1810，热度114度

独木星空谁

截止2022年11月19日周六21:35分浏览量80201，回复1806，热度114度
截止2022年11月20日周日20:36分浏览量80269，回复1811，热度115度

白新岭

SELECT 1
USE H:\素数式系数\素数表十亿.dbf ALIAS 素数表
kssj=SECONDS()  &&取出开始时间
s=4.500000000000000000
SELECT 1
  GO 3
  A=素数
  s=s*A^2*(A-3)/(A-1)^3
  SKIP 1
        FOR  j=1 TO 50876310
        SELECT 1
        B=素数
        s=s*B^2*(B-3)/(B-1)^3
        SELECT 1  
        SKIP
        ENDFOR

?s
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
最密3生素数（P，P+2，P+6）的系数

独木星空谁

截止2022年11月20日周日20:36分浏览量80269，回复1811，热度115度
截止2022年11月21日周一09:05分浏览量80326，回复1813，热度115度