南客专家俺又做了，没成功。怎么办？

股市骑兵00

版主

Rank: 13

1楼大中小发表于 2004-11-15 00:19 只看该作者

南客专家俺又做了，没成功。怎么办？

真难过，飞狐老用不好。又不好意思老打扰您。555。。。。:@

引用:

AW3:=0*CLOSE; AW2:=0*CLOSE; AW1:=0*CLOSE; AM1:=0*CLOSE; AM2:=0*CLOSE; AM3:=0*CLOSE;

W3:=ASKPRICE(3 ); W2:=ASKPRICE(2 ); W1:=ASKPRICE(1 );
W1V:=ASKVOL(1 ); W2V:=ASKVOL(2 ); W3V:=ASKVOL(3 );
M1:=BIDPRICE(1 ); M2:=BIDPRICE(2 ); M3:=BIDPRICE(3 );
M1V:=BIDVOL(1 ); M2V:=BIDVOL(2 ); M3V:=BIDVOL(3 );
ZXZ:=MIN(MIN(MIN(IF(W3=0 ,1000 ,W3 ),IF(W2=0 ,1000 ,W2 )),MIN(IF(W1=0 ,1000 ,W1 ),IF(M1=0 ,1000 ,M1 )))
,MIN(IF(M2=0 ,1000 ,M2 ),IF(M3=0 ,1000 ,M3 )));

ZDZ:=MAX(MAX(MAX(W3,W2),MAX(W1,M1)),MAX(M2,M3 ));
HH:=HHVBARS(ZDZ ,0);

FOR I=2 TO DATACOUNT DO BEGIN
FOR J=I-HH[I] TO I-1 DO
IF ZDZ[I]<>ZDZ[I-1] THEN BEGIN
IF W3[J]>ZDZ[I] THEN
AW3[I]:=AW3[I]+W3V[J];  //相等W3的W3V没有过滤成功。还在累加。
IF W2[J]>ZDZ[I] THEN
AW2[I]:=AW2[I]+W2V[J];  //相等W2的W2V没有过滤成功。还在累加。
IF W1[J]>ZDZ[I] THEN
AW1[I]:=AW1[I]+W1V[J];  //相等W1的W1V没有过滤成功。还在累加。
END; ELSE BEGIN
AW3[I]:=AW3[I-1];
AW2[I]:=AW2[I-1];
AW1[I]:=AW1[I-1];
END;
END;
AW3+AW2+AW1;