|

楼主 |
发表于 2021-5-26 16:14
|
显示全部楼层
SELECT 1
USE D:\素数式裂解\素数式.DBF ALIAS 素数式
kssj=SECONDS()
For i=1 to 16
FOR j=i+1 TO 17
ss1=2*i
ss2=2*j
SELECT 1 &&打开盛放素数式的表
APPEND BLANK &&增加一条空记录
REPLACE 素式0 WITH ss1 &&将B值付给素数式
APPEND BLANK &&增加一条空记录
REPLACE 素式0 WITH ss2 &&将B值付给素数式
endfor
endfor
=MESSAGEBOX("运行时间:"+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
SELECT 1
USE D:\素数式裂解\素数式5.DBF ALIAS 素数式5
kssj=SECONDS()
For i=1 to 15
FOR j=i+1 TO 16
FOR h=j+1 TO 17
ss1=2*i
ss2=2*j
ss3=2*h
SELECT 1 &&打开盛放素数式的表
APPEND BLANK &&增加一条空记录
REPLACE 素式5 WITH ss1 &&将B值付给素数式
APPEND BLANK &&增加一条空记录
REPLACE 素式5 WITH ss2 &&将B值付给素数式
APPEND BLANK &&增加一条空记录
REPLACE 素式5 WITH ss3 &&将B值付给素数式
ENDFOR
endfor
endfor
=MESSAGEBOX("运行时间:"+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
SELECT 1
USE D:\素数式裂解\素数式6.DBF ALIAS 素数式6
kssj=SECONDS()
For i=1 to 14
FOR j=i+1 TO 15
FOR h=j+1 TO 16
FOR k=h+1 TO 17
ss1=2*i
ss2=2*j
ss3=2*h
ss4=2*k
SELECT 1 &&打开盛放素数式的表
APPEND BLANK &&增加一条空记录
REPLACE 素式6 WITH ss1 &&将B值付给素数式
APPEND BLANK &&增加一条空记录
REPLACE 素式6 WITH ss2 &&将B值付给素数式
APPEND BLANK &&增加一条空记录
REPLACE 素式6 WITH ss3 &&将B值付给素数式
APPEND BLANK &&增加一条空记录
REPLACE 素式6 WITH ss4 &&将B值付给素数式
ENDFOR
ENDFOR
endfor
endfor
=MESSAGEBOX("运行时间:"+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
SELECT 1
USE D:\素数式裂解\素数式7.DBF ALIAS 素数式7
kssj=SECONDS()
For i=1 to 13
FOR j=i+1 TO 14
FOR h=j+1 TO 15
FOR k=h+1 TO 16
FOR m=k+1 TO 17
ss1=2*i
ss2=2*j
ss3=2*h
ss4=2*k
ss5=2*m
SELECT 1 &&打开盛放素数式的表
APPEND BLANK &&增加一条空记录
REPLACE 素式7 WITH ss1 &&将B值付给素数式
APPEND BLANK &&增加一条空记录
REPLACE 素式7 WITH ss2 &&将B值付给素数式
APPEND BLANK &&增加一条空记录
REPLACE 素式7 WITH ss3 &&将B值付给素数式
APPEND BLANK &&增加一条空记录
REPLACE 素式7 WITH ss4 &&将B值付给素数式
APPEND BLANK &&增加一条空记录
REPLACE 素式7 WITH ss5 &&将B值付给素数式
ENDFOR
ENDFOR
ENDFOR
endfor
endfor
=MESSAGEBOX("运行时间:"+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
SELECT 1
USE D:\素数式裂解\素数式8.DBF ALIAS 素数式8
kssj=SECONDS()
For i=1 to 12
FOR j=i+1 TO 13
FOR h=j+1 TO 14
FOR k=h+1 TO 15
FOR m=k+1 TO 16
FOR g=m+1 TO 17
ss1=2*i
ss2=2*j
ss3=2*h
ss4=2*k
ss5=2*m
ss6=2*g
SELECT 1 &&打开盛放素数式的表
APPEND BLANK &&增加一条空记录
REPLACE 素式8 WITH ss1 &&将B值付给素数式
APPEND BLANK &&增加一条空记录
REPLACE 素式8 WITH ss2 &&将B值付给素数式
APPEND BLANK &&增加一条空记录
REPLACE 素式8 WITH ss3 &&将B值付给素数式
APPEND BLANK &&增加一条空记录
REPLACE 素式8 WITH ss4 &&将B值付给素数式
APPEND BLANK &&增加一条空记录
REPLACE 素式8 WITH ss5 &&将B值付给素数式
APPEND BLANK &&增加一条空记录
REPLACE 素式8 WITH ss6 &&将B值付给素数式
ENDFOR
ENDFOR
ENDFOR
ENDFOR
endfor
endfor
=MESSAGEBOX("运行时间:"+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
SELECT 1
USE D:\素数式裂解\素数式9.DBF ALIAS 素数式9
kssj=SECONDS()
For i=1 to 11
FOR j=i+1 TO 12
FOR h=j+1 TO 13
FOR k=h+1 TO 14
FOR m=k+1 TO 15
FOR g=m+1 TO 16
FOR l=g+1 TO 17
ss1=2*i
ss2=2*j
ss3=2*h
ss4=2*k
ss5=2*m
ss6=2*g
ss7=2*l
SELECT 1 &&打开盛放素数式的表
APPEND BLANK &&增加一条空记录
REPLACE 素式9 WITH ss1 &&将B值付给素数式
APPEND BLANK &&增加一条空记录
REPLACE 素式9 WITH ss2 &&将B值付给素数式
APPEND BLANK &&增加一条空记录
REPLACE 素式9 WITH ss3 &&将B值付给素数式
APPEND BLANK &&增加一条空记录
REPLACE 素式9 WITH ss4 &&将B值付给素数式
APPEND BLANK &&增加一条空记录
REPLACE 素式9 WITH ss5 &&将B值付给素数式
APPEND BLANK &&增加一条空记录
REPLACE 素式9 WITH ss6 &&将B值付给素数式
APPEND BLANK &&增加一条空记录
REPLACE 素式9 WITH ss7 &&将B值付给素数式
ENDFOR
ENDFOR
ENDFOR
ENDFOR
ENDFOR
endfor
endfor
=MESSAGEBOX("运行时间:"+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
SELECT 1
USE D:\素数式裂解\素数式10.DBF ALIAS 素数式10
kssj=SECONDS()
For i=1 to 10
FOR j=i+1 TO 11
FOR h=j+1 TO 12
FOR k=h+1 TO 13
FOR m=k+1 TO 14
FOR g=m+1 TO 15
FOR l=g+1 TO 16
FOR u=l+1 TO 17
ss1=2*i
ss2=2*j
ss3=2*h
ss4=2*k
ss5=2*m
ss6=2*g
ss7=2*l
ss8=2*u
SELECT 1 &&打开盛放素数式的表
APPEND BLANK &&增加一条空记录
REPLACE 素式10 WITH ss1 &&将B值付给素数式
APPEND BLANK &&增加一条空记录
REPLACE 素式10 WITH ss2 &&将B值付给素数式
APPEND BLANK &&增加一条空记录
REPLACE 素式10 WITH ss3 &&将B值付给素数式
APPEND BLANK &&增加一条空记录
REPLACE 素式10 WITH ss4 &&将B值付给素数式
APPEND BLANK &&增加一条空记录
REPLACE 素式10 WITH ss5 &&将B值付给素数式
APPEND BLANK &&增加一条空记录
REPLACE 素式10 WITH ss6 &&将B值付给素数式
APPEND BLANK &&增加一条空记录
REPLACE 素式10 WITH ss7 &&将B值付给素数式
APPEND BLANK &&增加一条空记录
REPLACE 素式10 WITH ss8 &&将B值付给素数式
ENDFOR
ENDFOR
ENDFOR
ENDFOR
ENDFOR
ENDFOR
endfor
endfor
=MESSAGEBOX("运行时间:"+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
SELECT 1
USE D:\素数式裂解\素数式11.DBF ALIAS 素数式11
kssj=SECONDS()
For i=1 to 9
FOR j=i+1 TO 10
FOR h=j+1 TO 11
FOR k=h+1 TO 12
FOR m=k+1 TO 13
FOR g=m+1 TO 14
FOR l=g+1 TO 15
FOR u=l+1 TO 16
FOR v=u+1 TO 17
ss1=2*i
ss2=2*j
ss3=2*h
ss4=2*k
ss5=2*m
ss6=2*g
ss7=2*l
ss8=2*u
ss9=2*v
SELECT 1 &&打开盛放素数式的表
APPEND BLANK &&增加一条空记录
REPLACE 素式11 WITH ss1 &&将B值付给素数式
APPEND BLANK &&增加一条空记录
REPLACE 素式11 WITH ss2 &&将B值付给素数式
APPEND BLANK &&增加一条空记录
REPLACE 素式11 WITH ss3 &&将B值付给素数式
APPEND BLANK &&增加一条空记录
REPLACE 素式11 WITH ss4 &&将B值付给素数式
APPEND BLANK &&增加一条空记录
REPLACE 素式11 WITH ss5 &&将B值付给素数式
APPEND BLANK &&增加一条空记录
REPLACE 素式11 WITH ss6 &&将B值付给素数式
APPEND BLANK &&增加一条空记录
REPLACE 素式11 WITH ss7 &&将B值付给素数式
APPEND BLANK &&增加一条空记录
REPLACE 素式11 WITH ss8 &&将B值付给素数式
APPEND BLANK &&增加一条空记录
REPLACE 素式11 WITH ss9 &&将B值付给素数式
ENDFOR
ENDFOR
ENDFOR
ENDFOR
ENDFOR
ENDFOR
ENDFOR
endfor
endfor
=MESSAGEBOX("运行时间:"+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
这是跨度36的素数式(从4生到11生的制作程序,线型)。 |
|