SELECT 1
USE G:\三角递增法\偶数唯一表175.DBF ALIAS 偶唯一表175
SELECT 2
USE G:\三角递增法\无偶数表175.DBF ALIAS 无偶数175
kssj=SECONDS()
 For i=103571429 to 104761904
      @ 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+IIF(MOD(n,5)=1,30,0)+IIF(MOD(n,5)=2,90,0)+IIF(MOD(n,5)=3,120,0)+IIF(MOD(n.5)=4,180,0)+IIF(MOD(n,5)=0,210,0)
     wou=INT((n-1)/5)*210+s
    SELECT  1
    A=偶数
         IF A=wou
         SELECT 1
         skip
         LOOP
         ELSE
         SELECT 2
         APPEND BLANK
         REPLACE 无偶 WITH wou
         ENDIF
         
   

ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
这是对175个表的处理

无偶175        前连接        无偶176        后连接        无偶177
4351947720        1        4377160800        0        4402154640
4354379160        1        4388752380        0        4408097370
                43.75亿-44亿               
                前重叠区域               
今天用一种新算法，在5000万的跨度内，找到两个反例。

SELECT 1
USE G:\三角递增法\四生素数表中.DBF ALIAS 四生素数中
SELECT 2
USE G:\三角递增法\各段四生素数个数安整周期.DBF ALIAS 四生个数细分周期
kssj=SECONDS()
SELECT 1
     For j=1 to 238
      @ 3,6 say j
      fw=j*21000000
            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,"运行时间提示")
这是安整周期，打分的四生素数中项程序，把50亿内的四生素数中项分成了238块（区间段），为分步计算做准备。

真的应了吹水佬版主的那句话，自己一直在自问自答。与素数有关的问题，好像带点瘟疫，唯恐被传染上，都避之不及，那里还敢，来到这里，凑热闹。

UsE TDatabaseName!]Table | SQLViewName  2
使用 t 数据库名称表 sql 视图名称
[IN nWorkArea | cTableAlias]
在工作区 c 的桌面别名
[ONLINE)[ADMINN][AGAINJ[NOREQUERY
在线广告反对不公平的行为
[nDataSessionNumberl1[NODATA]
N 数据会话号码1无数据
[INDEX IndexFileList |?
索引文件列表
[ORDER [nIndexNumber |
序号
订单[ n 索引号]
N 阶索引号
iDXFileName[TAG] TagName [OF
文件名[标签]标签名[的
CDxFileNName
Cdx 文件名
ASCENDINGIDESCENDDING1T
上升下降
 [ALIAS cTableAlias[EXCLUSIVE]
 别名 c 表别名[独占]
 SHAREDI
 分享
 INOUPDATE)
 出库日期
 [CONNSTRING
 连接线
 cConnectionString i
 连接字符串
 (cStatementHandleMemvar)
 C 语句处理 memvar
用在线翻译获得的信息，强拉硬拽。

use in 3
admin
管理员
alias 别名
connstring  连接线
exdusive  突出的
index  索引
nodata  无数据
norequery  无节制的
noupdate 新的
online  在线
order  秩序
shared 共享的
用的在线翻译。

SELECT [ALL | DISTINCT] [TOP nExpr [PERCENT]] Select_List_Item [,...]
选择所有不同的 top nexpr% select list _ item
选择所有不同的 top nexpr% select _ list _ item
FROM [FORCE] Table_List_Item [,…] [WITH (BUFFERING =IExpr)]
从强制表列表项目与缓冲 iexpr
从强制表列表项目与缓冲 iexpr
[[JoinType] JOIN DatabaseName!]Table [[AS] Local_Alias]
连接类型连接数据库名称表作为本地别名
[ON.JoinCondition [AND | OR JoinCondition | FilterCondition] ..]
合并条件[和 | 或合并条件 | 过滤条件
WHERE JoinCondition | FilterCondition [AND | OR JoinCondition |
哪里合并条件 | 过滤条件[和 | 或合并条件
FilterCondition] ...]
过滤条件
[GROUP BY Column_List_Item [,. ..]]
按列列表项分组
[HAVING FilterCondition [AND | OR ..]]
具有过滤条件 [和 |或...]]
[UNION [ALL] SELECTCommand]
联合[所有]选择命令
[ORDER BY Order_item [AsC | DEsC] [,...]]
按订单项目[ asc | desc ]订购
[StorageDestination | DisplayDestination]
存储目标显示目的地
[PREFERENCE PreferenceName] [NOcoNsOLE] [PLAIN][NOWAIT]
首选项名称没有控制台普通没有等待
JoinType -INNER | LEFT| RIGHT | FULL [OUTER]
连体式内左右全外
StorageDestination -INTO [ARRAY ArrayNName | CURsOR CursorName
存储目的地-进入[阵列阵列名 | 光标目录名
[NOFILTER | READWRITE] | TABLE TableName]
没有过滤器读/写表名
DisplayDestination -TO [FILE FileName [ADDITIVE] | PRINTER
文件名加法打印机
[PROMPT] | SCREEN]
[提示] | 屏幕]
select n 语句的在线翻译

SELECT 1
USE G:\三角递增法\无偶数表总表.DBF ALIAS 无偶数总表
kssj=SECONDS()
bwjm="偶数周期表"
For j=1 to 10
      @ 5,12 say j
      n=j+1
      wd=bwjm+ALLTRIM(STR(j))
&& CLOSE DATABASES
&& SET COMPATIBLE ON
&& OPEN DATABASE (HOME(2) + 'data\testdata')

SELECT 0  && 未使用的工作区
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 n
      
      
         && select G:\三角递增法\&WD..DBF IN 0
       A=偶数
         IF A=wou
         SELECT n
         skip
         LOOP
         ELSE
         SELECT 1
         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 1
USE G:\三角递增法\偶数周期表1.DBF ALIAS 偶周期1
SELECT 2
USE G:\三角递增法\偶数周期表2.DBF ALIAS 偶周期2
SELECT 3
USE G:\三角递增法\偶数周期表3.DBF ALIAS 偶周期3
SELECT 4
USE G:\三角递增法\偶数周期表4.DBF ALIAS 偶周期4
SELECT 5
USE G:\三角递增法\偶数周期表5.DBF ALIAS 偶周期5
SELECT 6
USE G:\三角递增法\偶数周期表6.DBF ALIAS 偶周期6
SELECT 7
USE G:\三角递增法\偶数周期表7.DBF ALIAS 偶周期7
SELECT 8
USE G:\三角递增法\偶数周期表8.DBF ALIAS 偶周期8
SELECT 9
USE G:\三角递增法\偶数周期表9.DBF ALIAS 偶周期9
SELECT 10
USE G:\三角递增法\偶数周期表10.DBF ALIAS 偶周期10
SELECT 11
USE G:\三角递增法\偶数周期表11.DBF ALIAS 偶周期11
SELECT 12
USE G:\三角递增法\偶数周期表12.DBF ALIAS 偶周期12
SELECT 13
USE G:\三角递增法\偶数周期表13.DBF ALIAS 偶周期13
SELECT 14
USE G:\三角递增法\偶数周期表14.DBF ALIAS 偶周期14
SELECT 15
USE G:\三角递增法\偶数周期表15.DBF ALIAS 偶周期15
SELECT 16
USE G:\三角递增法\偶数周期表16.DBF ALIAS 偶周期16
SELECT 17
USE G:\三角递增法\偶数周期表17.DBF ALIAS 偶周期17
kssj=SECONDS()
bwjm="偶周期"
For j=1 to 17
      @ 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,"运行时间提示")
运算到：偶数整周期表11时出错，因为此表的数据是n*m的形式，非一个正整数值。

LECT 239
USE G:\三角递增法\无偶数表总表.DBF ALIAS 无偶数总表
SELECT 18
USE G:\三角递增法\偶数周期表1.DBF ALIAS 偶周期18
SELECT 19
USE G:\三角递增法\偶数周期表2.DBF ALIAS 偶周期19
SELECT 20
USE G:\三角递增法\偶数周期表3.DBF ALIAS 偶周期20
SELECT 21
USE G:\三角递增法\偶数周期表4.DBF ALIAS 偶周期21
SELECT 22
USE G:\三角递增法\偶数周期表5.DBF ALIAS 偶周期22
SELECT 23
USE G:\三角递增法\偶数周期表6.DBF ALIAS 偶周期23
SELECT 24
USE G:\三角递增法\偶数周期表7.DBF ALIAS 偶周期24
SELECT 25
USE G:\三角递增法\偶数周期表8.DBF ALIAS 偶周期25
SELECT 26
USE G:\三角递增法\偶数周期表9.DBF ALIAS 偶周期26
SELECT 27
USE G:\三角递增法\偶数周期表10.DBF ALIAS 偶周期27
SELECT 28
USE G:\三角递增法\偶数周期表11.DBF ALIAS 偶周期28
SELECT 29
USE G:\三角递增法\偶数周期表12.DBF ALIAS 偶周期29
SELECT 30
USE G:\三角递增法\偶数周期表13.DBF ALIAS 偶周期30
SELECT 31
USE G:\三角递增法\偶数周期表14.DBF ALIAS 偶周期31
SELECT 32
USE G:\三角递增法\偶数周期表15.DBF ALIAS 偶周期32
SELECT 33
USE G:\三角递增法\偶数周期表16.DBF ALIAS 偶周期33
SELECT 34
USE G:\三角递增法\偶数周期表17.DBF ALIAS 偶周期34
kssj=SECONDS()
bwjm="偶周期"
For j=18 to 34
      @ 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,"运行时间提示")
上楼用时10分13.20秒；本楼用时12分30.78秒。
唯一的缺陷，就是每次需要把工作区用手工改一遍，不知道是否可以根据外循环值，来对工作区付值否？
select 239是人为之。