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

独木星空谁

SELECT 239
USE G:\三角递增法\无偶数表总表.DBF ALIAS 无偶数总表
SELECT 222
USE G:\三角递增法\偶数周期表222.DBF ALIAS 偶周期222
SELECT 223
USE G:\三角递增法\偶数周期表223.DBF ALIAS 偶周期223
SELECT 224
USE G:\三角递增法\偶数周期表224.DBF ALIAS 偶周期224
SELECT 225
USE G:\三角递增法\偶数周期表225.DBF ALIAS 偶周期225
SELECT 226
USE G:\三角递增法\偶数周期表226.DBF ALIAS 偶周期226
SELECT 227
USE G:\三角递增法\偶数周期表227.DBF ALIAS 偶周期227
SELECT 228
USE G:\三角递增法\偶数周期表228.DBF ALIAS 偶周期228
SELECT 229
USE G:\三角递增法\偶数周期表229.DBF ALIAS 偶周期229
SELECT 230
USE G:\三角递增法\偶数周期表230.DBF ALIAS 偶周期230
SELECT 231
USE G:\三角递增法\偶数周期表231.DBF ALIAS 偶周期231
SELECT 232
USE G:\三角递增法\偶数周期表232.DBF ALIAS 偶周期232
SELECT 233
USE G:\三角递增法\偶数周期表233.DBF ALIAS 偶周期233
SELECT 234
USE G:\三角递增法\偶数周期表234.DBF ALIAS 偶周期234
SELECT 235
USE G:\三角递增法\偶数周期表235.DBF ALIAS 偶周期235
SELECT 236
USE G:\三角递增法\偶数周期表236.DBF ALIAS 偶周期236
SELECT 237
USE G:\三角递增法\偶数周期表237.DBF ALIAS 偶周期237
SELECT 238
USE G:\三角递增法\偶数周期表238.DBF ALIAS 偶周期238
kssj=SECONDS()
bwjm="偶周期"
For j=222 to 238
      @ 5,12 say j
     k=j
      wd=bwjm+ALLTRIM(STR(j))
&& CLOSE DATABASES
&& SET COMPATIBLE ON
&& OPEN DATABASE (HOME(2) + 'data\testdata')

&& SELECT 1  && 未使用的工作区
&& USE  G:\三角递增法\&WD ALIAS n && 打开 Customer 表
      For i=(j-1)*500000+1 to (j+1)*500000

      @ 5,12 say i
      n=i
      s=0
      IF MOD(n,5)=1
      s=s+30
      ENDIF
      IF MOD(n,5)=2
      s=s+90
      ENDIF
      IF MOD(n,5)=3
      s=s+120
      ENDIF
      IF MOD(n,5)=4
      s=s+180
      ENDIF
      IF MOD(n,5)=0
      s=s+210
      ENDIF
     
      wou=INT((n-1)/5)*210+s
      SELECT "偶周期"+ALLTRIM(STR(k))
      
      
         && select G:\三角递增法\&WD..DBF IN 0
       A=偶数
         IF A=wou
         SELECT "偶周期"+ALLTRIM(STR(k))
         skip
         LOOP
         ELSE
         SELECT 239
         APPEND BLANK
         REPLACE 无偶 WITH wou
         ENDIF
         
   
     ENDFOR
ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

独木星空谁

SELECT 239
USE G:\三角递增法\无偶数表总表.DBF ALIAS 无偶数总表
SELECT 205
USE G:\三角递增法\偶数周期表205.DBF ALIAS 偶周期205
SELECT 206
USE G:\三角递增法\偶数周期表206.DBF ALIAS 偶周期206
SELECT 207
USE G:\三角递增法\偶数周期表207.DBF ALIAS 偶周期207
SELECT 208
USE G:\三角递增法\偶数周期表208.DBF ALIAS 偶周期208
SELECT 209
USE G:\三角递增法\偶数周期表209.DBF ALIAS 偶周期209
SELECT 210
USE G:\三角递增法\偶数周期表210.DBF ALIAS 偶周期210
SELECT 211
USE G:\三角递增法\偶数周期表211.DBF ALIAS 偶周期211
SELECT 212
USE G:\三角递增法\偶数周期表212.DBF ALIAS 偶周期212
SELECT 213
USE G:\三角递增法\偶数周期表213.DBF ALIAS 偶周期213
SELECT 214
USE G:\三角递增法\偶数周期表214.DBF ALIAS 偶周期214
SELECT 215
USE G:\三角递增法\偶数周期表215.DBF ALIAS 偶周期215
SELECT 216
USE G:\三角递增法\偶数周期表216.DBF ALIAS 偶周期216
SELECT 217
USE G:\三角递增法\偶数周期表217.DBF ALIAS 偶周期217
SELECT 218
USE G:\三角递增法\偶数周期表218.DBF ALIAS 偶周期218
SELECT 219
USE G:\三角递增法\偶数周期表219.DBF ALIAS 偶周期219
SELECT 220
USE G:\三角递增法\偶数周期表220.DBF ALIAS 偶周期220
SELECT 221
USE G:\三角递增法\偶数周期表221.DBF ALIAS 偶周期221
kssj=SECONDS()
bwjm="偶周期"
For j=205 to 221
      @ 5,12 say j
     k=j
      wd=bwjm+ALLTRIM(STR(j))
&& CLOSE DATABASES
&& SET COMPATIBLE ON
&& OPEN DATABASE (HOME(2) + 'data\testdata')

&& SELECT 1  && 未使用的工作区
&& USE  G:\三角递增法\&WD ALIAS n && 打开 Customer 表
      For i=(j-1)*500000+1 to (j+1)*500000

      @ 5,12 say i
      n=i
      s=0
      IF MOD(n,5)=1
      s=s+30
      ENDIF
      IF MOD(n,5)=2
      s=s+90
      ENDIF
      IF MOD(n,5)=3
      s=s+120
      ENDIF
      IF MOD(n,5)=4
      s=s+180
      ENDIF
      IF MOD(n,5)=0
      s=s+210
      ENDIF
     
      wou=INT((n-1)/5)*210+s
      SELECT "偶周期"+ALLTRIM(STR(k))
      
      
         && select G:\三角递增法\&WD..DBF IN 0
       A=偶数
         IF A=wou
         SELECT "偶周期"+ALLTRIM(STR(k))
         skip
         LOOP
         ELSE
         SELECT 239
         APPEND BLANK
         REPLACE 无偶 WITH wou
         ENDIF
         
   
     ENDFOR
ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

独木星空谁

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:\三角递增法\无偶最终结果表新倒2.DBF ALIAS 无偶结果表新倒
kssj=SECONDS()
SELECT  1
GO 1
For i=1 to 682675
      @ 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,"运行时间提示")

独木星空谁

无偶        区间段
4377160800        209
4388752380        209
4467906420        213
上边程序三步走，获得3个偶数无四生素数中项和解，在205区间段----到221区间段，17个区间，每个区间跨度2100万。

独木星空谁

SELECT 239
USE G:\三角递增法\无偶数表总表.DBF ALIAS 无偶数总表
SELECT 187
USE G:\三角递增法\偶数周期表187.DBF ALIAS 偶周期187
SELECT 188
USE G:\三角递增法\偶数周期表188.DBF ALIAS 偶周期188
SELECT 189
USE G:\三角递增法\偶数周期表189.DBF ALIAS 偶周期189
SELECT 190
USE G:\三角递增法\偶数周期表190.DBF ALIAS 偶周期190
SELECT 191
USE G:\三角递增法\偶数周期表191.DBF ALIAS 偶周期191
SELECT 192
USE G:\三角递增法\偶数周期表192.DBF ALIAS 偶周期192
SELECT 193
USE G:\三角递增法\偶数周期表193.DBF ALIAS 偶周期193
SELECT 194
USE G:\三角递增法\偶数周期表194.DBF ALIAS 偶周期194
SELECT 195
USE G:\三角递增法\偶数周期表195.DBF ALIAS 偶周期195
SELECT 196
USE G:\三角递增法\偶数周期表196.DBF ALIAS 偶周期196
SELECT 197
USE G:\三角递增法\偶数周期表197.DBF ALIAS 偶周期197
SELECT 198
USE G:\三角递增法\偶数周期表198.DBF ALIAS 偶周期198
SELECT 199
USE G:\三角递增法\偶数周期表199.DBF ALIAS 偶周期199
SELECT 200
USE G:\三角递增法\偶数周期表200.DBF ALIAS 偶周期200
SELECT 201
USE G:\三角递增法\偶数周期表201.DBF ALIAS 偶周期201
SELECT 202
USE G:\三角递增法\偶数周期表202.DBF ALIAS 偶周期202
SELECT 203
USE G:\三角递增法\偶数周期表203.DBF ALIAS 偶周期203
SELECT 204
USE G:\三角递增法\偶数周期表204.DBF ALIAS 偶周期204
kssj=SECONDS()
bwjm="偶周期"
For j=187 to 204
      @ 5,12 say j
     k=j
      wd=bwjm+ALLTRIM(STR(j))
&& CLOSE DATABASES
&& SET COMPATIBLE ON
&& OPEN DATABASE (HOME(2) + 'data\testdata')

&& SELECT 1  && 未使用的工作区
&& USE  G:\三角递增法\&WD ALIAS n && 打开 Customer 表
      For i=(j-1)*500000+1 to (j+1)*500000

      @ 5,12 say i
      n=i
      s=0
      IF MOD(n,5)=1
      s=s+30
      ENDIF
      IF MOD(n,5)=2
      s=s+90
      ENDIF
      IF MOD(n,5)=3
      s=s+120
      ENDIF
      IF MOD(n,5)=4
      s=s+180
      ENDIF
      IF MOD(n,5)=0
      s=s+210
      ENDIF
     
      wou=INT((n-1)/5)*210+s
      SELECT "偶周期"+ALLTRIM(STR(k))
      
      
         && select G:\三角递增法\&WD..DBF IN 0
       A=偶数
         IF A=wou
         SELECT "偶周期"+ALLTRIM(STR(k))
         skip
         LOOP
         ELSE
         SELECT 239
         APPEND BLANK
         REPLACE 无偶 WITH wou
         ENDIF
         
   
     ENDFOR
ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
总区间段12的处理程序。

独木星空谁

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:\三角递增法\相同记录数表总12 && 取得各记录的相同记录数及其各字段值
SELECT * FROM DBF() WHERE 相同记录数>1 && 该查询结果详细列举了表1中各重复记录的 重复数
接上，第二步处理。

独木星空谁

SELECT 1
USE G:\三角递增法\相同记录数表总12.DBF ALIAS 相同记录表12
SELECT 2
USE G:\三角递增法\无偶最终结果表新总12.DBF ALIAS 无偶结果表新12
kssj=SECONDS()
SELECT  1
GO 1
For i=1 to 629167
      @ 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,"运行时间提示")
接上，第三步处理。
三步曲完成，偶数无四生素数中项和解的偶数被揪了出来。

独木星空谁

因为突然停电，有好多表数据错误，有的是数据分成两块，前后有个*号连接，有的*号在最末，有的不知问何，已有删除标记。

独木星空谁

偶数周期表175出现错误，以0开头，后边带*号，再是阿拉伯数字。看来，各种错误都有。