| 本帖最后由 心不再燃 于 2010-5-24 00:41 编辑 
 VAR0:=VOL/CLOSE/2;
 VAR1:=SUM(IF(VAR0>100 AND CLOSE>REF(CLOSE,1),VAR0,0),0);
 VAR2:=SUM(IF(VAR0>100 AND CLOSE<REF(CLOSE,1),VAR0,0),0);
 VAR3:=SUM(IF(VAR0<100 AND CLOSE>REF(CLOSE,1),VAR0,0),0);
 VAR4:=SUM(IF(VAR0<100 AND CLOSE<REF(CLOSE,1),VAR0,0),0);
 VAR5:=VAR1+VAR2+VAR3+VAR4;
 VAR6:=IF(BARSTATUS=2,100*VAR1/VAR5,0);
 VAR7:=IF(BARSTATUS=2,100*VAR2/VAR5,0);
 VAR8:=IF(BARSTATUS=2,100*VAR3/VAR5,0);
 VAR9:=IF(BARSTATUS=2,100*VAR4/VAR5,0);
 机构买盘:VAR1,LINETHICK3,COLORFF55FF;
 机构卖盘:VAR2,LINETHICK3,COLORFFFF55;
 散户买盘:VAR3,COLOR5555FF;
 散户卖盘:VAR4,COLOR55FF55;
 DRAWTEXTREL(1003,870,'机构买盘'),LINETHICK2,COLORFF55FF;
 DRAWTEXTREL(1003,570,'机构卖盘'),LINETHICK2,COLORFFFF55;
 DRAWTEXTREL(1003,320,'散户买盘'),LINETHICK2,COLOR5555FF;
 DRAWTEXTREL(1003,50,'散户卖盘'),LINETHICK2,COLOR55FF55;
 IF BARSTATUS=2 THEN BEGIN
 DRAWTEXTREL(1020,750,''+FLOOR(VAR6)+'%'),LINETHICK2,COLORFF55FF;
 END
 IF BARSTATUS=2 THEN BEGIN
 LOOP0:=FLOOR(VAR7);
 VAR10:=''+LOOP0;
 VAR11:=VAR10 + '%';
 DRAWTEXTREL(1020,460,VAR11),LINETHICK2,COLORFFFF55;
 END
 IF BARSTATUS=2 THEN BEGIN
 LOOP1:=FLOOR(VAR8);
 VAR12:=''+LOOP1;
 VAR13:=VAR12+'%';
 DRAWTEXTREL(1020,200,VAR13),LINETHICK2,COLOR5555FF;
 END
 IF BARSTATUS=2 THEN BEGIN
 LOOP2:=FLOOR(VAR9);
 VAR14:=''+LOOP2;
 VAR15:=VAR14+'%';
 DRAWTEXTREL(1020,-50,VAR15),LINETHICK2,COLOR55FF55;
 END
 当前公式 :  (指标画线公式)
 错误句 :
 VAR6:=IF(BARSTATUS=2,100*VAR1/VAR5,0)
 详细信息 : 未知字符串 BARSTATUS
 错误起始位置 : 295 ; 长度: 9
 我的通达信不能用。选股公式就可以导入。
 |