通达信自动显示跳空和回补缺口

通达信自动显示跳空和回补缺口

{跳空缺口}
 LL1:=REF(L,1);
 HH1:=REF(H,1);
 SQK:=L>HH1;
 XQK:=H<LL1;
 上跳:IF(SQK=1,L-HH1,DRAWNULL),COLORFF00FF,CROSSDOT,LINETHICK3,NODRAW;
 下跳:IF(XQK=1,H-LL1,DRAWNULL),COLORGREEN,CROSSDOT,LINETHICK3,NODRAW;
 STICKLINE(SQK,L,HH1,4*1,1),COLORYELLOW;{上跳}
 STICKLINE(XQK,H,LL1,4*1,2),COLOR00FF00;{下跳}
 DRAWTEXT(SQK,H,'上跳'),COLORYELLOW;
 DRAWTEXT(XQK,L,'下跳'),COLOR00FF00;
 {补缺口}{股海网提供 www.guhai.com.cn}
 K1:=BARSLAST(L>REF(H,1));
 K2:=L<REF(H,K1+1) AND COUNT(L<REF(H,K1+1),K1)=1;
 STICKLINE(K2,L,O,1,0),COLORFF00FF;{缺口回补};
 DRAWTEXT(K2=1,L,'回补'),COLORFF00FF;