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

白新岭

t = SECONDS()
CreatePrime(3000000001,3040000001,cDefPath+"Prime101.txt")
? SECONDS()-t
t = SECONDS()
CreatePrime(3040000001,3070000001,cDefPath+"Prime102.txt")
? SECONDS()-t
t = SECONDS()
CreatePrime(3070000001,3100000001,cDefPath+"Prime103.txt")
? SECONDS()-t  
t = SECONDS()
CreatePrime(3100000001,3130000001,cDefPath+"Prime104.txt")
? SECONDS()-t  
t = SECONDS()
CreatePrime(3130000001,3160000001,cDefPath+"Prime105.txt")
? SECONDS()-t
t = SECONDS()
CreatePrime(3160000001,3190000001,cDefPath+"Prime106.txt")
? SECONDS()-t  
t = SECONDS()
CreatePrime(3190000001,3220000001,cDefPath+"Prime107.txt")
? SECONDS()-t
t = SECONDS()
CreatePrime(3220000001,3250000001,cDefPath+"Prime108.txt")
? SECONDS()-t
t = SECONDS()
CreatePrime(3250000001,3280000001,cDefPath+"Prime109.txt")
? SECONDS()-t
t = SECONDS()
CreatePrime(3280000001,3310000001,cDefPath+"Prime110.txt")
? SECONDS()-t
t = SECONDS()
CreatePrime(3310000001,3340000001,cDefPath+"Prime111.txt")
? SECONDS()-t
t = SECONDS()
CreatePrime(3340000001,3370000001,cDefPath+"Prime112.txt")
? SECONDS()-t
t = SECONDS()
CreatePrime(3370000001,3400000001,cDefPath+"Prime113.txt")
? SECONDS()-t
t = SECONDS()
CreatePrime(3400000001,3430000001,cDefPath+"Prime114.txt")
? SECONDS()-t  
t = SECONDS()
CreatePrime(3430000001,3460000001,cDefPath+"Prime115.txt")
? SECONDS()-t  
t = SECONDS()
CreatePrime(3460000001,3490000001,cDefPath+"Prime116.txt")
? SECONDS()-t
t = SECONDS()
CreatePrime(3490000001,3520000001,cDefPath+"Prime117.txt")
? SECONDS()-t  
t = SECONDS()
CreatePrime(3520000001,3550000001,cDefPath+"Prime118.txt")
? SECONDS()-t
t = SECONDS()
CreatePrime(3550000001,3580000001,cDefPath+"Prime119.txt")
? SECONDS()-t
t = SECONDS()
CreatePrime(3580000001,3610000001,cDefPath+"Prime120.txt")
? SECONDS()-t
t = SECONDS()
CreatePrime(3610000001,3640000001,cDefPath+"Prime121.txt")
? SECONDS()-t
t = SECONDS()
CreatePrime(3640000001,3670000001,cDefPath+"Prime122.txt")
? SECONDS()-t
t = SECONDS()
CreatePrime(3670000001,3700000001,cDefPath+"Prime123.txt")
? SECONDS()-t
t = SECONDS()
CreatePrime(3700000001,3730000001,cDefPath+"Prime124.txt")
? SECONDS()-t
t = SECONDS()
CreatePrime(3730000001,3760000001,cDefPath+"Prime125.txt")
? SECONDS()-t  
t = SECONDS()
CreatePrime(3760000001,3790000001,cDefPath+"Prime126.txt")
? SECONDS()-t  
t = SECONDS()
CreatePrime(3790000001,3820000001,cDefPath+"Prime127.txt")
? SECONDS()-t
t = SECONDS()
CreatePrime(3820000001,3850000001,cDefPath+"Prime128.txt")
? SECONDS()-t  
t = SECONDS()
CreatePrime(3850000001,3880000001,cDefPath+"Prime129.txt")
? SECONDS()-t
t = SECONDS()
CreatePrime(3880000001,3910000001,cDefPath+"Prime130.txt")
? SECONDS()-t
t = SECONDS()
CreatePrime(3910000001,3940000001,cDefPath+"Prime131.txt")
? SECONDS()-t
t = SECONDS()
CreatePrime(3940000001,3970000001,cDefPath+"Prime132.txt")
? SECONDS()-t
t = SECONDS()
CreatePrime(3970000001,4000000001,cDefPath+"Prime133.txt")
? SECONDS()-t

独木星空谁

CREATE PROJECT
MODIFY DATABASE
DO d:\动态链接库\练习动态连接库的应用.prg
MODIFY FILE d:\动态链接库\动态连接库介绍.txt AS 936
MODIFY PROJECT d:\动态链接库\动态连接.pjx
MODIFY FILE d:\动态链接库\动态连接库介绍.txt AS 936
MODIFY PROJECT d:\动态链接库\动态连接.pjx
MODIFY COMMAND d:\动态链接库\练习动态连接库的应用.prg AS 936
DO d:\动态链接库\练习动态连接库的应用.prg
MODIFY PROJECT d:\动态链接库\动态连接.pjx
DO d:\动态链接库\练习动态连接库的应用.prg
MODIFY COMMAND d:\动态链接库\练习动态连接库的应用.prg AS 936
DO d:\动态链接库\练习动态连接库的应用.prg
MODIFY COMMAND d:\动态链接库\练习动态连接库的应用.prg AS 936
DO d:\动态链接库\练习动态连接库的应用.prg
MODIFY COMMAND d:\动态链接库\练习动态连接库的应用.prg AS 936
DO d:\动态链接库\练习动态连接库的应用.prg
MODIFY FILE d:\动态链接库\分段运算时间记录.txt AS 936
MODIFY COMMAND d:\动态链接库\练习动态连接库的应用.prg AS 936
DO d:\动态链接库\练习动态连接库的应用.prg
MODIFY FILE d:\动态链接库\分段运算时间记录.txt AS 936
MODIFY COMMAND d:\动态链接库\练习动态连接库的应用.prg AS 936
MODIFY PROJECT d:\标记法\标记法项目.pjx
USE 三生素数新 AGAIN IN 0
SELECT 三生素数新
BROWSE LAST
USE
USE 三生素数结果 AGAIN IN 0
SELECT 三生素数结果
BROWSE LAST
GO bottom
USE
MODIFY COMMAND d:\标记法\删除法制作三生素数去显示记录至19.prg AS 936
DO d:\标记法\删除法制作三生素数去显示记录至19.prg
SELECT 三素表
BROWSE LAST
?RECCOUNT()
USE
USE 三生素数结果 AGAIN IN 0
SELECT 三生素数结果
BROWSE LAST
?RECCOUNT()
APPEND FROM d:\标记法\三生素数新.dbf
?RECCOUNT()
USE
MODIFY COMMAND d:\标记法\删除法制作三生素数去显示记录至19.prg AS 936
DO d:\标记法\删除法制作三生素数去显示记录至19.prg
SELECT 三素表
BROWSE LAST
?RECCOUNT()
USE
USE 三生素数结果 AGAIN IN 0
SELECT 三生素数结果
BROWSE LAST
?RECCOUNT()
APPEND FROM d:\标记法\三生素数新.dbf
?RECCOUNT()
USE
USE 三生素数新 AGAIN IN 0
SELECT 三生素数新
BROWSE LAST
USE
MODIFY COMMAND d:\标记法\删除法制作三生素数去显示记录至19.prg AS 936
DO d:\标记法\删除法制作三生素数去显示记录至19.prg
SELECT 三素表
BROWSE LAST
?RECCOUNT()
USE
USE 三生素数结果 AGAIN IN 0
SELECT 三生素数结果
BROWSE LAST
?RECCOUNT()
APPEND FROM d:\标记法\三生素数新.dbf
?RECCOUNT()
USE
MODIFY PROJECT d:\动态链接库\动态连接.pjx
MODIFY COMMAND d:\动态链接库\练习动态连接库的应用.prg AS 936
MODIFY PROJECT d:\vfp温习\vfp新素数式.pjx
MODIFY COMMAND d:\vfp温习\产生523平方盾素数表.prg AS 936
MODIFY PROJECT d:\动态链接库\动态连接.pjx
MODIFY COMMAND d:\动态链接库\练习动态连接库的应用.prg AS 936
MODIFY PROJECT d:\标记法\标记法项目.pjx
USE 三生素数新 AGAIN IN 0
SELECT 三生素数新
BROWSE LAST
USE 三生素数结果0 AGAIN IN 0
SELECT 三生素数结果0
BROWSE LAST
GO bottom
USE
MODIFY COMMAND d:\标记法\删除法制作三生素数去显示记录至19.prg AS 936
DO d:\标记法\删除法制作三生素数去显示记录至19.prg
SELECT 三素表
BROWSE LAST
?RECCOUNT()
USE
USE 三生素数结果0 AGAIN IN 0
SELECT 三生素数结果0
BROWSE LAST
?RECCOUNT()
APPEND FROM d:\标记法\三生素数新.dbf
?RECCOUNT()
USE
MODIFY COMMAND d:\标记法\删除法制作三生素数去显示记录至19.prg AS 936
DO d:\标记法\删除法制作三生素数去显示记录至19.prg
SELECT 三素表
BROWSE LAST
?RECCOUNT()
USE
USE 三生素数结果0 AGAIN IN 0
SELECT 三生素数结果0
BROWSE LAST
?RECCOUNT()
APPEND FROM d:\标记法\三生素数新.dbf
?RECCOUNT()
USE
MODIFY COMMAND d:\标记法\删除法制作三生素数去显示记录至19.prg AS 936
DO d:\标记法\删除法制作三生素数去显示记录至19.prg
SELECT 三素表
BROWSE LAST
?RECCOUNT()
USE
USE 三生素数结果0 AGAIN IN 0
SELECT 三生素数结果0
BROWSE LAST
?RECCOUNT()
APPEND FROM d:\标记法\三生素数新.dbf
?RECCOUNT()
USE
MODIFY COMMAND d:\标记法\删除法制作三生素数去显示记录至19.prg AS 936
DO d:\标记法\删除法制作三生素数去显示记录至19.prg
SELECT 三素表
BROWSE LAST
?RECCOUNT()
USE
USE 三生素数结果0 AGAIN IN 0
SELECT 三生素数结果0
BROWSE LAST
?RECCOUNT()
APPEND FROM d:\标记法\三生素数新.dbf
?RECCOUNT()
GO 1
USE
USE 三生素数结果 AGAIN IN 0
SELECT 三生素数结果
BROWSE LAST
?RECCOUNT()
USE
USE 三生素数结果0 AGAIN IN 0
SELECT 三生素数结果0
BROWSE LAST
GO bottom
?RECCOUNT()
APPEND FROM d:\标记法\三生素数结果.dbf
?RECCOUNT()
USE
MODIFY PROJECT d:\标记法\标记法项目.pjx
MODIFY COMMAND d:\标记法\删除法制作三生素数去显示记录至19.prg AS 936
MODIFY PROJECT d:\标记法\标记法项目.pjx
USE 三生素数结果0 AGAIN IN 0
SELECT 三生素数结果0
BROWSE LAST
USE
MODIFY PROJECT d:\三生素数中项合成\三生中项.pjx
USE 三生素数表 AGAIN IN 0
SELECT 三生素数表
BROWSE LAST
GO bottom
USE
MODIFY COMMAND d:\三生素数中项合成\用生成元至素数17制作三生素数中项.prg AS 936
DO d:\三生素数中项合成\用生成元至素数17制作三生素数中项.prg
SELECT 三素数表
BROWSE LAST
USE
MODIFY COMMAND d:\三生素数中项合成\用生成元至素数17制作三生素数中项.prg AS 936
MODIFY PROJECT d:\三生素数中项合成\三生中项.pjx
USE 三生素数表 EXCLUSIVE IN 0
SELECT 三生素数表
MODIFY STRUCTURE
MODIFY PROJECT d:\标记法\标记法项目.pjx
MODIFY PROJECT d:\vfp温习\vfp新素数式.pjx
MODIFY COMMAND d:\vfp温习\直接从3产生到13素数式.prg AS 936
MODIFY PROJECT d:\动态链接库\动态连接.pjx
USE 素数表1 AGAIN IN 0
SELECT 素数表1
BROWSE LAST
GO bottom
?RECCOUNT()
COUNT ALL FOR 素数<1670000000 TO tj
?tj
COUNT ALL FOR 素数<1 TO tj
?tj
GO 23471900
GO 23471900+100
GO 23471900+50
SKIP -4
DELETE REST
PACK
SELECT 素数表1
BROWSE LAST
?RECCOUNT()
GO 23471945
?RECCOUNT()
MODIFY PROJECT d:\动态链接库\动态连接.pjx
USE 素数表 AGAIN IN 0
SELECT 素数表
BROWSE LAST
?RECCOUNT()
USE
USE 素数表1 AGAIN IN 0
SELECT 素数表1
BROWSE LAST
?RECCOUNT()
GO bottom
USE
DO d:\动态链接库\查找出错位置.prg
MODIFY COMMAND d:\动态链接库\练习动态连接库的应用.prg AS 936
USE 素数表1 AGAIN IN 0
SELECT 素数表1
BROWSE LAST
USE

DO d:\动态链接库\查找出错位置.prg
MODIFY COMMAND d:\动态链接库\查找出错位置.prg AS 936
SELECT 素数表
BROWSE LAST
DELETE ALL
PACK
SELECT 素数表
BROWSE LAST
APPEND FROM d:\动态链接库\prime35.txt DELIMITED
APPEND FROM d:\动态链接库\prime36.txt DELIMITED
APPEND FROM d:\动态链接库\prime37.txt DELIMITED
APPEND FROM d:\动态链接库\prime38.txt DELIMITED
APPEND FROM d:\动态链接库\prime39.txt DELIMITED
APPEND FROM d:\动态链接库\prime40.txt DELIMITED
APPEND FROM d:\动态链接库\prime41.txt DELIMITED
APPEND FROM d:\动态链接库\prime42.txt DELIMITED
APPEND FROM d:\动态链接库\prime43.txt DELIMITED
APPEND FROM d:\动态链接库\prime44.txt DELIMITED
APPEND FROM h:\动态链接库\prime45.txt DELIMITED
APPEND FROM h:\动态链接库\prime46.txt DELIMITED
APPEND FROM h:\动态链接库\prime47.txt DELIMITED
APPEND FROM h:\动态链接库\prime48.txt DELIMITED
APPEND FROM h:\动态链接库\prime49.txt DELIMITED
CLEAR
?RECCOUNT()
APPEND FROM h:\动态链接库\prime50.txt DELIMITED
?RECCOUNT()
APPEND FROM h:\动态链接库\prime51.txt DELIMITED
?RECCOUNT()
APPEND FROM h:\动态链接库\prime52.txt DELIMITED
?RECCOUNT()
APPEND FROM h:\动态链接库\prime53.txt DELIMITED
?RECCOUNT()
APPEND FROM h:\动态链接库\prime54.txt DELIMITED
?RECCOUNT()
APPEND FROM h:\动态链接库\prime55.txt DELIMITED
?RECCOUNT()
APPEND FROM h:\动态链接库\prime56.txt DELIMITED
?RECCOUNT()
APPEND FROM h:\动态链接库\prime57.txt DELIMITED
?RECCOUNT()
APPEND FROM h:\动态链接库\prime58.txt DELIMITED
?RECCOUNT()
APPEND FROM h:\动态链接库\prime59.txt DELIMITED
?RECCOUNT()
APPEND FROM h:\动态链接库\prime60.txt DELIMITED
?RECCOUNT()
APPEND FROM h:\动态链接库\prime61.txt DELIMITED
?RECCOUNT()
APPEND FROM h:\动态链接库\prime62.txt DELIMITED
?RECCOUNT()
APPEND FROM h:\动态链接库\prime63.txt DELIMITED
?RECCOUNT()
APPEND FROM h:\动态链接库\prime64.txt DELIMITED
?RECCOUNT()
MODIFY PROJECT h:\动态链接库\动态连接项目.pjx
USE 素数表2 AGAIN IN 0
SELECT 素数表2
BROWSE LAST
USE
MODIFY PROJECT d:\动态链接库\动态连接.pjx
USE 素数表1 AGAIN IN 0
SELECT 素数表1
BROWSE LAST
?RECCOUNT()
USE
USE 素数表 AGAIN IN 0
SELECT 素数表
BROWSE LAST
USE
USE 素数表1 AGAIN IN 0
SELECT 素数表1
BROWSE LAST
GO bottom
APPEND FROM h:\动态链接库\prime65.txt DELIMITED
?RECCOUNT()
APPEND FROM h:\动态链接库\prime66.txt DELIMITED
?RECCOUNT()
APPEND FROM h:\动态链接库\prime67.txt DELIMITED
?RECCOUNT()
USE
USE 素数表 AGAIN IN 0
SELECT 素数表
BROWSE LAST
?RECCOUNT()
USE
CLEAR
USE 素数表2 AGAIN IN 0
SELECT 素数表2
BROWSE LAST
APPEND FROM h:\动态链接库\prime68.txt DELIMITED
?RECCOUNT()
APPEND FROM h:\动态链接库\prime69.txt DELIMITED
?RECCOUNT()
APPEND FROM h:\动态链接库\prime70.txt DELIMITED
?RECCOUNT()
APPEND FROM h:\动态链接库\prime71.txt DELIMITED
?RECCOUNT()
APPEND FROM h:\动态链接库\prime72.txt DELIMITED
?RECCOUNT()
APPEND FROM h:\动态链接库\prime73.txt DELIMITED
?RECCOUNT()
APPEND FROM h:\动态链接库\prime74.txt DELIMITED
?RECCOUNT()
APPEND FROM h:\动态链接库\prime75.txt DELIMITED
?RECCOUNT()
APPEND FROM h:\动态链接库\prime76.txt DELIMITED
?RECCOUNT()
APPEND FROM h:\动态链接库\prime77.txt DELIMITED
?RECCOUNT()
APPEND FROM h:\动态链接库\prime78.txt DELIMITED
?RECCOUNT()
APPEND FROM h:\动态链接库\prime79.txt DELIMITED
?RECCOUNT()
APPEND FROM h:\动态链接库\prime80.txt DELIMITED
?RECCOUNT()
APPEND FROM h:\动态链接库\prime81.txt DELIMITED
?RECCOUNT()
APPEND FROM h:\动态链接库\prime82.txt DELIMITED
?RECCOUNT()
APPEND FROM h:\动态链接库\prime83.txt DELIMITED
?RECCOUNT()
APPEND FROM h:\动态链接库\prime84.txt DELIMITED
?RECCOUNT()
APPEND FROM h:\动态链接库\prime85.txt DELIMITED
?RECCOUNT()
APPEND FROM h:\动态链接库\prime86.txt DELIMITED
?RECCOUNT()
APPEND FROM h:\动态链接库\prime87.txt DELIMITED
?RECCOUNT()
APPEND FROM h:\动态链接库\prime88.txt DELIMITED
?RECCOUNT()
APPEND FROM h:\动态链接库\prime89.txt DELIMITED
?RECCOUNT()
APPEND FROM h:\动态链接库\prime90.txt DELIMITED
?RECCOUNT()
APPEND FROM h:\动态链接库\prime91.txt DELIMITED
?RECCOUNT()
APPEND FROM h:\动态链接库\prime92.txt DELIMITED
?RECCOUNT()
APPEND FROM h:\动态链接库\prime93.txt DELIMITED
?RECCOUNT()
APPEND FROM h:\动态链接库\prime94.txt DELIMITED
?RECCOUNT()
APPEND FROM h:\动态链接库\prime95.txt DELIMITED
?RECCOUNT()
APPEND FROM h:\动态链接库\prime96.txt DELIMITED
?RECCOUNT()
APPEND FROM h:\动态链接库\prime97.txt DELIMITED
?RECCOUNT()
APPEND FROM h:\动态链接库\prime98.txt DELIMITED
?RECCOUNT()
APPEND FROM h:\动态链接库\prime99.txt DELIMITED
?RECCOUNT()
APPEND FROM h:\动态链接库\prime100.txt DELIMITED
?RECCOUNT()
MODIFY PROJECT d:\动态链接库\动态连接.pjx
USE 素数表2 AGAIN IN 0
SELECT 素数表2
BROWSE LAST
?RECCOUNT()
USE
USE 素数表1 AGAIN IN 0
SELECT 素数表1
BROWSE LAST
?RECCOUNT()
USE
USE 素数表 AGAIN IN 0
SELECT 素数表
BROWSE LAST
?RECCOUNT()
USE
USE 素数表1 AGAIN IN 0
SELECT 素数表1
BROWSE LAST
GO bottom
USE
USE 素数表2 AGAIN IN 0
SELECT 素数表2
BROWSE LAST
GO bottom
USE
USE 素数表3 AGAIN IN 0
SELECT 素数表3
BROWSE LAST
APPEND FROM h:\动态链接库\prime101.txt DELIMITED
MODIFY PROJECT d:\动态链接库\动态连接.pjx
USE 素数表3 AGAIN IN 0
SELECT 素数表3
BROWSE LAST
?RECCOUNT()
GO bottom
APPEND FROM h:\动态链接库\prime102.txt DELIMITED
?RECCOUNT()
APPEND FROM h:\动态链接库\prime103.txt DELIMITED
?RECCOUNT()
APPEND FROM h:\动态链接库\prime104.txt DELIMITED
?RECCOUNT()
APPEND FROM h:\动态链接库\prime105.txt DELIMITED
?RECCOUNT()
APPEND FROM h:\动态链接库\prime106.txt DELIMITED
?RECCOUNT()
APPEND FROM h:\动态链接库\prime107.txt DELIMITED
?RECCOUNT()
APPEND FROM h:\动态链接库\prime108.txt DELIMITED
?RECCOUNT()
APPEND FROM h:\动态链接库\prime109.txt DELIMITED
?RECCOUNT()
APPEND FROM h:\动态链接库\prime110.txt DELIMITED
?RECCOUNT()
APPEND FROM h:\动态链接库\prime111.txt DELIMITED
?RECCOUNT()
APPEND FROM h:\动态链接库\prime112.txt DELIMITED
?RECCOUNT()
APPEND FROM h:\动态链接库\prime113.txt DELIMITED
?RECCOUNT()
APPEND FROM h:\动态链接库\prime114.txt DELIMITED
?RECCOUNT()
APPEND FROM h:\动态链接库\prime115.txt DELIMITED
?RECCOUNT()
APPEND FROM h:\动态链接库\prime116.txt DELIMITED
?RECCOUNT()
APPEND FROM h:\动态链接库\prime117.txt DELIMITED
?RECCOUNT()
APPEND FROM h:\动态链接库\prime118.txt DELIMITED
?RECCOUNT()
APPEND FROM h:\动态链接库\prime119.txt DELIMITED
?RECCOUNT()
APPEND FROM h:\动态链接库\prime120.txt DELIMITED
?RECCOUNT()
APPEND FROM h:\动态链接库\prime121.txt DELIMITED
?RECCOUNT()
APPEND FROM h:\动态链接库\prime122.txt DELIMITED
?RECCOUNT()
APPEND FROM h:\动态链接库\prime123.txt DELIMITED
?RECCOUNT()
APPEND FROM h:\动态链接库\prime124.txt DELIMITED
?RECCOUNT()
APPEND FROM h:\动态链接库\prime125.txt DELIMITED
?RECCOUNT()
APPEND FROM h:\动态链接库\prime126.txt DELIMITED
?RECCOUNT()
APPEND FROM h:\动态链接库\prime127.txt DELIMITED
?RECCOUNT()
APPEND FROM h:\动态链接库\prime128.txt DELIMITED
?RECCOUNT()
APPEND FROM h:\动态链接库\prime129.txt DELIMITED
?RECCOUNT()
APPEND FROM h:\动态链接库\prime130.txt DELIMITED
?RECCOUNT()
GO 40081542
DELETE NEXT 1
PACK
SELECT 素数表3
BROWSE LAST
?RECCOUNT()
GO 40081542
GO bottom
DELETE NEXT 1
PACK
SELECT 素数表3
BROWSE LAST
?RECCOUNT()
GO bottom
APPEND FROM h:\动态链接库\prime131.txt DELIMITED
?RECCOUNT()
APPEND FROM h:\动态链接库\prime132.txt DELIMITED
?RECCOUNT()
APPEND FROM h:\动态链接库\prime133.txt DELIMITED
?RECCOUNT()
这是整理素数表的操作。已有40亿内的素数表。

白新岭

CLEAR
SELECT 1
USE D:\标记法\数据源表.DBF ALIAS 数据源
SELECT 2
USE D:\标记法\素数表5万.DBF ALIAS 素数表参
SELECT 5
USE D:\标记法\素数表结果.DBF ALIAS 素数表果
kssj=SECONDS()                     
FOR i=5 TO 6
@12,10 SAY i
dimension  arr[1658880]
SELECT 1
GO 1
    FOR j=1 TO 1658880
    arr[j]=素数式+(i-1)*9699690
    SELECT 1
    SKIP
    ENDFOR
      bpz=i*9699690
      Kf=INT(SQRT(bpz))
      SELECT 2
      GO 1
      COUNT ALL FOR 素参<=kf TO jlh  && jlh=RECNO()
      xhcs=jlh-8 &&xhcs是循环次数的简写（第一个字母代替）
      SELECT 2   
      GO 9
      FOR k=1 TO xhcs
       sc=素参
            FOR h=1 TO 1658880
                IF arr[h]>0
                  if MOD(arr[h],sc)=0
                   arr[h]=0
                   endif
                 ENDIF
             ENDFOR
       SELECT 2
       skip
       ENDFOR
           FOR l=1 TO 1658880
           IF  arr[l]>0
           SELECT 5
           APPEND BLANK
           REPLACE 素数 WITH arr[l]
           ENDIF
           ENDFOR
ENDFOR
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
这是用数组代替表储存数据的一个实验程序，用时17分49.91秒，素数表存储素数1096542个，与以前相同。

白新岭

DIMENSION Fib[20]
Fib[1]=1
Fib[2]=1
FOR i=3 TO 20
    n=i
   Fib[n]=Fib[n-1]+Fib[n-2]
   ?Fib[n]
ENDFOR
这是一个非常简单的数组运用。斐波那契数列(Fibonacci)

独舟星海

之所以*2，是因为素数是1种合成方法进入运算的，而实际上，素数7的每一类余数所对应的合成方法最少是2





（6类余数），整除的是4，这样除了整除的扩大2倍外，其余的不做处理，这样素数7的，和素数5的处理方式一致，即整除者，扩大2倍即可，其他余数不做处理，这个可以前置，在这里也可以把6n的对5处理一下，除5是余数2或3的不予进行下一步处理，过了素数5的筛选后，再判断是否继续，继续的能被素数5整除的扩倍，再算素数7的，能整除的扩倍。
    这时进入总循环，能整除的占1项，六种余数各占一个分枝，其他的进入快速通道，不做处理，维持原值，进入下一个循环。
三生素数中项差合成系数处理流程。

独舟星海

SELECT 1
USE D:\素数式系数\素数表十亿.dbf ALIAS 素数表
kssj=SECONDS()  &&取出开始时间
s=1.0000000000000000
SELECT 1
  GO 3
        FOR  j=1 TO 50876325
        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,"运行时间提示")
用时1分0.35秒，值为：0.635166354758853，再乘9/2，得到最密三生素数的系数为：2.85824859641484

独舟星海

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

?s
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
用时：0分53.73秒，值为0.2823254343494210，需*30/4，最终系数4.23488151524132.
有了这些公共系数，针对有两组三生素数构成的6生素数皆可求出。

独舟星海

SELECT 1
USE D:\素数式系数\素数表万.dbf ALIAS 素数表
SELECT 2
USE D:\素数式系数\k6生素数系数表.dbf ALIAS 系数表
kssj=SECONDS()  &&取出开始时间
FOR n=1 TO 99
m=30*INT((n-1)/3)+iif(MOD(n,3)=1,6,iif(MOD(n,3)=2,24,30))
    @ 5,12 say n
    s=1.0000000000000000
         IF MOD(m,5)=0
          s=s*2
         ENDIF
         IF MOD(m,7)=0
          s=s*2
         ENDIF        
    SELECT 1
    GO 5
    pdz=.F.
     DO WHILE NOT pdz
           SELECT 1
           P=素数
           IF 2*P>=m+60
           pdz=.T.
           endif
           DO case
           CASE MOD(m,P)=0
           s=s*(P-3)/(P-6)
           CASE  MOD(m,P)=MOD(-2,P)
           s=s*(P-5)/(P-6)
           CASE  MOD(m,P)=MOD(2,P)
           s=s*(P-5)/(P-6)
           CASE  MOD(m,P)=MOD(-4,P)
           s=s*(P-5)/(P-6)
           CASE  MOD(m,P)=MOD(4,P)
           s=s*(P-5)/(P-6)
           CASE  MOD(m,P)=MOD(-6,P)
           s=s*(P-5)/(P-6)
           CASE  MOD(m,P)=MOD(6,P)
           s=s*(P-5)/(P-6)
           otherwise
           s=s*1
           ENDCASE
       SELECT 1
       SKIP
       enddo
         
           SELECT 2
           APPEND BLANK     &&增加一条空记录
           REPLACE k生 WITH 6 &&将B值付给素数式
           REPLACE 三kd WITH m &&将B值付给素数式
           REPLACE 系数 WITH 34.5972246684609*s &&将B值付给素数式
  ENDFOR
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
这是由两组最密3生素数的公共系数，求其他具体跨度值的系数程序。（即所有与最密3生素数有关联的6生素数的系数）。

独木星空谁

SELECT 1
USE D:\三生素数中项合成\三生素数表.DBF ALIAS 三生素数
SELECT 2
USE D:\三生素数中项合成\三生素数表六.DBF ALIAS 三生素数六
SELECT 3
USE D:\三生素数中项合成\六生素数统计表.DBF ALIAS 六生统计
kssj=SECONDS()
FOR n=2 TO 10
@ 15,22 say n
m=30*INT((n-1)/3)+iif(MOD(n,3)=1,6,iif(MOD(n,3)=2,24,30))
SELECT 2
DELETE ALL
PACK
SELECT  1
GO 1
    For i=1 TO  2711000-n-10&&这个位置一定把数值换成新表的记录条数
      @ 5,12 say i
    SELECT  1     &&打开盛放素数式的表
    jl=recno()
    PUBLIC A
    A=三素中
    count next n+10 for m=三素中-A to js1
        IF js1=1
         SELECT 2
         APPEND BLANK     &&增加一条空记录
         REPLACE 三6六 WITH A+m/2 &&将N值付给素数式
         else
       ENDIF
      SELECT 1
      GO jl+1
     ENDFOR
   
     SELECT 2
     For j=2 to 10
      @ 3,6 say j
      fw=10^j
            SELECT 2
            GO 1
            COUNT ALL FOR fw>三6六 TO tj
              SELECT  3  &&打开盛放素数式的表
              APPEND BLANK     &&增加一条空记录
              REPLACE 范围 WITH fw
              REPLACE 跨度 WITH m
              REPLACE 统计 WITH tj
              REPLACE k生 WITH 6
   ENDFOR
   ENDFOR
   
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
这是寻找两组三生素数中项差一致的程序，并进行统计。

独木星空谁

SELECT 1
USE D:\三生素数中项合成\三生素数表.DBF ALIAS 三生素数
SELECT 2
USE D:\三生素数中项合成\三生素数表六.DBF ALIAS 三生素数六
SELECT 3
USE D:\三生素数中项合成\六生素数统计表.DBF ALIAS 六生统计
kssj=SECONDS()
FOR n=41 TO 60
@ 15,22 say n
m=30*INT((n-1)/3)+iif(MOD(n,3)=1,6,iif(MOD(n,3)=2,24,30))
SELECT 2
DELETE ALL
PACK
SELECT  1
GO 1
    For i=1 TO  2711000-n-10&&这个位置一定把数值换成新表的记录条数
      @ 5,12 say i
    SELECT  1     &&打开盛放素数式的表
    jl=recno()
    PUBLIC A
    A=三素中
    count next n+10 for m=三素中-A to js1
        IF js1=1
         SELECT 2
         APPEND BLANK     &&增加一条空记录
         REPLACE 三6六 WITH A+m/2 &&将N值付给素数式
         else
       ENDIF
      SELECT 1
      GO jl+1
     ENDFOR
   
     SELECT 2
     For j=2 to 10
      @ 3,6 say j
      fw=10^j
            SELECT 2
            GO 1
            COUNT ALL FOR fw>三6六 TO tj
              SELECT  3  &&打开盛放素数式的表
              APPEND BLANK     &&增加一条空记录
              REPLACE 范围 WITH fw
              REPLACE 跨度 WITH m
              REPLACE 统计 WITH tj
              REPLACE k生 WITH 6
   ENDFOR
   ENDFOR
   
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
这个程序，第一步是制作6生素数，第二部是统计6生素数的数量（不保留中间数据，只有最密3生素数母表需要提前准备好）。