通达信公式-涨停预报升级A（主图）源码

DRAWTEXT_FIX(ISLASTBAR,0.5,0,0,HYBLOCK),COLORYELLOW;{在屏幕左上角显示所属行业板块}
DRAWTEXT_FIX(ISLASTBAR,0.55,0,0,DYBLOCK),COLORYELLOW;{在屏幕左上角显示所属地域板块}
DRAWTEXT_FIX(ISLASTBAR,0.6,0,0,GNBLOCK),COLORYELLOW;{在屏幕左上角显示所属概念板块}
DRAWTEXT_FIX(ISLASTBAR,0.5,0.025,0,FGBLOCK),COLORMAGENTA;{在屏幕左上角显示所属风格}
RC1:=REF(C,1);
ZT:=C/REF(C,1)>1.099 AND H>L AND H=C;
CS:=IF(C>=1,10000,100000);
CQS410:=1.10RC1-49/CS;{考虑到4舍5入}
CQS45 :=1.05RC1-49/CS;
CQS510:=0.90RC1+51/CS;
CQS55 :=0.95RC1+51/CS;
ST:=NAMELIKE(‘S’) OR NAMELIKE(‘*S’);
QS4:= IF(ST, C>=CQS45, C>=CQS410);
QS5:= IF(ST, C<=CQS55, C<=CQS510);
QS6QS4:=IF(ST, H>=CQS45, H>=CQS410);
QS6QS5:=IF(ST, L<=CQS55, L<=CQS510);
STICKLINE(QS6QS4,H,MAX(C,O),0,0),COLORMAGENTA;{QS4后回落}
STICKLINE(QS6QS5,L,MIN(C,O),0,0),COLORLICYAN;{QS5后回