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

白新岭 · 发表于 2019-6-5 09:32

计算782万到862万间80万个外循环值用时1031分9.86秒，折合17小时11分9.86秒；
计算682万到762万间80万个外循环值用时988分39.15秒，折合16小时28分39.15秒；
计算582万到662万间80万个外循环值用时942分42.43秒，折合15小时42分42.43秒；
计算482万到562万间80万个外循环值用时870分47.87秒，折合14小时30分47.87秒。
从这里可以看出，范围值越大，用时越多。
以前一天只能计算5000个数据，后来可以计算1万数据，现在一天可以计算100万个数据。

白新岭 · 发表于 2019-6-5 13:44

台式电脑比起笔记本电脑的运算速度要快的多。
在笔记本电脑运算882万到962万之间的80万各数据用时2天45分56.40秒。
在笔记本电脑运算982万到1062万之间的80万各数据用时2天109分0.86秒。

白新岭 · 发表于 2019-6-6 07:10

* 请注意，外循环是k?生成初始值？.dbf中[生成元?]字段中的记录条数目，即有多少个不同的值就有多少次外循环
CLEAR ALL
SELECT 1
use E:\用vfp求k生素数数量\k10生成初始值23.dbf ALIAS k10生成初始值23  &&注意，表开头不允许以数字开头，每次增倍一个素数周期，就把表名结尾的数字改成相符的数（指与新素数相同）
SELECT 2
USE E:\用vfp求k生素数数量\k10生成初始值19.DBF ALIAS k10生成初始值19 &&注意，表开头不允许以数字开头，每次增倍一个素数周期，就把表名结尾的数字改成相符的数（指与新素数相同）
*INPUT "请输入外循环开始值 wxhks=" TO wxhks
*INPUT "请输入外循环结束值 wjs=" TO wjs
*INPUT "请输入内循环开始值 nks=" TO nks
*INPUT "请输入内循环结束值 njs=" TO njs
GO Top
FOR h=1 TO 630  &&注意，当复制此程序模版时一定把外循环次数改成工作区2打开表的总记录条数的值
SELECT k10生成初始值19
FOR j=0 TO 22 &&改成这个大素数-1的值，从打开的表名后边的两个素数中，选中最大的一个素数-1，把此值付给内循环的终值
      bpz=初始值19+j*9699690    &&注意这条语句中的生成元？字段名末尾的数字，它是两个素数较小的一个
qmz=MOD(bpz,23)    &&注意取模素数，它是较大的一个素数
IF qmz=0 OR qmz=2 OR qmz=6 OR qmz=8 OR qmz=12 OR qmz=18 OR qmz=20 OR qmz=3 OR qmz=7 OR qmz=9 &&这里的预先给的限制余数是对qmz中的素数取模的余数，如果大于上边的素数，也需把余数改为同余的余数
ELSE
SELECT  k10生成初始值23
APPEND BLANK
REPLACE 初始值23 WITH bpz
SELECT k10生成初始值19
ENDIF
ENDFOR
SKIP
ENDFOR
CLEAR ALL
这是10生素数式19到23，其它已然。

白新岭 · 发表于 2019-6-6 07:14

CLEAR ALL
SELECT 1
USE E:\用vfp求k生素数数量\最密5生素数群.DBF ALIAS 最密5生素数
SELECT 2
USE E:\用vfp求k生素数数量\素数表2.DBF ALIAS 素数表
SELECT 3
USE E:\用vfp求k生素数数量\k5生成初始值23.DBF ALIAS 生成初始值23
*INPUT "请输入预先值 K= " TO yxk
*INPUT "请输入步长值 bcz= " TO bcz
*INPUT "请输入初始值 csz= " TO csz
*INPUT "请输入外循环起始值 xks= " TO xks
*INPUT "请输入外循环终结值 zds= " TO zds
GO top                                  &&***************这条语句是将“k8生成初始值31”表的指针移到“41001”处**************
DO WHILE NOT EOF()                         &&*********既然是调用表中信息，而且是后部分，就应该使用“DO WHILE NOT EOF()”语句，由它来判断是否到文件尾**********
@ 2,5 say RECNO()                      &&显示记录号
scy=生成元23                         &&计算被判断值
For i=7 to 12
bpz=scy+i*223092870
Kf=INT(SQRT(bpz))                      &&求出被判断值的开方根
SELECT 素数表                      &&打开素数表
LOCATE FOR 素数>=kf                   &&根据开方根,查找最大素数
DO CASE
CASE EOF()                         &&如果超出素数表最后一条记录
GO BOTTOM
CASE 素数>kf                      &&如果找到的素数比开方根值大,就将记录指针退回一个,保证使用的最大素数在开方根内
SKIP -1
ENDCASE
SSS=RECNO()                            &&记录下最大素数（开方根内）记录位置（如果找到的素数等于开方根，则直接读取这个素数的位置）
GO 9                                  &&从第二条记录开始读取素数(37)
FOR j=9 TO SSS                      &&内循环开始。这个循环实质上是从小到大顺序,依次读取素数。循环值是记录序号
qmz=MOD(bpz,素数)                &&以读取的素数为条件,对被判断值求模【qmz=MOD(bpz,素数)】文本号括着的原在此行语句体部分.特别需要注意的是在用标点符号时，一定改成英文模式及半角状态。
IF qmz=0 OR qmz=2 OR qmz=6 OR qmz=8 OR qmz=12
EXIT
ENDIF
SKIP                               &&素数表指针向下移动一个
ENDFOR
IF j>sss
SELECT  最密5生素数                &&打开保存求解结果的信息表
APPEND BLANK                      &&增加一条空记录
      REPLACE 被判值 WITH bpz          &&将被判断值保存到被判断值字段中(被判断值数据栏)
REPLACE 开方根 WITH kf             &&将开方根保存到开方根字段中(开方根值数据栏)
REPLACE 外环值 WITH RECNO()+1
ENDIF
ENDFOR
SELECT 生成初始值23
SKIP
ENDDO
CLEAR ALL
nbj二维5生数程序

白新岭 · 发表于 2019-6-6 07:17

USE e:\用vfp求k生素数数量\升序代数数17.dbf
DO WHILE NOT EOF()
SELECT 升序代数数17
PUBLIC B
B=代数17
PUBLIC D
D=recno()
SKIP 24
PUBLIC A
A=代数17
C=A-B
REPLACE 间隔13 WITH C
go D
skip
ENDDO
测升序素数式17的13间距

白新岭 · 发表于 2019-6-6 07:18

*ALL表示所有记录
*NEXT（n）从当前记录起的N个记录
*RECORD（N)第N个记录
*REST从当前记录起到最后一条记录
CLEAR ALL
SELECT 1
USE E:\用vfp求k生素数数量\查询23中的8家村.dbf ALIAS 查询23中的8家村
SELECT 2
USE  e:\用vfp求k生素数数量\升序代数数23.dbf ALIAS 升序代数数23
DO WHILE NOT EOF()
PUBLIC A
A=代数23
PUBLIC B
B=recno()
PUBLIC D
COUNT NEXT 15 FOR 间距23=2 TO D
IF D=8
   SELECT 查询23中的8家村
   APPEND BLANK
   REPLACE 在23中8 WITH A
   REPLACE 在23中的位置 WITH B
   SELECT 升序代数数23
endif
go B
SKIP
ENDDO
CLEAR ALL
查询23中的8家村

白新岭 · 发表于 2019-6-6 07:21

CLEAR ALL
SELECT 1
USE E:\用vfp求k生素数数量\最密5家村.dbf ALIAS 最密5家村 &&当每增倍一个素数周期就改成下一个表名（改成带下一个素数数字的表
SELECT 2
USE E:\用vfp求k生素数数量\素数表2.dbf ALIAS 素数表2
SELECT 3
USE E:\用vfp求k生素数数量\k5家村初始值29.DBF ALIAS k5家村初始值29 &&同上
GO top                                  &&***************这条语句是将“k8生成初始值31”表的指针移到“41001”处**************
DO WHILE NOT EOF()                         &&*********既然是调用表中信息，而且是后部分，就应该使用“DO WHILE NOT EOF()”语句，由它来判断是否到文件尾**********
@ 2,5 say RECNO()                      &&显示记录号
scy=初始值29                         &&计算被判断值
For i=33 to 48
bpz=scy+i*6469693230
Kf=INT(SQRT(bpz))                      &&求出被判断值的开方根
SELECT 素数表2                      &&打开素数表
LOCATE FOR 素数>=kf                   &&根据开方根,查找最大素数
DO CASE
CASE EOF()                         &&如果超出素数表最后一条记录
GO BOTTOM
CASE 素数>kf                      &&如果找到的素数比开方根值大,就将记录指针退回一个,保证使用的最大素数在开方根内
SKIP -1
ENDCASE
SSS=RECNO()                            &&记录下最大素数（开方根内）记录位置（如果找到的素数等于开方根，则直接读取这个素数的位置）
GO 12                                  &&从第二条记录开始读取素数(37)
FOR j=12 TO SSS                      &&内循环开始。这个循环实质上是从小到大顺序,依次读取素数。循环值是记录序号
qmz=MOD(bpz,素数)                &&以读取的素数为条件,对被判断值求模【qmz=MOD(bpz,素数)】文本号括着的原在此行语句体部分.特别需要注意的是在用标点符号时，一定改成英文模式及半角状态。
IF qmz=0 OR qmz=2 OR qmz=6 OR qmz=8 OR qmz=18 OR qmz=20 OR qmz=30 OR qmz=32 OR qmz=36 OR qmz=38
EXIT
ENDIF
SKIP                               &&素数表指针向下移动一个
ENDFOR
   IF j>sss
SELECT  最密5家村                &&打开保存求解结果的信息表
APPEND BLANK                      &&增加一条空记录
      REPLACE 被判值 WITH bpz          &&将被判断值保存到被判断值字段中(被判断值数据栏)
   ENDIF
ENDFOR
SELECT k5家村初始值29
SKIP
ENDDO
CLEAR ALL
产生最密5家村

白新岭 · 发表于 2019-6-6 07:22

kssj=SECONDS()
SELECT  1
USE e:\用vfp求k生素数数量\查询23中的8家村.dbf ALIAS 查询8
SELECT  2
USE e:\用vfp求k生素数数量\八家村
SELECT  3
USE e:\用vfp求k生素数数量\素数生成元23.dbf ALIAS 生成元
SELECT  查询8
FOR h=1 TO  10 &&注意，当复制此程序模版时一定把外循环次数改成工作区2打开表的总记录条数的值
      jl=在23中的位置-1    &&注意这条语句中的生成元？字段名末尾的数字，它是两个素数较小的一个
SELECT  生成元
go jl
FOR J=1 TO 16
         ss=素数式23
               SELECT  八家村 &&打开盛放素数的表
               APPEND BLANK                      &&增加一条空记录
               REPLACE 八家元 WITH ss       &&将N值付给素数
               SELECT  生成元
               skip
      endfor
SELECT  查询8
SKIP
ENDFOR
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
CLEAR ALL
抄写8家村

白新岭 · 发表于 2019-6-6 07:24

*ALL表示所有记录
*NEXT（n）从当前记录起的N个记录
*RECORD（N)第N个记录
*REST从当前记录起到最后一条记录
CLEAR ALL
SELECT 1
USE E:\用vfp求k生素数数量\放23中的8家村.dbf ALIAS 放23中的8家村
SELECT 2
USE  e:\用vfp求k生素数数量\升序代数数23.dbf ALIAS 升序代数数23
SELECT 3
USE E:\用vfp求k生素数数量\查询23中的8家村.dbf ALIAS 查询23中的8家村
DO WHILE NOT EOF()
PUBLIC A
A=代数23
PUBLIC B
B=recno()
PUBLIC D
COUNT NEXT 15 FOR 间距23=2 TO D
IF D=8
   SELECT 查询23中的8家村
   APPEND BLANK
   REPLACE 在23中8 WITH A
   REPLACE 在23中的位置 WITH B
   SELECT 升序代数数23
endif
go B
SKIP
ENDDO
CLEAR ALL
导出23中的8家村

白新岭 · 发表于 2019-6-6 07:26

SELECT 1
USE e:\用vfp求k生素数数量\升序代数数19.dbf ALIAS 升序代数数19
go 25
PUBLIC A
A=间隔16
skip
PUBLIC B
B=间隔16
PUBLIC  E
if A>B
   E=B
   else
   E=A
endif
skip
DO WHILE NOT EOF()
PUBLIC C
C=间隔16
if E>C
   E=C
   else
   E=E
endif
   skip
  ENDDO
?E
求升序素数式19中差距16的最小值。

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