通达信影线变色主图指标(源码)

ZF:=H>=INTPART(REF(C,1)*1.1*100+0.5)/100 AND H>C;
DT:=L<=INTPART(REF(C,1)*0.9*100+0.5)/100 AND L<C;
上影线幅度:=((H-REF(C,1))/REF(C,1)-(MAX(O,C)-REF(C,1))/REF(C,1))*100;
下影线幅度:=((REF(C,1)-L)/REF(C,1)-(REF(C,1)-MIN(O,C))/REF(C,1))*100;
上影线长:=H-MAX(O,C);
下影线长:=MIN(O,C)-L;
长度比较:=上影线长/下影线长;{上下影线长度比}
STICKLINE((MIN(O,C)=L OR 长度比较>1) AND 上影线幅度>3.5,MAX(O,C),H,0.01,0),COLORMAGENTA;
STICKLINE((MAX(O,C)=H OR 长度比较<1) AND 下影线幅度>3.5,MIN(O,C),L,0.01,0),COLORLIGREEN;
STICKLINE((MIN(O,C)=L OR 长度比较>1) AND ZF,H-上影线长*0.2,H,0.01,0),COLORYELLOW;
STICKLINE((MAX(O,C)=H OR 长度比较<1) AND DT,L+下影线长*0.2,L,0.01,0),COLORBLUE;