慢牛主图和副图（通达信公式 源码 测试图）

 慢牛主图和副图

 

{涨跌停标识}

涨跌:=REF(C,1);

涨停:=IF((C-涨跌)*100/涨跌>=(10-0.01*100/涨跌),1,0);

STICKLINE(涨停,OPEN,CLOSE,2,0),COLORRED;

跌停:=IF((涨跌-C)*100/涨跌>=(10-0.01*100/涨跌),1,0);

STICKLINE(跌停,OPEN,CLOSE,2,0),COLOR808000;

 

{21位画线}

FLAG:=ABS(C-O)/IF((H-L) = 0,100,H-L);

ZHANGF:=ABS(C-O)/O;

WEI21:IF(CODELIKE('9999'),(H-L)*0.5+L,IF(C>O,(C-O)*0.5+O,(O-C)*0.5+C)),NODRAW;

STICKLINE(ZHANGF>=0.03 && FLAG >= 0.03,WEI21,WEI21,-1,0),COLORMAGENTA;

实21:(O+C)/2,NODRAW;

实31:O+(C-O)*2/3,NODRAW,COLOR99CC32;

虚21:H-(H-L)*0.5,NODRAW,COLORMAGENTA;

 

 

 

 

 

明日涨停10:IF(CODELIKE('00') OR CODELIKE('600') OR CODELIKE('601') OR CODELIKE('603') OR CODELIKE('605') ,C*1.1,0),COLORRED,NODRAW;

明日涨停20:IF(CODELIKE('300') OR CODELIKE('688'),C*1.2,0),COLORRED,NODRAW;

 

 

TK:=C>O AND  O>=REF(MAX(C,O),1)+0.01  OR O>=REF(C,1)+0.01 ;

STICKLINE(TK, O,(C-O)*0.01+O,3,0),COLORYELLOW;

 

ZF:=H>=INTPART(REF(C,1)*1.1*100+0.5)/100 AND H>C;

ZF2:=H>=INTPART(REF(C,1)*1.2*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;

长度比较:=上影线长/下影线长;{上下影线长度比}

 

A:=IF(CODELIKE('300') OR CODELIKE('688'),1,0);

A1:=IF(CODELIKE('00') OR CODELIKE('600') OR CODELIKE('601') OR CODELIKE('603') OR CODELIKE('605'),1,0);

STICKLINE((MIN(O,C)=L OR 长度比较>1) AND ZF AND A1,H-上影线长*1,H,0.01,0),COLORRED;

STICKLINE((MIN(O,C)=L OR 长度比较>1) AND ZF2 AND A,H-上影线长*1,H,0.01,0),COLORRED; 

STICKLINE((MAX(O,C)=H OR 长度比较<1) AND DT,L+下影线长*1,L,0.01,0),COLORBLUE; 

 

 

DRAWTEXT_FIX(ISLASTBAR,0,0,0,HYBLOCK),COLORYELLOW;{在屏幕左上角显示所属行业板块}

DRAWTEXT_FIX(ISLASTBAR,0.05,0,0,DYBLOCK),COLORYELLOW;{在屏幕左上角显示所属地域板块}

DRAWTEXT_FIX(ISLASTBAR,0.1,0,0,GNBLOCK),COLORYELLOW;{在屏幕左上角显示所属概念板块};

 

 

202248301916083.png