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

独木星空谁

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

?s
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
运行结果：6*∏\((1+{8\over (P-2)^3})\)=8.471329459766746000，（P≥5，P是素数）

白新岭

截止2023年07月03日周一21:39分浏览量104361，回复2187，热度150
截止2023年07月04日周二17:29分浏览量104581，回复2189，热度150

白新岭

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

?s
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
正在计算公共系数极小值。【在x+y+z=6n中，自变量都是孪中数】

独木星空谁

截止2023年07月03日周一21:39分浏览量104361，回复2187，热度150
截止2023年07月04日周二22:15分浏览量104636，回复2191，热度150

白新岭

截止2023年07月04日周二22:15分浏览量104636，回复2191，热度150
截止2023年07月05日周三22:07分浏览量104953，回复2192，热度150
浏览量增加：104953-104636=317

白新岭

截止2023年07月05日周三22:07分浏览量104953，回复2192，热度150
截止2023年07月06日周四22:14分浏览量105165，回复2193，热度150

白新岭

截止2023年07月06日周四22:14分浏览量105165，回复2193，热度150
截止2023年07月07日周五23:00分浏览量105301，回复2194，热度150

独木星空谁

截止2023年07月07日周五23:00分浏览量105301，回复2194，热度150
截止2023年07月08日周六15:06分浏览量105377，回复2195，热度150

独舟星海

截止2023年07月07日周五23:00分浏览量105301，回复2194，热度150
截止2023年07月08日周六15:13分浏览量105378，回复2196，热度150

白新岭

SELECT 1
USE h:\素数式系数\素数表十亿.DBF ALIAS 素数表
SELECT 2
USE h:\素数式系数\孪中十亿.DBF ALIAS 孪中表
kssj=SECONDS()
SELECT  1
GO 1
For i=1 to 50847534
      @ 5,12 say i
    SELECT  1     &&打开盛放素数式的表
    jl=recno()
    PUBLIC A
    A=素数
    SKIP 1
    PUBLIC B
    B=素数
    cj1=B-A  &&求前后两个素数的差值
    IF cj1=2
         SELECT 2
         APPEND BLANK     &&增加一条空记录
         REPLACE 孪中 WITH A+1          &&将N值付给素数式
    ENDIF
      SELECT 1
      GO jl+1
   ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
用素数表制作孪中程序。