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

白新岭

截止2023年09月07日周四23:07分浏览量115708，回复2347，热度162
截止2023年09月08日周五17:42分浏览量115840，回复2348，热度162

白新岭

截止2023年09月07日周四23:07分浏览量115708，回复2347，热度162
截止2023年09月08日周五20:52分浏览量115853，回复2349，热度162

白新岭

截止2023年09月08日周五20:52分浏览量115853，回复2349，热度162
截止2023年09月09日周五18:03分浏览量115962，回复2350，热度162

独木星空谁

SELECT 1
USE D:\等差素数\素数表亿内.dbf ALIAS 素数表
SELECT 2
USE D:\等差素数\正三中.dbf ALIAS 正三
kssj=SECONDS()  &&取出开始时间
   
    SELECT 1
    GO 1
    FOR i=1 TO 5761450
        PUBLIC A
        A=素数
        jlh=recno() &&记录指针位置
        SKIP
        PUBLIC B
        B=素数
        SKIP
        PUBLIC C
        C=素数
           IF B-A=2 AND C-A=6 &&and是并且
           SELECT 2
           APPEND BLANK     &&增加一条空记录
           REPLACE 三中 WITH A+3
           ENDIF  
        SELECT 1
        GO jlh+1 &&定位到下一个起始位置
    ENDFOR
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
这是从现成的素数表中（安顺序放着1亿内的素数，共计5761455个），运行了0分9.32秒获得55600个最密三生素数（0,2,6）的中项。

白新岭

记录运行时刻，点点滴滴。

独木星空谁

SELECT 1
USE d:\三生素数中项\正最密三生素数中项.DBF ALIAS 三中表
SELECT 2
USE d:\三生素数中项\各段三中个数.DBF ALIAS 三中个数周期表
kssj=SECONDS()
SELECT 1
     For j=1 to 238
      @ 3,6 say j
      fw=j*210000
            SELECT 1
            GO 1
            COUNT ALL FOR 三中<=fw TO tj
              SELECT  2  
              APPEND BLANK   
              REPLACE 范围 WITH fw
              REPLACE 总个数 WITH tj
     ENDFOR
   
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
为了处理大数量合成问题，把整个数据安21万划分区块，化整为零，减少单次运算量。

白新岭

MODIFY COMMAND f:\最密三生素数\汇总记录子集连篇.prg AS 936
MODIFY COMMAND f:\最密三生素数\筛选双记录值.prg AS 936
MODIFY COMMAND f:\最密三生素数\统计三中各段记录条数.prg AS 936
MODIFY COMMAND f:\最密三生素数\统计无偶各段个数.prg AS 936
MODIFY COMMAND f:\最密三生素数\制作偶数生成元周期表.prg AS 936
MODIFY COMMAND f:\最密三生素数\制作三中合成偶数生成元全表.prg AS 936
CREATE PROJECT
MODIFY DATABASE
ADD TABLE d:\三生素数中项\正最密三生素数中项.dbf
USE 正最密三生素数中项 AGAIN IN 0
SELECT 正最密三生素数中项
BROWSE LAST
USE
DO d:\三生素数中项\统计三中各段记录条数.prg
SELECT 三中个数周期表
BROWSE LAST
COPY TO d:\三生素数中项\正三中各段记录数.xls TYPE XL5
DELETE ALL
PACK
SELECT 三中个数周期表
BROWSE LAST
APPEND FROM d:\三生素数中项\正三中各段记录数.xls TYPE XL5 SHEET "Sheet1"
GO 1
DELETE NEXT 1
PACK
SELECT 三中个数周期表
BROWSE LAST
GO bottom
USE
MODIFY COMMAND d:\三生素数中项\统计三中各段记录条数.prg AS 936
SELECT 三中表
BROWSE LAST
GO 1
DELETE NEXT 1
PACK
SELECT 三中表
BROWSE LAST
USE
USE 各段三中个数 AGAIN IN 0
SELECT 各段三中个数
BROWSE LAST
DELETE ALL
PACK
SELECT 各段三中个数
BROWSE LAST
APPEND FROM d:\三生素数中项\正三中各段记录数.xls TYPE XL5 SHEET "Sheet1"
GO 1
DELETE NEXT 1
PACK
SELECT 各段三中个数
BROWSE LAST
USE
20230909日操作记录（vfp）

白新岭

截止2023年09月08日周五20:52分浏览量115853，回复2349，热度162
截止2023年09月09日周五23:17分浏览量115991，回复2355，热度162

白新岭

截止2023年09月09日周五23:17分浏览量115991，回复2355，热度162
截止2023年09月10日周六10:49分浏览量116049，回复2356，热度162

白新岭

截止2023年09月09日周五23:17分浏览量115991，回复2355，热度162
截止2023年09月10日周六21:54分浏览量116100，回复2357，热度162