通达信四种涨停板主图选股指标公式源码

通达信四种涨停板主图选股指标公式源码

源码正文：

N:=21{XG51};
N1:=10{XG51};
Q:=10{XG51};
TTJ:=BArslAst((vol=HHV(VOL,N))){XG51};
K0:=TTJ=0{XG51};
K111:=SUMBARS(K0,1){XG51};
K2:=SUMBARS(K0,2){XG51};
K3:=SUMBARS(K0,3){XG51};
K4:=SUMBARS(K0,4){XG51};
K5:=SUMBARS(K0,5){XG51};
K6:=SUMBARS(K0,6){XG51};
K7:=SUMBARS(K0,7){XG51};
K8:=SUMBARS(K0,8){XG51};
K9:=SUMBARS(K0,9){XG51};
K10:=SUMBARS(K0,10){XG51};
A111:(K111<=30,REF(C,K111-1)*1.002),COLOREA91B5,NODRAW{XG51};
AA:STICKLINE(K111<=30,REF(C,K111-1)*1.002,REF(C,K111-1),10,0),COLOREA91B5{XG51};
B111:=(K2<=30,REF(C,K2-1)*1.002),COLORRED,NODRAW,LINETHICK1{XG51};
AA1:=REF(H,N1)=HHV(H,2*N1+1);  
QY:=BacKSET(AA1,N1+1);  
CC:=FILTER(QY,N1) AND H=HHV(H,N1+1);
DDD:=BARSLAST(CC);  
GDTS:=IF(CC,CURRBARSCOUNT,0);  
DINGBUTS:=IF(DDD,REF(GDTS,DDD),GDTS);  
GDCS1:=CONST(DINGBUTS);  
GDCS13:=CONST(REF(HIGH,GDCS1-1));  
XG1:=BACKSET(ISLASTBAR,GDCS1);  
C1:(XG1,GDCS13,GDCS13),COLORWHITE,NODRAW,LINETHICK1{XG51};
STICKLINE(XG1,GDCS13,GDCS13,1,0),COLORWHITE{XG51};
AAA:=(3*C+H+L+O)/6{XG51};
VAR21:=(8*AAA+7*REF(AAA,1)+6*REF(AAA,2)+5*REF(AAA,3)+4*REF(AAA,4)+3*REF(AAA,5)+2*REF(AAA,6)+REF(AAA,8))/36{XG51};
TJ1:=VOL=HHV(VOL,10) AND VOL>2*REF(VOL,1) AND CLOSE>VAR21{XG51};
立桩量:=FILTER(TJ1,5){XG51};
STICKLINE(CLOSE,REF(LOW,BARSLAST(立桩量)),REF(LOW,BARSLAST(立桩量)),1,0),COLORBLUE{XG51};
三日不破:=MIN(MIN(L,REF(L,1)),REF(L,2))>=REF(L,3){XG51};
三日量缩:=(maX(MAX(V,REF(V,1)),REF(V,2))<REF(V,3)){XG51};
三日价涨A:=C>=REF(C,1){XG51};
三日价涨C:=MIN(MIN(C,REF(C,1)),REF(C,2))>=REF(L,3){XG51};
TIM:=IF(DATE<1140214,1,0){XG51};
四日前倍量柱:=(REF(VOL,3)>1.9*REF(VOL,4))*TIM{XG51};
四日前高量柱:=(REF(VOL,3)>=REF(VOL,4) AND REF(VOL,3)<1.9*REF(VOL,4) AND 三日量缩)*TIM{XG51};
前三引用不成立:=COUNT(REF(四日前倍量柱,1) AND (REF(三日不破,1) OR REF(三日价涨C,1)),3)=0 AND COUNT(REF(四日前高量柱,1) AND (REF(三日不破,1) OR REF(三日价涨C,1)),3)=0{XG51};
倍量黄金柱:=四日前倍量柱 AND 三日量缩 AND 三日不破 AND 三日价涨A AND 前三引用不成立{XG51};
高量黄金柱:=四日前高量柱 AND 三日量缩 AND 三日不破 AND 三日价涨A AND 前三引用不成立{XG51};
黄金柱:=倍量黄金柱 OR 高量黄金柱{XG51};
BACKSET101:=BACKSET(黄金柱,4){XG51};
FILTER101:=FILTER(BACKSET101,3){XG51};
牛熊线:=SUMBARS(FILTER101,1){XG51};
STICKLINE(牛熊线,REF(L,牛熊线-2),REF(L,牛熊线-2),0.0001,0),COLORCYAN{XG51};
E1:REF(L,牛熊线-2),COLORCYAN,NODRAW,LINETHICK1{XG51};
DRAWTEXT_FIX(1,0.71,0.995,1,'红心板：吸货板，短线比较稳定；绿心板：中继板，继续上涨中出现；空心板：疯板，要么暴涨，要么止损；蓝心板：自救板，回调中出现。'),COLORWHITE{XG51};
涨停:=BETWEEN(CLOSE/REF(CLOSE,1),1.0984,1.110) AND C=H AND C>O{XG51};
expma5:=EXPMA(C,5){XG51};
EXPMA13:=EXPMA(C,13){XG51};
AB1:=REF(C,10)=HHV(C,2*10+1); BB1:=FILTER(AB1,10); CB1:=BACKSET(BB1,10+1); HBD:=FILTER(CB1,10){XG51};
近期压力:REF(C,BARSLAST(HBD)) NODRAW,COLORBLUE{XG51};
STICKLINE(C,近期压力,近期压力,10,0),COLORBLUE ;DRAWTEXT(ISLASTBAR,近期压力,' 近期压力'){XG51};
AS1:=REF(C,60)=HHV(C,2*60+1); AS2:=FILTER(AS1,60); AS3:=BACKSET(AS2,60+1); AS4:=FILTER(AS3,60);  
长期压力:REF(C,BARSLAST(AS4)) NODRAW COLORYELLOW{XG51};
STICKLINE(C,长期压力,长期压力,10,0),COLORYELLOW;DRAWTEXT(ISLASTBAR,长期压力,' 长期压力'){XG51};
跌幅:=(C-REF(C,1))/REF(C,1)*100<-4.94{XG51};
箱顶:DRAWLINE(跌幅,O,REF(跌幅,1),REF(O,1),1),COLORCYAN LINETHICK2{XG51};
DRAWTEXT(ISLASTBAR,箱顶,' 箱顶'){XG51};
HSL2:=100*VOL/(FINANCE(7)/100){XG51};
LH:=SUM(HSL2,5){XG51};
LH1:=SUM(HSL2,10){XG51};
LH2:=SUM(HSL2,15){XG51};
LH3:=SUM(HSL2,21);
换手5:LH,NODRAW,COLORWHITE{XG51};
换手10:LH1,NODRAW,COLORBLUE{XG51};
换手15:LH2,NODRAW,COLORWHITE{XG51};
换手21:LH3,NODRAW,COLORBLUE{XG51};
R1:=(C>REF(C,1) AND C>REF(C,2));R2:=(REF(R1,1) AND C<=REF(C,1) AND C>=REF(C,2));R3:=(REF(R2,1) AND C>=REF(C,1) AND C<=REF(C,2)){XG51};
R4:=(REF(R3,1) AND C<=REF(C,1) AND C>=REF(C,2));R5:=(REF(R4,1) AND C>=REF(C,1) AND C<=REF(C,2));R6:=(REF(R5,1) AND C<=REF(C,1) AND C>=REF(C,2)){XG51};
R7:=(REF(R6,1) AND C>=REF(C,1) AND C<=REF(C,2));R8:=(REF(R7,1) AND C<=REF(C,1) AND C>=REF(C,2));R9:=(REF(R8,1) AND C>=REF(C,1) AND C<=REF(C,2)){XG51};
RA:=(REF(R9,1) AND C<=REF(C,1) AND C>=REF(C,2));RB:=(REF(RA,1) AND C>=REF(C,1) AND C<=REF(C,2));RC:=(REF(RB,1) AND C<=REF(C,1) AND C>=REF(C,2)){XG51};
RD:=(C<REF(C,1) AND C<REF(C,2));RE:=(REF(RD,1) AND C>=REF(C,1) AND C<=REF(C,2));RF:=(REF(RE,1) AND C<=REF(C,1) AND C>=REF(C,2)){XG51};
R10:=(REF(RF,1) AND C>=REF(C,1) AND C<=REF(C,2));R11:=(REF(R10,1) AND C<=REF(C,1) AND C>=REF(C,2));R12:=(REF(R11,1) AND C>=REF(C,1) AND C<=REF(C,2)){XG51};
R13:=(REF(R12,1) AND C<=REF(C,1) AND C>=REF(C,2));R14:=(REF(R13,1) AND C>=REF(C,1) AND C<=REF(C,2));R15:=(REF(R14,1) AND C<=REF(C,1) AND C>=REF(C,2)){XG51};
R16:=(REF(R15,1) AND C>=REF(C,1) AND C<=REF(C,2));R17:=(REF(R16,1) AND C<=REF(C,1) AND C>=REF(C,2)){XG51};
R18:=(REF(R17,1) AND C>=REF(C,1) AND C<=REF(C,2));R19:=((REF(RD OR RE OR RF OR R10 OR R11 OR R12 OR R13
OR R14 OR R15 OR R16 OR R17 OR R18,1)) AND R1){XG51};
R1A:=((REF(R1 OR R2 OR R3 OR R4 OR R5 OR R6 OR R7 OR R8 OR R9 OR RA OR RB OR RC,1)) AND RD){XG51};
蓝心板:=REF(RD OR RE OR RF OR R10 OR R11 OR R12 OR R13 OR R14 OR R15 OR R16 OR R17 OR R18,1){XG51};
RSV9:=(C-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100; K1:=SMA(RSV9,3,1){XG51};
DK1:=K1-REF(K1,1);出手就赢:=IF(DK1>7 AND REF(DK1,1)<0 AND (DK1-REF(DK1,1))>9,50,0){XG51};
绿心板:=(出手就赢=50 OR REF("kdj.J",1)<0) AND "kdJ.J">0{XG51};
红心板:=蓝心板 AND 绿心板{XG51};
红色持股:=R1 OR R2 OR R3 OR R4 OR R5 OR R6 OR R7 OR R8 OR R9 OR RA OR RB OR RC{XG51};
短进:=R19{XG51};
青色观望:=RD OR RE OR RF OR R10 OR R11 OR R12 OR R13 OR R14 OR R15 OR R16 OR R17 OR R18{XG51};
急速超跌:=(C-MA(C,34))/MA(C,34)*100<-14;品红离场:=R1A{XG51};
STICKLINE(C>=O,L,H,0,0),COLOR0000CC;STICKLINE(C<O,L,H,0,0),COLOR999900;STICKLINE(1,C,O,3.5,0),COLOR858500{XG51};
STICKLINE(C>=O,C,O,3.5,0),COLOR0000E5;STICKLINE(红色持股,C,O,2.8,0),COLOR000055;STICKLINE(红色持股,C,O,2,0),COLOR000088{XG51};
STICKLINE(红色持股,C,O,1.5,0),COLOR0000AA;STICKLINE(红色持股,C,O,1,0),COLOR0000CC;STICKLINE(红色持股,C,O,0.5,0),COLOR0000EE{XG51};
STICKLINE(青色观望,C,O,2.8,0),COLOR555500;STICKLINE(青色观望,C,O,2,0),COLOR888800;STICKLINE(青色观望,C,O,1.5,0),COLORAAAA00{XG51};
STICKLINE(青色观望,C,O,1,0),COLORCCCC00;STICKLINE(青色观望,C,O,0.5,0),COLOREEEE00;CO:=(C-O){XG51};
绿心过滤:=IF((蓝心板),DRAWNULL,绿心板);蓝心过滤:=IF((绿心板),DRAWNULL,蓝心板){XG51};
STICKLINE(急速超跌,O,C-CO/2,2.8,0),COLOR555555;STICKLINE(急速超跌,O,C-CO/2,2,0),COLOR888888;STICKLINE(急速超跌,O,C-CO/2,1.5,0),COLORAAAAAA{XG51};
STICKLINE(急速超跌,O,C-CO/2,1,0),COLORCCCCCC;STICKLINE(急速超跌,O,C-CO/2,0.5,0),COLOREEEEEE;STICKLINE(短进,O,O+CO/3,2.8,0),COLOR335555{XG51};
STICKLINE(短进,O,O+CO/3,2,0),COLOR338888;STICKLINE(短进,O,O+CO/3,1.5,0),COLOR33AAAA;STICKLINE(短进,O,O+CO/3,1,0),COLOR33CCCC{XG51};
STICKLINE(品红离场,O,O+CO/3,2.8,0),COLOR550055;STICKLINE(品红离场,O,O+CO/3,2,0),COLOR880088;STICKLINE(品红离场,O,O+CO/3,1.5,0),COLORAA00AA{XG51};
STICKLINE(品红离场,O,O+CO/3,1,0),COLORCC00CC;STICKLINE(品红离场,O,O+CO/3,0.5,0),COLOREE00EE;STICKLINE(涨停,O,C,3.6,1),COLORBLUE{XG51};
STICKLINE(涨停 AND 蓝心过滤,O,C,0.4,0),COLORYELLOW;STICKLINE(涨停 AND 绿心过滤,O,C,0.4,0),COLORCYAN;STICKLINE(涨停 AND 红心板,O,C,0.4,0),COLORWHITE{XG51};
Z11:=STRCAT(HYBLOCK,' '){XG51};
Z21:=STRCAT(Z11,DYBLOCK){XG51};
Z31:=STRCAT(Z21,' '){XG51};
A1:=C>REF(C,4){XG51};
NT:=BARSLASTCOUNT(A1){XG51};
TJ11:=NT=9{XG51};
TJ13:=ISLASTBAR AND BETWEEN(NT,5,8){XG51};
AY:=(BACKSET(TJ11>0,9) OR   BACKSET(TJ13>0,NT))*NT{XG51};
DRAWTEXT(AY>0,H*1.02,VAR2STR(AY,0)),COLORFF00FF{XG51};
DRAWTEXT(NT=9,H*1.02,'9'),COLORCYAN{XG51};
B1:=C<REF(C,4){XG51};
NT0:=BARSLASTCOUNT(B1){XG51};
TJ21:=NT0=9 {XG51};
TJ23:=ISLASTBAR AND BETWEEN(NT0,5,8){XG51};
AY1:=(BACKSET(TJ21>0,9)  OR  BACKSET(TJ23>0,NT0))*NT0{XG51};
DRAWTEXT(AY1>0,L*0.98,VAR2STR(AY1,0)),COLORFF00FF{XG51};
DRAWTEXT(NT0=9,L*0.98,'9'),COLORCYAN{XG51};
JJ:=(CLOSE+HIGH+LOW)/3;
A:=ema(JJ,5);
B:=REF(A,1);            
持股:STICKLINE(A>B,A,B,4,0),COLOR00FFFF;
总额:=AMOUNT{XG51};
买:=IF(O=C AND (C-REF(C,1))/REF(C,1)*100>9.8,AMOUNT,AMOUNT/((H-L)*2-Abs(O-C))*(C-L)){XG51};
买%:=买/AMOUNT*100{XG51};
流入:=AMOUNT*买%/10000000000{XG51};
流出:=AMOUNT/100000000-流入{XG51};
净流:=(流入-流出){XG51};
总额2:=SUM(AMOUNT,2){XG51};
流入2:=SUM(流入,2){XG51};
流出2:=SUM(流出,2){XG51};
净流2:=SUM(流入-流出,2){XG51};
总额3:=SUM(AMOUNT,3){XG51};
流入3:=SUM(流入,3){XG51};
流出3:=SUM(流出,3){XG51};
净流3:=SUM(流入-流出,3){XG51};
总额4:=SUM(AMOUNT,4){XG51};
流入4:=SUM(流入,4){XG51};
流出4:=SUM(流出,4){XG51};
净流4:=SUM(流入-流出,4){XG51};
总额5:=SUM(AMOUNT,5){XG51};
流入5:=SUM(流入,5){XG51};
流出5:=SUM(流出,5){XG51};
净流5:=SUM(流入-流出,5){XG51};
总额10:=SUM(AMOUNT,10){XG51};
流入10:=SUM(流入,10){XG51};
流出10:=SUM(流出,10){XG51};
净流10:=SUM(流入-流出,10){XG51};
画:=CONST(FINDHIGH(总额10,0,190,1)){XG51};
DRAWTEXT_FIX(1,0.58,0.07,0,'净流(亿):'),COLORLIMAGENTA,LINETHICK1{XG51};
DRAWTEXT_FIX(1,0.65,0.05,0,'1日'),COLORLIMAGENTA,LINETHICK1{XG51};
DRAWTEXT_FIX(1,0.71,0.05,0,'2日'),COLORLIMAGENTA,LINETHICK1{XG51};
DRAWTEXT_FIX(1,0.77,0.05,0,'3日'),COLORLIMAGENTA,LINETHICK1{XG51};
DRAWTEXT_FIX(1,0.83,0.05,0,'4日'),COLORLIMAGENTA,LINETHICK1{XG51};
DRAWTEXT_FIX(1,0.89,0.05,0,'5日'),COLORLIMAGENTA,LINETHICK1{XG51};
DRAWTEXT_FIX(1,0.95,0.05,0,'10日'),COLORLIMAGENTA,LINETHICK1{XG51};
DRAWNUMBER_FIX(1,0.65,0.10,0,CONST((净流))),COLORBLUE{XG51};
DRAWNUMBER_FIX(1,0.71,0.10,0,CONST((净流2))),COLORBLUE{XG51};
DRAWNUMBER_FIX(1,0.77,0.10,0,CONST((净流3))),COLORBLUE{XG51};
DRAWNUMBER_FIX(1,0.83,0.10,0,CONST((净流4))),COLORBLUE{XG51};
DRAWNUMBER_FIX(1,0.89,0.10,0,CONST((净流5))),COLORBLUE{XG51};
DRAWNUMBER_FIX(1,0.95,0.10,0,CONST((净流10))),COLORBLUE{XG51};
所属板块:=STRCAT('所属板块: ',STRCAT(STRCAT(STRCAT('　　行业   ',HYBLOCK),STRCAT('      　地域  
',DYBLOCK)),STRCAT('      概念  ',GNBLOCK))){XG51};
总股本:=STRCAT(STRCAT('　　总股本: ',CON2STR(TOTALCAPITAL/1000000,2)),'亿'){XG51};
流通盘:=STRCAT(STRCAT('      流通盘:   ',CON2STR(CAPITAL/1000000,2)),'亿'){XG51};
市值:=STRCAT(STRCAT('      流通市值:   ',CON2STR((CAPITAL/1000000)*C,2)),'亿'){XG51};
上市日期:=STRCAT('      上市日期: ',CON2STR(HHV((BARSCOUNT(C)=0)*(DATE+19000000),0),0)){XG51};
股本市值:=STRCAT('股本市值: ',STRCAT(STRCAT(STRCAT(总股本,流通盘),市值),上市日期)){XG51};
DRAWTEXT_FIX(ISLASTBAR,0.009,0.09,0,所属板块),COLORBLUE,LINETHICK2{XG51};
DRAWTEXT_FIX(ISLASTBAR,0.009,0.0001,0,股本市值),COLORCYAN,LINETHICK2{XG51};
DRAWTEXT_FIX(C>0,0.078,0.06,0,EXTERNSTR(0,2)),COLORFF00FF,LINETHICK2{XG51};
bbi:(MA(CLOSE,3)+MA(CLOSE,6)+MA(CLOSE,12)+MA(CLOSE,24))/4,COLORWHITE,LINETHICK2{XG51};
A0:=IF((BARSCOUNT(C)>7),100*((MA(C,7))/(LLV(MA(C,7),7))-1),1){XG51};
HSL:=VOL/CAPITAL*100{XG51};
B0:=((-((100)*(HHV(H,N)-C))/(HHV(HIGH,N)-LLV(L,N)))){XG51};
停板:=crOSS(B0,-2){XG51};
ZDF:=(C/REF(C,1)-1)*100{XG51};
VAR11:=0-((100)*(HHV(HIGH,3)-CLOSE))/(HHV(HIGH,3)-LLV(LOW,3)){XG51};
涨停1:=(VAR11=0) AND ((HHV(HIGH,3))/(LLV(LOW,3))>1+(15)/(100)) AND ((HHV(HIGH,3))/(LLV(LOW,3))<1+25/100){XG51};
STICKLINE(涨停1 OR ZDF>9.9,L-0.4,L-0.4,3,0),COLORWHITE{XG51};
STICKLINE(涨停1 OR ZDF>9.9,L-0.6,L-0.6,3,0),COLORWHITE{XG51};
STICKLINE(停板 AND HSL>4,L-0.6,L-0.6,3,0),COLORWHITE{X!G?5!1!C!N!{};