|
SELECT 477
USE d:\等差四生素数7\无偶数表总表.DBF ALIAS 无偶数总表
kssj=SECONDS()
wozzxz="无偶最终结果表新总"
For l=2 to 3
@ 15,12 say l
wozb=wozzxz+ALLTRIM(STR(l))
USE IN 477
USE d:\等差四生素数7\无偶数表总表.DBF ALIAS 无偶数总表
SELECT 477
DELETE ALL
PACK
bwjm="偶数周期表"
For j=(l-1)*9 to 9*l
@ 5,12 say j
k=j
wd=bwjm+ALLTRIM(STR(j))
USE d:\等差四生素数7\&wd in 0
For i=(j-1)*1050000+1 to (j+1)*1050000
@ 10,22 say i
&& n=i
&& s=0
&& do case
&& case MOD(n,5)=1
&& s=s+30
&& case MOD(n,5)=2
&& s=s+90
&& case MOD(n,5)=3
&& s=s+120
&& case MOD(n,5)=4
&& s=s+180
&& case MOD(n,5)=0
&& s=s+210
&& endcase
&& wou=INT((n-1)/5)*210+s
wou=2*i
SELECT "偶数周期表"+ALLTRIM(STR(k))
&& select G:\三角递增法\&WD..DBF IN 0
A=偶数
IF A=wou
SELECT "偶数周期表"+ALLTRIM(STR(k))
skip
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:\等差四生素数7\&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,"运行时间提示")
这是处理一个类似问题:等差四生素数(P,P+210,P+420,P+630)的中项和合成分布。 |
|