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

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

源码正文：

ma480:MA(C,480){XG51};
TJ360:=C=HHV(C,150){XG51};
TS360:=BArslAst(TJ360){XG51};
HHC360:=REF(C,TS360){XG51};
RHHC360:=REF(HHC360,1){XG51};
TJ1360:=H>L AND C>RHHC360 {XG51};
CS1360:=BARSLASTCOUNT(TJ1360){XG51};
CSS:=COUNT(CS1360=1,60){XG51};
MR:=CS1360=1 AND CSS=1{XG51};
STICKLINE(MR,O,C,3,0),COLORYELLOW{XG51};
DRAWTEXT(MR,L,'黑马线'),COLORBLUE{XG51};
HMXTS:=BARSLAST(MR){XG51};
黑马线:CONST(REF(C,HMXTS)),COLORFFFF00,LINETHICK2{XG51};
高D:=REF(HHV(H,72),5){XG51};
龙门:REFDATE(高D,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};
DRAWTEXT(CURRBARSCOUNT=1,L*0.995,EXTERNSTR(0,4));  
半分:(O+C)/2,NODRAW{XG51};
昨半:REF((O+C)/2,1),NODRAW,COLORBLUE{XG51};
STICKLINE(ISLASTBAR,昨半,昨半,8,2),COLORLICYAN{XG51};
LB:=REF(EVERY(ZT,3),2) AND REF(H=HHV(H,20),1) AND H<REF(H,1){XG51};
LBQ:=BARSLAST(LB){XG51};
打折:=REF(H,LBQ+1)*0.7,NODRAW,COLORRED{XG51};
STICKLINE(打折,打折,打折,5,0),COLORFFFF44{XG51};
Q3:=STRCAT(CON2STR(打折,2),'打折线');
DRAWTEXT(ISLASTBAR,打折,VARCAT(VARCAT('打折线',VAR2STR(打折,2)),'元'))COLORFFFF00{XG51};
基柱:=C>REF(C,1)*1.05 AND V>=REF(V,1)*1.85{XG51};
周期:=BARSLAST(基柱){XG51};
STICKLINE(基柱,O,C,2.8,0),COLORFF00FF{XG51};
DRAWLINE(基柱,C,REF(基柱,1),REF(C,1),1),COLORRED,DOTLINE{XG51};
DRAWLINE(基柱,O,REF(基柱,1),REF(O,1),1),COLORLIBLUE,DOTLINE{XG51};
小K:=BETWEEN(C,REF(C,1)*0.98,REF(C,1)*1.02){XG51};
买点1:=小K AND BETWEEN(周期,3,100) AND BETWEEN(L, REF(C,周期)*0.99,REF(C,周期)*1.005) AND V<=REF(V,1)*0.85{XG51};
DRAWICON(买点1,MIN(C,O),7){XG51};
买点2:=小K AND BETWEEN(周期,3,100)  AND BETWEEN(L, REF(L,周期),REF(L,周期)*1.01) AND V<=REF(V,1)*0.85{XG51};
DRAWICON(买点2,MIN(C,O),1){XG51};
买点3:=EXIST(买点1 OR 买点2,60) AND crOSS(C,REF(H,周期)){XG51};
DRAWICON(买点3,MIN(C,O),13){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 AND C>=O,H,L,0,0),COLORWHITE{XG51};
STICKLINE(ZT1 AND C<O,H,L,0,0),COLORLIGREEN{XG51};
STICKLINE(DT1 AND C>=O,H ,L,0,0),COLORWHITE{XG51};
STICKLINE(DT1 AND C<O,H,L,0,0),COLORLIGREEN{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,C,(O+C)/2,0.5,0),COLORCC66FF{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(ZT1,O,(O+C)/2,0.5,0),COLORFFFFFF{XG51};
STICKLINE(DT1,O,(O+C)/2,2.5,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,O,(O+C)/2,0.5,0),COLORFFFFFF{XG51};
STICKLINE(DT1,C,(O+C)/2,2.5,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};
假阴:=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,2)=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(首板,0.1+(C+O)/2,'1'),COLORRED{XG51};
DRAWTEXT(二板,0.1+(C+O)/2,'2'),COLORBLUE{XG51};
DRAWTEXT(三板,0.1+(C+O)/2,'3'),COLOR00CC99{XG51};
DRAWTEXT(四板,0.1+(C+O)/2,'4'),COLORCYAN{XG51};
DRAWTEXT(五板,0.1+(C+O)/2,'5'),COLORBLACK{XG51};
DRAWTEXT(六板,0.1+(C+O)/2,'6'),COLORLICYAN{XG51};
DRAWTEXT(七板,0.1+(C+O)/2,'7'),COLORLIGREEN{XG51};
DRAWTEXT(八板,0.1+(C+O)/2,'8'),COLORYELLOW{XG51};
DRAWTEXT(九板,0.1+(C+O)/2,'9'),COLORRED{XG51};
DRAWTEXT(十板,0.1+(C+O)/2,'10'),COLORBLUE{XG51};
月:REF(O,BARSLAST(MONTH!=REF(MONTH,1))),COLORWHITE,NODRAW{XG51};
STICKLINE(C>月,月,月,5,0),COLORWHITE{XG51};
STICKLINE(C<月,月,月,5,0),COLORFFFF00{XG51};
STICKLINE(C=月,月,月,5,0),COLORRED{XG51};
收阴:=(C<REF(C,1) OR L<REF(L,1) OR AMOUNT/V/100<REF((C+O)/2,1)) AND O<=REF(C,1){XG51};
多阴:=EVERY(收阴,2){XG51};
小阳:=O-L<=0.03 AND H>C AND C>O AND O<REF(C,1) AND C<REF(MAX(C,O),1) AND V<REF(V,1){XG51};
宝莲灯:=REF(多阴,1) AND 小阳{XG51};
STICKLINE(宝莲灯,O,C,2.5,0),COLORCC22FF{XG51};
STICKLINE(宝莲灯,(O+C)/2-0.007,(O+C)/2+0.007,1,0),COLORRED{XG51};
A1:=ema(C,12)-EMA(C,25){XG51};
A2:=EMA(A1,6){XG51};
获利回吐:=(A2>=0)*A2,COLORRED,LINETHICK0{XG51};
大黑马:=(A2<0)*A2,COLORD4FF7F,LINETHICK0{XG51};
坚绝做空:=(A1<0)*A1,COLORB00058,LINETHICK0{XG51};
买入持股:=(A1>=0)*A1,COLORWHITE,LINETHICK0{XG51};
VAR8:=vol>2*MA(VOL,30){XG51};
VARB:=CLOSE>MA(CLOSE,30) AND CLOSE<MA(CLOSE,30)*1.04{XG51};
VARC:=MA(CLOSE,30)>REF(MA(CLOSE,30),1){XG51};
VARD:=BARSLAST(CROSS(MA(CLOSE,5),MA(CLOSE,10)))<BARSLAST(CROSS(MA(CLOSE,10),MA(CLOSE,5))){XG51};
VARF:=TROUGHBARS(3,15,1)<4{XG51};
VAR10:=EMA(CLOSE,30)>REF(EMA(CLOSE,30),2){XG51};
VAR11:=IF(VARF=1,50,0){XG51};
多空:=EMA((CLOSE-MA((2*CLOSE+HIGH+LOW)/4,30))/MA((2*CLOSE+HIGH+LOW)/4,30)*100,3),COLORRED{XG51};
STICKLINE(FILTER(VARF=1,5) AND 多空<-10,C,O,2.8,0),COLORF00FF0{XG51};
STICKLINE(FILTER(VARF=1,5),(C+O)*0.5-0.007,(C+O)*0.5+0.007,1,0),COLORBLacK{XG51};
DRAWTEXT(FILTER(VARF=1,3),L,'黑马'),COLORWHITE {XG51};
VAR121:=zig(3,6)<REF(ZIG(3,6),1) AND REF(ZIG(3,6),1)>=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)>=REF(ZIG(3,6),3){XG51};
VAR141:=ZIG(3,25)<REF(ZIG(3,25),1) AND REF(ZIG(3,25),1)>=REF(ZIG(3,25),2) AND REF(ZIG(3,25),2)>=REF(ZIG(3,25),3){XG51};
VAR161:=ZIG(3,55)<REF(ZIG(3,55),1) AND REF(ZIG(3,55),1)>=REF(ZIG(3,55),2) AND REF(ZIG(3,55),2)>=REF(ZIG(3,55),3){XG51};
VAR181:=ZIG(3,72)<REF(ZIG(3,72),1) AND REF(ZIG(3,72),1)>=REF(ZIG(3,72),2) AND REF(ZIG(3,72),2)>=REF(ZIG(3,72),3){XG51};
卖:=VAR121+VAR141+VAR161+VAR181{XG51};
DRAWLINE(卖,O,BARSLAST(卖)>=1,REF(O,BARSLAST(卖)),1),COLORBLUE,LINETHICK2{X_G*5~1_C_N_{};