通达信跟庄BOLL主图选股指标公式源码

通达信跟庄BOLL主图选股指标公式源码

源码正文：

M:=20{XG51};
N:=4{XG51};
boll:ma(CLOSE,M){XG51};
UB:BOLL+2*stD(CLOSE,M){XG51};
LB:BOLL-2*STD(CLOSE,M){XG51};
高:=REF(HHV(H,72),5){XG51};
龙门:REFDATE(高,DATE),COLORRED,LINETHICK2{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};
JJ:=(C+H+L)/3{XG51};
A:=ema(JJ,10){XG51};
B:=REF(A,1);
STICKLINE(A>B,A,B,2,0),COLORBLUE{XG51};
STICKLINE(A<B,A,B,2,0),COLORYELLOW{XG51};
月线:=WMA(C,21){XG51};
月角:=ATAN((月线/REF(月线,1)-1)*100)*180/3.1416,NODRAW{XG51};
A1:=REF(H,N)=HHV(H,2*N+1){XG51};
B1:=FILTER(A1,N){XG51};
C1:=BacKSET(B1,N+1){XG51};
D1:=FILTER(C1,N) AND ZT{XG51};
E1:=BArslAST(D1 ){XG51};
STICKLINE(D1,BOLL,UB,2,0),COLORWHITE{XG51};
GX:=(O<LB AND C>LB) OR (O<BOLL AND C>BOLL)  OR (O<UB AND C>UB){XG51};
缩量:=V<0.8*HHV(V,20){XG51};
选股:=crOSS(C,REF(H,E1)) AND GX AND V<=REF(V,E1)*1.2 AND 月角>30,NODRAW{XG51};
STICKLINE(选股,LB,BOLL,0.1,0),COLORCYAN{XG51};
STICKLINE(选股,UB,BOLL,0.1,0),COLORWHITE{XG51};
市值:(FINANCE(40)/100000000),NODRAW,COLORWHITE;
股东占流通比:100*FINVALUE(244)/FINVALUE(239),NODRAW{XG51};
历史衰退系数:100/(100-股东占流通比),NODRAW{XG51};
TAX:=HORCALC(HYBLOCK,105,1,DRAWNULL){XG51};
TAA:=STRCAT(HYBLOCK,'      排名 ：'){XG51};
DRAWTEXT_FIX(ISLASTBAR,0.70,0.005,0,STRCAT(TAA,CON2STR(TAX,0))){X.G^5=1.C.N.{};