手工改写的弊端，工作区改了，表别名改了，外循环值改了，最重要的表文件名没有改，改的是什么？

CLOSE DATA
USE G:\三角递增法\无偶数表总表.dbf && 设源表的名称为"表1"
P=''
FOR K=1 TO FCOUNT()
P=P+IIF(EMPTY(P),'',',')+FIELDS(K)&& 取得表中所有字段名称,放在P中
ENDFOR

SELECT *,COUNT(FIELDS(1)) AS 相同记录数 FROM DBF() GROUP BY &P. INTO DBF 相同记录数 && 取得各记录的相同记录数及其各字段值
SELECT * FROM DBF() WHERE 相同记录数>1 && 该查询结果详细列举了表1中各重复记录的 重复数

SELECT 1
USE G:\三角递增法\无偶相同记录数.DBF ALIAS 无偶相同录
SELECT 2
USE G:\三角递增法\无偶最终结果表.DBF ALIAS 无偶结果表
kssj=SECONDS()
 SELECT  1
 GO 1
 For i=1 to 2385727
      @ 5,12 say i
    SELECT  1     &&打开盛放素数式的表
    && jl=recno()
    PUBLIC A
    A=相同记录数
    B=无偶
    IF A=2
         SELECT 2
         APPEND BLANK     &&增加一条空记录
         REPLACE 无偶 WITH B     &&将N值付给素数式
    ENDIF
   
   SELECT 1
   skip
   ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

昨天晚上，运算了205至221之间的17个区间段，得到了4个反例。

SELECT 1
USE G:\三角递增法\相同记录数表总1.DBF ALIAS 相同记录表1
SELECT 2
USE G:\三角递增法\无偶最终结果表新总1.DBF ALIAS 无偶结果表新1
kssj=SECONDS()
 SELECT  1
 GO 1
 For i=1 to 4387838
      @ 5,12 say i
    SELECT  1     &&打开盛放素数式的表
    && jl=recno()
    PUBLIC A
    A=相同记录数
    B=无偶
    IF A=2
         SELECT 2
         APPEND BLANK     &&增加一条空记录
         REPLACE 无偶 WITH B     &&将N值付给素数式
    ENDIF
   
   SELECT 1
   skip
   ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
在前两步的基础上，这是第三步，最终找到无四生素数中项和解的偶数。

SELECT 1
USE G:\三角递增法\无偶最终结果表新总1.DBF ALIAS 无偶总新1
SELECT 2
USE G:\三角递增法\无偶数统计表.DBF ALIAS 无偶统计
kssj=SECONDS()
SELECT 1
     For j=1 to 378
      @ 3,6 say j
      fw=j*1000000
            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,"运行时间提示")
这是第四步，统计各打分区间段，有多少个偶数无四生素数中项和解。

统一制作的偶数周期表n，不知道，问什么有的有删除标记，有的数字间有*号字符，有时在前面（第一位是0，第二位是*，其余是数字），总之，各种情况都有，就是数据不能用，有的还不是表文件。

编程与素数无关联，不过我是因为对素数问题感兴趣，才学习编程的。*的出现是与突然停电造成的，我用的外置硬盘，而且程序在运行，造成文件损坏，各种怪异问题都出来了。

CLOSE DATA
USE G:\三角递增法\无偶数表总表.dbf && 设源表的名称为"表1"
P=''
FOR K=1 TO FCOUNT()
P=P+IIF(EMPTY(P),'',',')+FIELDS(K)&& 取得表中所有字段名称,放在P中
ENDFOR

SELECT *,COUNT(FIELDS(1)) AS 相同记录数 FROM DBF() GROUP BY &P. INTO DBF G:\三角递增法\相同记录数表总3 && 取得各记录的相同记录数及其各字段值
SELECT * FROM DBF() WHERE 相同记录数>1 && 该查询结果详细列举了表1中各重复记录的 重复数
USE IN   相同记录数表总3  &&加了此语句后，不需要关闭程序，相同记录数表总3就有了记录，不在是0，没有加之前，dfb中无记录，也打不开，只有关闭程序才可以。
第二步

当把最密4生素数中项和的分布情况处理清后，在进入等差四生素数的分布分析，然后降级到最密3生素数中项和的分布分析。连程序，带结果以便发上来。