SELECT 477
USE d:\等差四生素数\无偶数表总表.DBF ALIAS 无偶数总表
kssj=SECONDS()
wozzxz="无偶最终结果表新总"
For l=2 to 2
@ 15,12 say l
wozb=wozzxz+ALLTRIM(STR(l))
USE IN 477
USE d:\等差四生素数\无偶数表总表.DBF ALIAS 无偶数总表
SELECT 477
DELETE ALL
PACK
bwjm="偶数周期表"
For j=(l-1)*2 to 2*l
@ 5,12 say j
k=j
wd=bwjm+ALLTRIM(STR(j))
USE d:\等差四生素数\&wd in 0
For i=(k-1)*750000+1 to (k+1)*750000
@ 10,22 say i
n=i
s=0
do case
case MOD(n,5)=1
s=s+2
case MOD(n,5)=2
s=s+4
case MOD(n,5)=3
s=s+10
case MOD(n,5)=4
s=s+12
case MOD(n,5)=0
s=s+14
endcase
wou=INT((n-1)/5)*14+s
&&
wou=2*i
&& IF MOD(wou,7)=1 OR
MOD(wou,7)=6
&&
LOOP
&& ENDIF
SELECT "偶数周期表"+ALLTRIM(STR(k))
&& select G:\三角递增法\&WD..DBF IN 0
A=偶数
IF A=wou
SELECT "偶数周期表"+ALLTRIM(STR(k))
SKIP
&& ?recno()
LOOP
ELSE
insert into 无偶数总表 (无偶) values (wou)
&& 上面三名改成这一句
ENDIF
ENDFOR
use in "偶数周期表"+ALLTRIM(STR(k))
&& 用完就关闭,否则可能会崩溃
ENDFOR
SELECT * FROM 无偶数总表 WHERE 无偶 IN ( SELECT 无偶 FROM 无偶数总表 GROUP BY 无偶 HAVING count(*) > 1) order by 无偶 INTO table d:\等差四生素数\&wozb
use IN &wozb
SELECT 477
USE IN
477
ENDFOR
=MESSAGEBOX("运行时间:"+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
针对等差四生素数d30的程序