SELECT 等差3中升序
BROWSE LAST
COUNT ALL FOR dcsz<5000000 TO tj
?tj
GO 9888
USE
USE 等差三中和统计表 AGAIN IN 0
SELECT 等差三中和统计表
BROWSE LAST
COUNT ALL FOR dcszh<5000000 TO tj
GO 1499900
USE
USE 等差三中和统计表 AGAIN IN 0
SELECT 等差三中和统计表
BROWSE LAST
SELECT * FROM 等差三中和统计表 WHERE tj2=0
COUNT ALL FOR dcszh<7000000 TO tj
?tj
GO 13119
COUNT ALL FOR dcszh 5000000 TO tj
COUNT ALL FOR dcszh<5000000 TO tj
?tj
GO 11859
GO 1
COPY TO d:\三生素数中项\等差3生素数中项五百万前无合成数.xls NEXT 11859 TYPE XL5
USE
USE 等差3中升序 AGAIN IN 0
SELECT 等差3中升序
BROWSE LAST
COUNT ALL FOR dcsz<10000000 TO tj
?tj
GO 17194
USE
USE 等差三中和统计表 AGAIN IN 0
SELECT 等差三中和统计表
BROWSE LAST
GO bottom
USE

SELECT 1
 USE d:\三生素数中项\等差3中升序.DBF ALIAS 等差3中表
 SELECT 2
 USE d:\三生素数中项\等差三中和统计表.DBF ALIAS 等差三中和统计
 kssj=SECONDS()
 SELECT 1
 GO 9889 &&定位在第一个参与运算值上,本次运行交叉部分，外循坏取前段，内循环取后段，一次产生两组
 FOR i=1 TO 7306
   @ 3,6 say i
   jl=recno()
   PUBLIC A
   A=dcsz
      SELECT 1
      GO 9889
      FOR j=1  TO 7306
      PUBLIC B
      B=dcsz
      n=A+B
      c=n-INT((n-1)/30)*30
      d=INT((n-1)/30)*9
      IF c<21
      SELECT  2
      GO   INT(c/3)+d
      REPLACE tj2 WITH tj2+1
      ELSE
      SELECT  2
      GO 3+INT((c-10)/3)+d
      REPLACE tj2 WITH tj2+1
      ENDIF
      SELECT 1
      skip
      ENDFOR
      SELECT 1
      GO jl+1
 ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

SELECT 1
 USE d:\三生素数中项\等差3中升序.DBF ALIAS 等差3中表
 SELECT 2
 USE d:\三生素数中项\等差三中和统计表.DBF ALIAS 等差三中和统计
 kssj=SECONDS()
 SELECT 1
 GO 1 &&定位在第一个参与运算值上,本次运行交叉部分，外循坏取前段，内循环取后段，一次产生两组
 FOR i=1 TO 17194
   @ 9,6 say i
   jl=recno()
   PUBLIC A
   A=dcsz
      SELECT 1
      GO 17195
      FOR j=1  TO 3902
      PUBLIC B
      B=dcsz
      n=A+B
      c=n-INT((n-1)/30)*30
      d=INT((n-1)/30)*9
      IF c<21
      SELECT  2
      GO   INT(c/3)+d
      REPLACE tj2 WITH tj2+2 &&本次运行（a+b）的平方交叉部分
      ELSE
      SELECT  2
      GO 3+INT((c-10)/3)+d
      REPLACE tj2 WITH tj2+2 &&本次运行（a+b）的平方交叉部分
      ENDIF
      SELECT 1
      skip
      ENDFOR
      SELECT 1
      GO jl+1
 ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

SELECT 1
USE d:\三生素数中项\等差3中元素.DBF ALIAS 等差元素
SELECT 2
USE d:\三生素数中项\等差三中和统计表.DBF ALIAS 等差三中和统计
kssj=SECONDS()
FOR i=666670 TO 1000003
   @ 3,6 say i
      SELECT 1
      GO 1
      FOR j=1  TO  9
        SELECT 1
        PUBLIC a
         a=dcys
         m=30*(i-1)+a
         SELECT  2
         APPEND BLANK   
         REPLACE dcszh WITH m
         REPLACE tj2 WITH 0
         SELECT 1
         skip
     ENDFOR
ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

SELECT 1
 USE d:\三生素数中项\等差3中升序.DBF ALIAS 等差3中表
 SELECT 2
 USE d:\三生素数中项\等差三中和统计表.DBF ALIAS 等差三中和统计
 kssj=SECONDS()
 SELECT 1
 GO 1 &&定位在第一个参与运算值上,本次运行交叉部分，外循坏取前段，内循环取后段，一次产生两组
 FOR i=1 TO 17194
   @ 9,6 say i
   jl=recno()
   PUBLIC A
   A=dcsz
      SELECT 1
      GO 21097
      FOR j=1  TO 2526
      PUBLIC B
      B=dcsz
      n=A+B
      c=n-INT((n-1)/30)*30
      d=INT((n-1)/30)*9
      IF c<21
      SELECT  2
      GO   INT(c/3)+d
      REPLACE tj2 WITH tj2+2 &&本次运行（a+b）的平方交叉部分
      ELSE
      SELECT  2
      GO 3+INT((c-10)/3)+d
      REPLACE tj2 WITH tj2+2 &&本次运行（a+b）的平方交叉部分
      ENDIF
      SELECT 1
      skip
      ENDFOR
      SELECT 1
      GO jl+1
 ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
计算a∈（0,1千万），c∈（1千3百万，1千5百万），之前已经计算了a^2,2ab,b∈(1千万，1千3百万）