通达信量能箱体突破主图指标公式源码

{指标介绍：
出现红色/黄色K线且股价突破白线时介入，配合成交量高于5日及周期均量择机进场；
绿色K线+股价跌破白线或黄线时离场择机卖出；
股价沿白线上行且均线多头排列时持有，回调至黄线或白线附近可考虑低吸；
连续缩量上涨或白线走平时警惕回调。}

VAR1:=IF(CURRBARSCOUNT=1,vol*240/FROMOPEN,VOL);
VAR2:=VAR1*10000/FINANCE(7);
VAR3:=IF(CURRBARSCOUNT=1,REF(CLOSE,1)*1.1,DRAWNULL);
VAR4:=IF(CURRBARSCOUNT=1,REF(CLOSE,1)*0.9,DRAWNULL);
VAR5:=CONST(BARSLAST(VAR2=HHV(VAR2,180)));
VAR6:=IF(CURRBARSCOUNT<=VAR5+1,CONST(REF((CLOSE+OPEN+HIGH+LOW)/4,VAR5)),DRAWNULL);
VAR7:=VAR6;
VAR8:=MA(CLOSE,5);
VAR9:=MA(CLOSE,6);
VAR10:=MA(CLOSE,7);
VAR11:=MA(CLOSE,8);
VAR12:=MA(CLOSE,9);
VAR13:=MA(CLOSE,10);
VAR14:=MA(CLOSE,11);
VAR15:=MA(CLOSE,12);
VAR16:=MA(CLOSE,13);
VAR17:=MA(CLOSE,14);
VAR18:=MA(CLOSE,15);
VAR19:=MA(CLOSE,16);
VAR20:=MA(CLOSE,17);
VAR21:=MA(CLOSE,18);
VAR22:=MA(CLOSE,19);
VAR23:=MA(CLOSE,20);
VAR24:=MA(CLOSE,21);
VAR25:=MA(CLOSE,22);
VAR26:=MA(CLOSE,23);
VAR27:=MA(CLOSE,24);
VAR28:=MA(CLOSE,25);
VAR29:=MA(CLOSE,26);
VAR30:=MA(CLOSE,27);
VAR31:=MA(CLOSE,28);
VAR32:=MA(CLOSE,29);
VAR33:=MA(CLOSE,30);
VAR34:=MA(CLOSE,31);
VAR35:=MAX(MAX(MAX(MAX(VAR8,VAR9),VAR10),VAR11),VAR12);
VAR36:=MAX(MAX(MAX(MAX(VAR13,VAR14),VAR15),VAR16),VAR17);
VAR37:=MAX(MAX(MAX(MAX(VAR18,VAR19),VAR20),VAR21),VAR22);
VAR38:=MAX(MAX(MAX(MAX(MAX(VAR23,VAR24),VAR25),VAR26),VAR27),VAR28);
VAR39:=MAX(MAX(MAX(MAX(MAX(VAR29,VAR30),VAR31),VAR32),VAR33),VAR34);
VAR40:=MAX(MAX(MAX(MAX(VAR35,VAR36),VAR37),VAR38),VAR39);
VAR41:=IF(VAR40=VAR8,5,IF(VAR40=VAR9,6,IF(VAR40=VAR10,7,IF(VAR40=VAR11,8,IF(VAR40=VAR12,9,IF(VAR40=VAR13,10,IF(VAR40=VAR14,11,IF(VAR40=VAR15,12,IF(VAR40=VAR16,13,IF(VAR40=VAR17,14,IF(VAR40=VAR18,15,IF(VAR40=VAR19,16,IF(VAR40=VAR20,17,IF(VAR40=VAR21,18,IF(VAR40=VAR22,19,IF(VAR40=VAR23,20,IF(VAR40=VAR24,21,IF(VAR40=VAR25,22,IF(VAR40=VAR26,23,IF(VAR40=VAR27,24,IF(VAR40=VAR28,25,DRAWNULL)))))))))))))))))))));
VAR42:=IF(VAR40=MA(CLOSE,VAR41),VAR41,IF(VAR40=VAR29,26,IF(VAR40=VAR30,27,IF(VAR40=VAR31,28,IF(VAR40=VAR32,29,IF(VAR40=VAR33,30,IF(VAR40=VAR34,31,32)))))));
VAR43:=IF(BARSCOUNT(CLOSE)>=31,(VAR40*3+MA(CLOSE,31))/4,MAX(MA(CLOSE,5),MA(CLOSE,BARSCOUNT(CLOSE))));
VAR44:=VAR1=HHV(VAR1,VAR42);
VAR45:=OPEN/CLOSE=HHV(OPEN/CLOSE,VAR42) AND CLOSE<OPEN;
VAR46:=CLOSE/OPEN=HHV(CLOSE/OPEN,VAR42);
VAR47:=VAR46 AND VAR44;
涨%:ROUND(INDEXADV/(INDEXADV+INDEXDEC)*100),NODRAW,COLORRED;
流通市值:FINANCE(40)/100000000,NODRAW,COLORRED;
STICKLINE(CURRBARSCOUNT=1,VAR3,MAX(OPEN,CLOSE),(-1),(-1)),COLORGRAY;
DRAWKLINE(HIGH,OPEN,LOW,CLOSE);
STICKLINE(CURRBARSCOUNT=1,VAR4,MIN(OPEN,CLOSE),(-1),(-1)),COLORBLUE;
DRAWKLINE(HIGH,OPEN,LOW,CLOSE);
多空线:VAR7,COLORYELLOW;
DRAWTEXT(ISLASTBAR,VAR7,4),COLORYELLOW;
变线:VAR43,COLORWHITE;
STICKLINE(VAR45,OPEN,CLOSE,2,0),COLORGREEN;
STICKLINE(VAR46,OPEN,CLOSE,2,0),COLORRED;
STICKLINE(VAR47,OPEN,CLOSE,2,0),COLORYELLOW;
VAR48:=VAR45 AND VAR1>MA(VAR1,VAR42) AND CLOSE>变线*1.05 AND VAR1>MA(VAR1,5) AND CLOSE<OPEN AND CLOSE<REF(CLOSE,1) AND HIGH/变线=HHV(HIGH/变线,5);
VAR49:=REF(HHV((HIGH+CLOSE+LOW+HIGH)/4,7),BARSLAST(crOSS(VAR13,VAR8)));
VAR50:=REF(LLV(MIN(OPEN,CLOSE),10),BARSLAST(CROSS(VAR8,VAR13)));
VAR51:=REF(HHV(MAX(CLOSE,OPEN),7),BARSLAST(CROSS(MA(CLOSE,10),MA(CLOSE,5))));
VAR52:=REF(LLV(MIN(CLOSE,OPEN),10),BARSLAST(CROSS(MA(CLOSE,5),MA(CLOSE,10))));
VAR53:=IF(CLOSE>500,VAR51,VAR49);
VAR54:=IF(CLOSE>500,VAR52,VAR50);
VAR55:=EVERY(CLOSE/REF(CLOSE,1)>INDEXC/REF(INDEXC,1),5) OR COUNT(CLOSE/REF(CLOSE,1)>INDEXC/REF(INDEXC,1),9)=8;
VAR56:=COUNT(VAR55,2) AND DYNAINFO(4)>0 AND IF(CLOSE<OPEN,VAR1<REF(VOL,1),1);
VAR57:=REF(MIN(REF(LOW,BARSLAST(VAR44)),REF(HIGH,BARSLAST(VAR44)+1)),1);
VAR58:=MAX(MAX(HHV((HIGH+CLOSE)/2,5),变线+MA(HIGH-变线,VAR42)),IF(变线>REF(变线,1),变线*1.03,变线));
VAR59:=IF(CLOSE<VAR49,MIN(VAR49,VAR58),VAR58);
VAR60:=Abs(LOW-OPEN)<ABS(OPEN-CLOSE) AND CLOSE/REF(CLOSE,1)>1.033 AND REF(CLOSE,1)/REF(CLOSE,2)<1.093 AND REF(CLOSE,2)/REF(CLOSE,3)<1.093 AND REF(CLOSE,3)/REF(CLOSE,4)<1.093 AND REF(CLOSE,4)/REF(CLOSE,5)<1.093 AND REF(CLOSE,5)/REF(CLOSE,6)<1.093 AND NOT(CLOSE=OPEN AND CLOSE/REF(CLOSE,1)>1.033);
VAR61:=ABS(LOW-OPEN)<ABS(OPEN-CLOSE) AND CLOSE/REF(CLOSE,1)>1.093 AND REF(CLOSE,1)/REF(CLOSE,2)<1.093 AND REF(CLOSE,2)/REF(CLOSE,3)<1.093 AND REF(CLOSE,3)/REF(CLOSE,4)<1.093 AND REF(CLOSE,4)/REF(CLOSE,5)<1.093 AND REF(CLOSE,5)/REF(CLOSE,6)<1.093 AND NOT(CLOSE=OPEN AND CLOSE/REF(CLOSE,1)>1.033);
VAR62:=CLOSE/REF(CLOSE,1)>1.033 AND VOL<REF(VOL,1) AND REF(CLOSE,1)/REF(CLOSE,2)<1.093 AND COUNT(CLOSE/REF(CLOSE,1)>1.093,20)<3;
VAR63:=VAR60 OR VAR62 AND COUNT(CLOSE/REF(CLOSE,1)>1.05,10)<=4;
VAR64:=VAR61 OR VAR62 AND COUNT(CLOSE/REF(CLOSE,1)>1.05,10)<=4;
VAR65:=CLOSE-REF(CLOSE,1);
VAR66:=100*EMA(EMA(VAR65,9),9)/EMA(EMA(ABS(VAR65),9),9);
VAR67:=MA(VAR66,5);
VAR68:=VAR66<0 AND VAR67<0;
VAR69:=MA(CLOSE,10);
VAR70:=MA(CLOSE,54);
VAR71:=(REF(CLOSE,3)-CLOSE)/REF(CLOSE,3)*100>5;
VAR72:=FILTER(VAR71,10);
VAR73:=BARSLAST(VAR72);
VAR74:=REF(HIGH,VAR73+2);
VAR75:=REF(HIGH,VAR73+1);
VAR76:=REF(HIGH,VAR73);
VAR77:=MAX(VAR74,VAR75);
VAR78:=MAX(VAR77,VAR76);
VAR79:=(CLOSE-REF(CLOSE,1))/REF(CLOSE,1)*100>5;
VAR80:=VAR73<150;
VAR81:=(OPEN-VAR78)/VAR78*100<30;
VAR82:=(CLOSE-LLV(LOW,VAR73))/LLV(LOW,VAR73)*100<50;
VAR83:=(CLOSE-REF(OPEN,5))/REF(OPEN,5)*100<30;
VAR84:=VOL/MA(VOL,5)<3.5;
VAR85:=(CLOSE-REF(CLOSE,89))/REF(CLOSE,89)*100<80;
VAR86:=VAR79 AND VAR80 AND VAR81 AND VAR82 AND VAR83 AND VAR84 AND VAR85;
VAR87:=FILTER(VAR86,15);
VAR88:=(CLOSE-VAR70)/VAR70<0.1;
VAR89:=(CLOSE-VAR69)/VAR69<0.3;
VAR90:=(VAR88=1 AND VAR89=1)*0.2;
VAR91:=(VAR90=0 AND REF(VAR90,1)=0.2 AND REF(COUNT(VAR90=0.2,10)=10,1)=1)*(-0.1);
VAR92:=VAR91=(-0.1);
VAR93:=VAR87 OR VAR92;
VAR94:=CLOSE/REF(CLOSE,1)>1.033 AND CLOSE/OPEN>1.033;
VAR95:=VOL/REF(VOL,1)>1.2 AND COUNT(CLOSE>OPEN,1) OR (LOW>REF(HIGH,1) AND COUNT(OPEN>CLOSE,1) AND VOL/REF(VOL,1)>1.2);
VAR96:=VAR93 AND CLOSE/REF(CLOSE,1)>1.033 AND VAR95 AND VAR94;
VAR97:=VAR68 AND VAR96 AND VAR63,COLORBLUE;
VAR98:=VAR68 AND VAR96 AND VAR64,COLORRED;
VAR116:=REF(VAR59,1);
VAR118:=变线>VAR53 AND COUNT(CLOSE>变线,5);
STICKLINE(VAR48,OPEN,CLOSE,2,0),COLORBLUE;
箱顶:IF(VAR53=CONST(VAR53),CONST(VAR53),DRAWNULL),COLORBROWN,LINETHICK3;
箱底:IF(VAR54=CONST(VAR54),VAR54,DRAWNULL),COLORBLUE,LINETHICK3;
DRAWTEXT(ISLASTBAR,VAR53,5),COLORBROWN;
DRAWTEXT(ISLASTBAR,VAR54,6),COLORBLUE;
STICKLINE(VAR56,VAR7,VAR7,5,0),COLORMAGENTA;
止赢:IF(CURRBARSCOUNT<=5,CONST(VAR116),DRAWNULL),DOTLINE,COLORMAGENTA;
DRAWTEXT(ISLASTBAR,VAR116,7),COLORMAGENTA;
预埋:IF(ISLASTBAR,VAR59,DRAWNULL),NODRAW,COLORMAGENTA;
止损:IF(VAR57=CONST(VAR57),VAR57,IF(ISLASTBAR,VAR57,DRAWNULL)),DOTLINE,COLORGREEN;
DRAWTEXT(ISLASTBAR,止损,8),COLORGREEN;
IF(VAR118,变线,DRAWNULL),COLOR0045FF;
IF(变线<VAR54,变线,DRAWNULL),COLORCYAN;
DRAWICON(VAR97,L,24);
DRAWICON(VAR98,L,25);