CLEAR
CLOSE DATABASES
LOCAL kkk
SELECT 1
USE d:\标记法\素数式17.DBF ALIAS 素数式17
SELECT 2
USE d:\标记法\素数表参考.DBF ALIAS 素数表参
SELECT 3
USE d:\标记法\三生素数.DBF ALIAS 三素表
DELETE ALL
PACK
SELECT 三素 数据1 FROM 三素表 WHERE 1=2 INTO CURSOR 数据a READWRITE
kssj = DATETIME()
FOR i=9901 TO 9905
SELECT 式17+(i-1)*510510 数据1,CAST(1 as INT) 数据mod FROM 素数式17 INTO CURSOR 数据a READWRITE
SELECT 数据a
GO BOTTOM
Kf=INT(SQRT(数据1))
SELECT 2
kkk = 0
SCAN FOR RECNO()>7 AND 素数<=kf
IF RECNO()>kkk
WAIT TRANSFORM(RECNO()) WINDOW NOWAIT NOCLEAR
kkk = kkk + 10
ENDIF
UPDATE 数据a SET 数据mod=MOD(数据1,素数表参.素数) WHERE 数据mod<>0 and 数据mod<>4 and 数据mod<>6
SELECT 2
ENDSCAN
INSERT INTO 三素表 (三素) SELECT 数据1 FROM 数据a WHERE 数据mod<>0 and 数据mod<>4 and 数据mod<>6
ENDFOR
USE IN 数据a
MESSAGEBOX( DATETIME()-kssj)
这是简单改写了,用于求最密三生素数的程序,循环5个外循环值用时69秒(开始条件用错,条件是用or连接的,结果一个也没有筛除出去,全部留下了,进入多少,出来多少,一个也没有去掉,而且用时222秒,后来把连接条件的改为and(并且))。