通达信龙门捉妖主图选股指标公式源码

通达信龙门捉妖主图选股指标公式源码

源码正文：

高:=REF(HHV(H,72),5){XG51};
龙门:REFDATE(高,DATE),COLORRED,LINETHICK2{XG51};
周:ma(CLOSE,5){XG51};
MA10:MA(CLOSE,10){XG51};
MA30:MA(CLOSE,30){XG51};
季:MA(CLOSE,60){XG51};
半年:MA(CLOSE,120),COLORFFFF00{XG51};
年:MA(CLOSE,250),COLORWHITE,LINETHICK2{XG51};
获利筹码:IF(WINNER(CLOSE),WINNER(CLOSE)*100,0),NODRAW{XG51};
昨半:REF((C+O)/2,1),COLORBLUE,NODRAW{XG51};
半分:(C+O)/2,NODRAW,COLORRED{XG51};
H2:=MAX(H,REF(H,1)){XG51};
L2:=MIN(L,REF(L,1)){XG51};
两日半:(H2+L2)/2,NODRAW{XG51};
TM:=1200823{XG51};
涨停:IF(DATE<TM,ZTPRICE(REF(C,1),IF(CODELIKE('688'),0.2,IF(NAMEINCLUDE('S'),0.05,0.1))),ZTPRICE(REF(C,1),IF(CODELIKE('688') OR CODELIKE('300'),0.2,IF(NAMEINCLUDE('S'),0.05,0.1)))),NODRAW,COLORWHITE{XG51};
跌停:IF(DATE<TM,DTPRICE(REF(C,1),IF(CODELIKE('688'),0.2,IF(NAMEINCLUDE('S'),0.05,0.1))),DTPRICE(REF(C,1),IF(CODELIKE('688') OR CODELIKE('300'),0.2,IF(NAMEINCLUDE('S'),0.05,0.1)))),NODRAW,COLORCYAN{XG51};
明涨停:IF(DATE<TM,C*IF(CODELIKE('688'),1.2,IF(NAMEINCLUDE('S'),1.05,1.1)),C*(IF(CODELIKE('688') OR CODELIKE('300'),1.2,IF(NAMEINCLUDE('S'),1.05,1.1)))),NODRAW,COLORMAGENTA{XG51};
明跌停:IF(DATE<TM,C*IF(CODELIKE('688'),0.8,IF(NAMEINCLUDE('S'),0.45,0.9)),C*(IF(CODELIKE('688') OR CODELIKE('300'),0.8,IF(NAMEINCLUDE('S'),0.45,0.9)))),NODRAW,COLORFFFF00{XG51};
ZT:=C>=涨停 AND PERIOD=5 AND H=C{XG51};
ZT1:=H>=涨停 AND PERIOD=5 AND H>C{XG51};
DT:=C<=跌停 AND PERIOD=5 AND L=C{XG51};
DT1:=L<=跌停 AND PERIOD=5 AND L<C{XG51};
stICKLINE(ZT,C,(O+C)/2,3,0),COLOR000099{XG51};
STICKLINE(ZT,C,(O+C)/2,2.2,0),COLOR0000CC{XG51};
STICKLINE(ZT,C,(O+C)/2,1.5,0),COLOR0000FF{XG51};
STICKLINE(ZT,C,(O+C)/2,0.5,0),COLORCC66FF{XG51};
STICKLINE(ZT,O,(O+C)/2,3,0),COLOR999999{XG51};
STICKLINE(ZT,O,(O+C)/2,2.2,0),COLORBBBBBB;
STICKLINE(ZT,O,(O+C)/2,1.5,0),COLORDDDDDD;
STICKLINE(ZT,O,(O+C)/2,0.5,0),COLORFFFFFF{XG51};
STICKLINE(DT,O,(O+C)/2,3,0),COLOR999999{XG51};
STICKLINE(DT,O,(O+C)/2,2.2,0),COLORBBBBBB;
STICKLINE(DT,O,(O+C)/2,1.5,0),COLORDDDDDD;
STICKLINE(DT,O,(O+C)/2,0.5,0),COLORFFFFFF{XG51};
STICKLINE(DT,C,(O+C)/2,3,0),COLOR009900{XG51};
STICKLINE(DT,C,(O+C)/2,2.2,0),COLOR00BB00;
STICKLINE(DT,C,(O+C)/2,1.5,0),COLOR00DD00;
STICKLINE(DT,C,(O+C)/2,0.5,0),COLOR00FF00{XG51};
STICKLINE(ZT1,C,(O+C)/2,3,0),COLORFF00FF{XG51};
STICKLINE(ZT1,C,(O+C)/2,2.2,0),COLORFF00FF{XG51};
STICKLINE(ZT1,C,(O+C)/2,1.5,0),COLOR0000FF{XG51};
STICKLINE(ZT1,O,(O+C)/2,3,0),COLOR999999{XG51};
STICKLINE(ZT1,O,(O+C)/2,2.2,0),COLORBBBBBB;
STICKLINE(ZT1,O,(O+C)/2,1.5,0),COLORDDDDDD;
STICKLINE(DT1,O,(O+C)/2,3,0),COLOR888888{XG51};
STICKLINE(DT1,O,(O+C)/2,2.2,0),COLORBBBBBB{XG51};
STICKLINE(DT1,O,(O+C)/2,1.5,0),COLORDDDDDD{XG51};
STICKLINE(DT1,C,(O+C)/2,3,0),COLOR009900{XG51};
STICKLINE(DT1,C,(O+C)/2,2.2,0),COLOR00BB00;
STICKLINE(DT1,C,(O+C)/2,1.5,0),COLOR00DD00;
STICKLINE(DT1,C,(O+C)/2,0.5,0),COLOR00FF00{XG51};
DRAWTEXT(ZT AND DT1 AND PERIOD=5,L-0.03,'地天板'),COLORCC00CC{XG51};
DRAWTEXT(DT AND ZT1 AND PERIOD=5,H+0.03,'天地板'),COLOR00CC00;{XG51};
DRAWTEXT(DT1,L-0.09,'撬板'),COLORCC00CC;{XG51};
DRAWTEXT(ZT1,H+0.03,'炸板'),COLOR00CC00;{XG51};
假阴:=REF(C>=O,1) AND AMOUNT/V/100>REF(C,1) AND C<O{XG51};
假阳:=REF(C<=O,1) AND H<REF(O,1) AND C<(REF(O-C,1))/3+REF(C,1) AND AMOUNT/V/100<REF(C,1) AND C>O{XG51};
STICKLINE(假阴,O,C,0.2,0),COLORWHITE;{XG51};
STICKLINE(假阳,O,C,0.7,0),COLORLIBLUE;{XG51};
首板:=ZT AND COUNT(ZT,3)=1{XG51};
二板:=REF(首板,1) AND ZT{XG51};
三板:=REF(二板,1) AND ZT{XG51};
四板:=REF(三板,1) AND ZT{XG51};
五板:=REF(四板,1) AND ZT{XG51};
六板:=REF(五板,1) AND ZT{XG51};
七板:=REF(六板,1) AND ZT{XG51};
八板:=REF(七板,1) AND ZT{XG51};
九板:=REF(八板,1) AND ZT{XG51};
十板:=REF(九板,1) AND ZT{XG51};
DRAWTEXT(首板,L,'1'),COLORRED{XG51};
DRAWTEXT(二板,L,'2'),COLORBLUE{XG51};
DRAWTEXT(三板,L,'3'),COLOR00CC99{XG51};
DRAWTEXT(四板,L,'4'),COLORCYAN{XG51};
DRAWTEXT(五板,L,'5'),COLORBLACK{XG51};
DRAWTEXT(六板,L,'6'),COLORLICYAN{XG51};
DRAWTEXT(七板,L,'7'),COLORLIGREEN{XG51};
DRAWTEXT(八板,L,'8'),COLORYELLOW{XG51};
DRAWTEXT(九板,L,'9'),COLORRED{XG51};
DRAWTEXT(十板,L,'10'),COLORBLUE{XG51};
DTP:=C>周 AND 周>MA10 AND MA10>MA30 AND 周>季{XG51};
妖线:=ema(EMA(C,9)*1.11,5){XG51};
捉妖:=C>REF(C,1)*1.03 AND crOSS(C,龙门-0.05) AND  CROSS(C,妖线) AND DTP{XG51};
DRAWICON(捉妖,(C+O)/2,23){XG51};
跟庄看盘:DRAWNULL,COLOR0088FF{XG51};
现价:REFDATE(C,DATE),DOTLINE,COLORBLACK{X!G^5~1!C!N!{};