trix的没问题

GO I+(nday-1)
加在
G=TRMA
前面
这下应该对了吧

[ 本帖最后由 sdta 于 2012-3-16 21:53 编辑 ]

刚好，我准备炒

正确，现在语句简单了。我在1a0001中加了字段trmd，trmd（nday）=（trma（nday）+2*trmd（nday-1））/3,作为kdj的d值
USE 1a0001.DBF ALIAS A
 T1=seconds()
 BLANK ALL FIELDS K,D,TRIX,TRMA,trmd
G=100 &&此处设为100，否则nday开始的几条数据不正确
 h=100
 nday=9 &&修改天数
 FOR I=1 TO RECCOUNT()-(nday-1)
     SELECT SHHIGH,SHLOW FROM 1A0001 WHERE BETWEEN(RECNO(),I,I+(nday-1)) INTO ARRAY AA
     =ACOPY(AA,BB)
     =ASORT(BB,1) &&按SHHIGH排序
     BB1=BB(nday,1) &&最大值
     =ASORT(BB,2) &&按SHLOW排序
     BB2=BB(1,2) &&最小值
     SELECT A
     REPLACE K WITH BB2,D WITH BB1,TRIX WITH (ABS(shclose-k)/ABS(d-k))*100,TRMA WITH (TRIX+2*G)/3 FOR RECNO()=I+(nday-1）
    GO I+(nday-1)
     G=TRMA  &&trma列为kdj.k
     repl TRMd WITH (TRma+2*h)/3 FOR RECNO()=I+(nday-1) &&增加了trmd列，为kdj.d 本想放上面的，但编译不通过，搞不懂，所以另写一行了
     GO I+(nday-1)
     h=trmd
ENDFOR
 MESSAGEBOX("共用时间： "+TRANSFORM(seconds()-T1,"@Z 999.99")+" 秒")
 BROWSE
通过，结果正确

[ 本帖最后由 reedwu 于 2012-3-17 00:48 编辑 ]

SELECT shno,shtime,shclose,trma,trmd FROM 1a0001 WHERE trma>trmd 只能取到trma>trmd 的值，如4426行~4443行，但我想只取出4426行，其他连续的trma>trmd就过滤掉，直到出现4444行，trma<trmd，并将4426行和4444行放在新表中的同一行中，怎么编？

&&k>d
CLOSE TABLES
 USE 1a0001.DBF ALIAS A
SELECT shno,shtime,shclose,trma,trmd FROM a WHERE trma>trmd INTO TABLE kd
ALTER table kd ADD COLUMN trme number(8,4)  &&增加了个字段，如果下一条也是k>d的话，那shno之差就是1，然后删除=1的就是每次的金叉记录，下面死叉的同理
USE kd
  n=2
 GO n
 DO WHILE !EOF()
 a=shno
 GO n-1
 b=shno
 h=a-b
GO n
  REPLACE trme WITH h
 SKIP
 n=n+1
 ENDDO
DELETE FOR trme=1
PACK
 CLOSE ALL


&&k<d
USE 1a0001.DBF ALIAS A
SELECT shno,shtime,shclose,trma,trmd FROM a WHERE trma<trmd INTO TABLE dk
ALTER table dk ADD COLUMN trme number(8,4)
USE dk
  n=2
 GO n
 DO WHILE !EOF()
 a=shno
 GO n-1
 b=shno
 h=a-b
GO n
  REPLACE trme WITH h
 SKIP
 n=n+1
 ENDDO
DELETE FOR trme=1
PACK
 CLOSE ALL
用trmd>trma生成kd表，用trmd<trma生成dk表，我再合并上2表，呵呵，麻烦了点，但也算成了


[ 本帖最后由 reedwu 于 2012-3-17 13:08 编辑 ]

CLEAR
CLOSE TABLES
USE 1a0001.DBF ALIAS A
T1=seconds()
BLANK ALL FIELDS K,D,TRIX,TRMA
G=0
nday=9 &&修改天数
FOR I=1 TO RECCOUNT()-(nday-1)
    SELECT MAX(SHHIGH),MIN(SHLOW) FROM 1A0001 WHERE BETWEEN(RECNO(),I,I+(nday-1)) INTO ARRAY AA
    SELECT A
    REPLACE K WITH AA(1,2),D WITH AA(1,1),TRIX WITH (ABS(shclose-k)/ABS(d-k))*100,TRMA WITH (TRIX+2*G)/3 FOR RECNO()=I+(nday-1)
    GO I+(nday-1)
    G=TRMA
ENDFOR
MESSAGEBOX("共用时间： "+TRANSFORM(seconds()-T1,"@Z 999.99")+" 秒")
BROWSE

修改后的代码

[ 本帖最后由 sdta 于 2012-3-17 11:41 编辑 ]

原表字段不要改，可以增加字段，修改后的表重新上传。
为什么要设置G、H为100？
初始值本来就是0

[ 本帖最后由 sdta 于 2012-3-17 11:53 编辑 ]

因为前几天收盘就是最高价，所以数值都是100，不然的话，前30多条的记录都是错的，呵呵，不过也没关系，肯定不会用到那么前的数据

CLOSE TABLES
USE 1a0001.DBF ALIAS A
T1=seconds()
BLANK ALL FIELDS K,D,TRIX,TRMA
G=0
H=0
nday=9 &&修改天数
FOR I=1 TO RECCOUNT()-(nday-1)
    SELECT MAX(SHHIGH),MIN(SHLOW) FROM 1A0001 WHERE BETWEEN(RECNO(),I,I+(nday-1)) INTO ARRAY AA
    SELECT A
    REPLACE K WITH AA(1,2),D WITH AA(1,1),TRIX WITH (ABS(shclose-k)/ABS(d-k))*100,TRMA WITH (TRIX+2*G)/3,TRMD WITH (TRMA+2*H)/3 FOR RECNO()=I+(nday-1)
    GO I+(nday-1)
    G=TRMA
    H=TRMD
ENDFOR
MESSAGEBOX("共用时间： "+TRANSFORM(seconds()-T1,"@Z 999.99")+" 秒")
BROWSE