SELECT 1
USE h:\二生素数串\孪串13表.DBF ALIAS 孪串13表
SELECT 3
USE h:\二生素数串\孪串17表.DBF ALIAS 孪串17表
kssj=SECONDS() &&取出开始时间
FOR i=1 TO 17
@22,20 SAY i
SELECT 1
GO 1
FOR k=1 TO 1485
lc13=孪串13
bpz=lc13+(i-1)*30030 &&给被判断值置数,以循环值做变量。
ys=MOD(bpz,17)
IF ys=0 OR ys=2
else
SELECT 3 &&打开保存求解结果的信息表
APPEND BLANK &&增加一条空记录
REPLACE 孪串17 WITH bpz &&将被判断值保存到被判断值字段中(被判断值数据栏)
ENDIF
SELECT 1
SKIP
ENDFOR
ENDFOR
=MESSAGEBOX("运行时间:"+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
这是对孪生素数串的一个研究,不知放在那儿,吹水佬版主莫怪。
USE h:\二生素数串\孪串13表.DBF ALIAS 孪串13表
SELECT 3
USE h:\二生素数串\孪串17表.DBF ALIAS 孪串17表
kssj=SECONDS() &&取出开始时间
FOR i=1 TO 17
@22,20 SAY i
SELECT 1
GO 1
FOR k=1 TO 1485
lc13=孪串13
bpz=lc13+(i-1)*30030 &&给被判断值置数,以循环值做变量。
ys=MOD(bpz,17)
IF ys=0 OR ys=2
else
SELECT 3 &&打开保存求解结果的信息表
APPEND BLANK &&增加一条空记录
REPLACE 孪串17 WITH bpz &&将被判断值保存到被判断值字段中(被判断值数据栏)
ENDIF
SELECT 1
SKIP
ENDFOR
ENDFOR
=MESSAGEBOX("运行时间:"+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
这是对孪生素数串的一个研究,不知放在那儿,吹水佬版主莫怪。
素数问题的解决是我学习编程永恒的动力。