通达信主力难逃副图指标 源码 贴图
VAR1:=VOL/((H-L)*2-ABS(C-O));
VAR2:=IF(C>O,VAR1*(H-L),IF(C<O,VAR1*(H-O+(C-L)),VOL/2))+IF(C>O,0-VAR1*(H-C+(O-L)),IF(C<O,0-VAR1*(H-L),0-VOL/2));
VAR3:=VAR2/20/1.15;
VAR4:=VAR3*0.55+REF(VAR3,1)*0.33+REF(VAR3,2)*0.22;
轴:0,COLOR00FF00;
流量:EMA(VAR4,3),COLORC875B7,COLORRED,NODRAW;
VAR5:=REF(流量,1);{公式之家BBS.GSZB.TOP}
VAR6:=(((流量-VAR5)/VAR5)*100);
STICKLINE(流量>0,流量,0,2,0)COLOR0000FF;
STICKLINE(流量<0,流量,0,2,0),COLORFF4242;
流量基线:EMA(VAR4,8),COLOR00BBBB,COLORGREEN;
STICKLINE(VAR3*0.4>=0,VAR3*0.4*1,0,0,1),COLORYELLOW;
STICKLINE(VAR3*0.4<0,VAR3*0.4*1,0,0,1),COLORWHITE;
流量幅%:IF(((流量>0) AND (VAR5<0)),ABS(VAR6),IF((((流量<0) AND (VAR5<0)) AND (流量<VAR5)),(0-VAR6),VAR6)),COLORMAGENTA,NODRAW;
力度:VAR3/1000,COLOR9B37FF,COLORRED,NODRAW;
周流量:SUM(流量,5),COLORFFBFDF,COLORMAGENTA,NODRAW;
VAR18:=REF(周流量,1);
VAR16:=(周流量-VAR18)/VAR18*100;
周幅%:IF(周流量>0 AND VAR18<0,ABS(VAR16),IF(周流量<0 AND VAR18<0 AND 周流量<VAR18,-VAR16,VAR16)),COLORMAGENTA,NODRAW; |
|
