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

白新岭

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

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

白新岭

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

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

白新岭

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

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

白新岭

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

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

白新岭

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

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

白新岭

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

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

白新岭

USE
MODIFY PROJECT h:\素数式系数\素数式系数项目.pjx
MODIFY COMMAND h:\素数式系数\求k生素数式系数熊一兵方法.prg AS 936
DO h:\素数式系数\求k生素数式系数熊一兵方法.prg
CLEAR
MODIFY PROJECT h:\素数式系数\素数式系数项目.pjx
MODIFY COMMAND h:\素数式系数\求k生素数式系数熊一兵方法.prg AS 936
DO h:\素数式系数\求k生素数式系数熊一兵方法.prg
CLEAR
MODIFY PROJECT h:\素数式系数\素数式系数项目.pjx
MODIFY COMMAND h:\素数式系数\求k生素数式系数熊一兵方法.prg AS 936
DO h:\素数式系数\求k生素数式系数熊一兵方法.prg
CLEAR
MODIFY PROJECT h:\素数式系数\素数式系数项目.pjx
MODIFY COMMAND h:\素数式系数\求k生素数式系数熊一兵方法.prg AS 936
DO h:\素数式系数\求k生素数式系数熊一兵方法.prg
CLEAR
MODIFY PROJECT h:\素数式系数\素数式系数项目.pjx
MODIFY COMMAND h:\素数式系数\求k生素数式系数熊一兵方法.prg AS 936
DO h:\素数式系数\求k生素数式系数熊一兵方法.prg
CLEAR
MODIFY PROJECT h:\素数式系数\素数式系数项目.pjx
MODIFY COMMAND h:\素数式系数\求k生素数式系数熊一兵方法.prg AS 936
DO h:\素数式系数\求k生素数式系数熊一兵方法.prg
CLEAR

MODIFY PROJECT h:\素数式系数\素数式系数项目.pjx
MODIFY COMMAND h:\素数式系数\求k生素数式系数熊一兵方法.prg AS 936
DO h:\素数式系数\求k生素数式系数熊一兵方法.prg
MODIFY COMMAND h:\素数式系数\求k生素数式系数熊一兵方法.prg AS 936
DO h:\素数式系数\求k生素数式系数熊一兵方法.prg
MODIFY COMMAND h:\素数式系数\求k生素数式系数熊一兵方法.prg AS 936
DO h:\素数式系数\求k生素数式系数熊一兵方法.prg
MODIFY COMMAND h:\素数式系数\求k生素数式系数熊一兵方法.prg AS 936
DO h:\素数式系数\求k生素数式系数熊一兵方法.prg
MODIFY COMMAND h:\素数式系数\求k生素数式系数熊一兵方法.prg AS 936
DO h:\素数式系数\求k生素数式系数熊一兵方法.prg
MODIFY COMMAND h:\素数式系数\求k生素数式系数熊一兵方法.prg AS 936
DO h:\素数式系数\求k生素数式系数熊一兵方法.prg
MODIFY COMMAND h:\素数式系数\求k生素数式系数熊一兵方法.prg AS 936
DO h:\素数式系数\求k生素数式系数熊一兵方法.prg
MODIFY COMMAND h:\素数式系数\求k生素数式系数熊一兵方法.prg AS 936
DO h:\素数式系数\求k生素数式系数熊一兵方法.prg
MODIFY COMMAND h:\素数式系数\求k生素数式系数熊一兵方法.prg AS 936
DO h:\素数式系数\求k生素数式系数熊一兵方法.prg
MODIFY COMMAND h:\素数式系数\求k生素数式系数熊一兵方法.prg AS 936
DO h:\素数式系数\求k生素数式系数熊一兵方法.prg
MODIFY COMMAND h:\素数式系数\求k生素数式系数熊一兵方法.prg AS 936
DO h:\素数式系数\求k生素数式系数熊一兵方法.prg

独木星空谁

截止2022年11月27日周日21:29分浏览量80892，回复1836，热度116度
截止2022年11月28日周一23:22分浏览量80948，回复1851，热度116度

白新岭

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

?s
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
计算最密4生素数的中项，与最密5生素数的中项和，数量公式中的公共系数。

独木星空谁

截止2022年11月28日周一23:22分浏览量80948，回复1851，热度116度
截止2022年11月29日周二20:15分浏览量81002，回复1853，热度116度