[原创]请教vfbpgyfk先生一个编程问题

白新岭 · 发表于 2025-7-20 16:57

SELECT 1
USE D:\最密三生素数文件\素数表.DBF ALIAS 素数表
SELECT 2
USE D:\最密三生素数文件\最密6生素数.DBF ALIAS 密6中
kssj=SECONDS()
SELECT 1
GO 1
For i=1 to 50876228
@ 5,12 say i
SELECT 1 &&打开盛放素数的表
jl=recno()
PUBLIC A
A=素数
SKIP 5
PUBLIC B
B=素数
cj1=B-A &&求前后两个素数的差值
   IF cj1=16
   SELECT 2
   APPEND BLANK  &&增加一条空记录
   REPLACE lss WITH A+8 &&将A+4付给变量szx
   ENDIF
   SELECT 1
   GO jl+1
   ENDFOR
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
用素数表制作最密6生素数简

白新岭 · 发表于 2025-7-20 23:12

截止2025年07月19日周六23:02分浏览量852363，回复3954，热度285
截止2025年07月20日周日23:11分浏览量855026，回复3961，热度285

白新岭 · 发表于 2025-7-20 23:32

SELECT 1
USE D:\最密三生素数文件\素数表.DBF ALIAS 素数表
SELECT 2
USE D:\最密三生素数文件\最密7生素数.DBF ALIAS 密7中
kssj=SECONDS()
SELECT 1
GO 1
For i=1 to 50876228
@ 5,12 say i
SELECT 1 &&打开盛放素数的表
jl=recno()
PUBLIC A
A=素数
SKIP 4
PUBLIC B
B=素数
SKIP 2
PUBLIC C
C=素数
cj1=B-A &&求前后两个素数的差值
cj2=C-B &&求前后两个素数的差值
   IF cj1=12 AND cj2=8
   SELECT 2
   APPEND BLANK  &&增加一条空记录
   REPLACE qss WITH A+10 &&将A+4付给变量szx
   ENDIF
   SELECT 1
   GO jl+1
   ENDFOR
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
用素数表制作最密7生素数中项

白新岭 · 发表于 2025-7-21 09:34

截止2025年07月20日周日23:11分浏览量855026，回复3961，热度285
截止2025年07月21日周一09:33分浏览量856088，回复3963，热度285

白新岭 · 发表于 2025-7-21 11:39

SELECT 1
USE D:\最密三生素数文件\素数表.DBF ALIAS 素数表
SELECT 2
USE D:\最密三生素数文件\最密7生素数逆.DBF ALIAS 密7中逆
kssj=SECONDS()
SELECT 1
GO 1
For i=1 to 50876228
@ 5,12 say i
SELECT 1 &&打开盛放素数的表
jl=recno()
PUBLIC A
A=素数
SKIP 2
PUBLIC B
B=素数
SKIP 4
PUBLIC C
C=素数
cj1=B-A &&求前后两个素数的差值
cj2=C-B &&求前后两个素数的差值
   IF cj1=8 AND cj2=12
   SELECT 2
   APPEND BLANK  &&增加一条空记录
   REPLACE nqss WITH A+10 &&将A+4付给变量szx
   ENDIF
   SELECT 1
   GO jl+1
   ENDFOR
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
用素数表筛选最密7生素数中项（0,2,8,12,14,18,20）

白新岭 · 发表于 2025-7-21 12:48

SELECT 1
USE D:\最密三生素数文件\素数表.DBF ALIAS 素数表
SELECT 2
USE D:\最密三生素数文件\最密8生素数.DBF ALIAS 密8中
kssj=SECONDS()
SELECT 1
GO 1
For i=1 to 50876228
@ 5,12 say i
SELECT 1 &&打开盛放素数的表
jl=recno()
PUBLIC A
A=素数
SKIP 4
PUBLIC B
B=素数
SKIP 3
PUBLIC C
C=素数
cj1=B-A &&求前后两个素数的差值
cj2=C-B &&求前后两个素数的差值
   IF cj1=12 AND cj2=14
   SELECT 2
   APPEND BLANK  &&增加一条空记录
   REPLACE bss WITH A+13 &&将A+4付给变量szx
   ENDIF
   SELECT 1
   GO jl+1
   ENDFOR
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
用素数表筛选最密8生素数（0,2,6,8,12,18,20,26）

白新岭 · 发表于 2025-7-21 15:22

SELECT 1
USE D:\最密三生素数文件\素数表.DBF ALIAS 素数表
SELECT 2
USE D:\最密三生素数文件\最密8生素数逆.DBF ALIAS 密8中逆
kssj=SECONDS()
SELECT 1
GO 1
For i=1 to 50876228
@ 5,12 say i
SELECT 1 &&打开盛放素数的表
jl=recno()
PUBLIC A
A=素数
SKIP 3
PUBLIC B
B=素数
SKIP 4
PUBLIC C
C=素数
cj1=B-A &&求前后两个素数的差值
cj2=C-B &&求前后两个素数的差值
   IF cj1=14 AND cj2=12
   SELECT 2
   APPEND BLANK  &&增加一条空记录
   REPLACE nbss WITH A+13 &&将A+4付给变量szx
   ENDIF
   SELECT 1
   GO jl+1
   ENDFOR
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

白新岭 · 发表于 2025-7-21 16:09

SELECT 1
USE D:\最密三生素数文件\素数表.DBF ALIAS 素数表
SELECT 2
USE D:\最密三生素数文件\最密8生素数中.DBF ALIAS 密8中中
kssj=SECONDS()
SELECT 1
GO 1
For i=1 to 50876228
@ 5,12 say i
SELECT 1 &&打开盛放素数的表
jl=recno()
PUBLIC A
A=素数
SKIP 4
PUBLIC B
B=素数
SKIP 3
PUBLIC C
C=素数
cj1=B-A &&求前后两个素数的差值
cj2=C-B &&求前后两个素数的差值
   IF cj1=14 AND cj2=12
   SELECT 2
   APPEND BLANK  &&增加一条空记录
   REPLACE zbss WITH A+13 &&将A+4付给变量szx
   ENDIF
   SELECT 1
   GO jl+1
   ENDFOR
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
用素数表筛选最密8生素数中项（0,2,6,12,14,20,24,26）

白新岭 · 发表于 2025-7-21 22:48

截止2025年07月20日周日23:11分浏览量855026，回复3961，热度285
截止2025年07月21日周一22:48分浏览量857589，回复3968，热度285

白新岭 · 发表于 2025-7-22 09:29

截止2025年07月21日周一22:48分浏览量857589，回复3968，热度285
截止2025年07月22日周二09:29分浏览量858387，回复3969，热度285，排列五68357（20250721日），去掉8，留537，顺序不同
进来时，浏览量858459

		自动登录	找回密码
密码			注册