通达信牛线箱主图未加密选股指标公式源码

{箱顶底}
AB:=Ema(((2*C+H+L)/4-LLV(LOW,30))/(HHV(HIGH,30)-LLV(LOW,30))*100,8);
BA:=ema(AB,5);
A18:=REFDATE(REF(HHV(H,96),5),DATE);{高}
B1:=REFDATE(REF(LLV(L,96),5),DATE);{低}
DY:=((A18)+(B1))/2;{中}
顶:IF(AB>0 AND AB-BA<=0,A18,A18),DOTLINE,COLORGREEN;
腰:IF(AB>0 AND AB-BA<=0,DY,DY),DOTLINE,COLORGREEN;
底:IF(AB>0 AND AB-BA<=0,B1,B1),DOTLINE,COLORGREEN;
MC:=C#MONTH,NODRAW;
MO1:=IF(DAY<REF(DAY,1),O,DRAWNULL);
MO:=HHV(MO1,DAY),NODRAW;
STICKLINE(MC>=MO,MO,MC,4,-1)COLOR00009C;
STICKLINE(MC<MO,MO,MC,4,-1),COLOR4F2F4F;
AQ:=O#WEEK;B:=C#WEEK;
AAQ:=H#WEEK;BB:=L#WEEK;
STICKLINE(B>=AQ,AAQ,BB,4,0),COLOR00006B;
STICKLINE(B<AQ,AAQ,BB,4,0),COLOR663300;
{猎击止损}
P:=9;
WH1:=IF(L=LLV(L,P),L,DRAWNULL);
WH2:=CONST(BArslAST(WH1!=DRAWNULL));
WH3:=CONST(IF(WH2=0,H,REF(H,WH2)));
WH4:=CONST(REF(BARSLAST(H>WH3),WH2+1)+WH2+1);
WH5:=CONST(IF(WH4=0,H,REF(H,WH4)));
WH6:=CONST(REF(BARSLAST(H>WH5),WH4+1)+WH4+1);
赢:IF(CURRBARSCOUNT<=WH2+10,CONST(IF(WH6=0,H,REF(H,WH6))),DRAWNULL),COLORLIMAGENTA,LINETHICK2;
DRAWTEXT(ISLASTBAR,赢,' YW'),COLORLIMAGENTA;
H1:=IF(H=HHV(H,P),H,DRAWNULL);
H2:=CONST(BARSLAST(H1!=DRAWNULL));
H3:=CONST(IF(H2=0,L,REF(L,H2)));
H4:=CONST(REF(BARSLAST(L<H3),H2+1)+H2+1);
H5:=CONST(IF(H4=0,L,REF(L,H4)));
H6:=CONST(REF(BARSLAST(L<H5),H4+1)+H4+1);
损:IF(CURRBARSCOUNT<=H2+10,CONST(IF(H6=0,L,REF(L,H6))),DRAWNULL),COLORCYAN,LINETHICK2;
DRAWTEXT(ISLASTBAR,损,' SW'),COLORCYAN;
{九线}
VAR1:=(2*CLOSE+HIGH+LOW+OPEN)/5;
A1:(EMA(VAR1,3)+EMA(VAR1,6)+EMA(VAR1,12)+EMA(VAR1,24))/4,COLOR0044BB;
A2:EMA(A1,2),COLOR3355BB;
A3:EMA(A2,2),COLOR4455BB;
A4:EMA(A3,2),COLOR5555BB;
A5:EMA(A4,2),COLOR6655BB;
A6:EMA(A5,2),COLOR7755BB;
A7:EMA(A6,2),COLOR8855BB;
{k线}
DRAWKLINE(H,O,L,C);
STICKLINE(C>=O,C,O,3,0),COLOR1F1ac5;
STICKLINE(C>=O,C,O,1.3,0),COLOR1F1AD5;
STICKLINE(C>=O,C,O,0,0),COLOR1F1AF5;
STICKLINE(C<O,C,O,3,0),COLORBBBB00;
STICKLINE(C<O,C,O,1.3,0),COLORDDDD00;
STICKLINE(C<O,H,L,0,0),COLORFFFF00;
A8:EMA(VAR1,2.78)*1.028,COLORRED,LINETHICK1;
A9:MA(OPEN,3.2)*1.028,COLORBLUE,LINETHICK1;
{涨停显示}
C6:=REF(C,1);
涨停:=IF((C-C6)*100/C6>=(10-0.01*100/C6),1,0);
STICKLINE(涨停,OPEN,CLOSE,2,0),COLORLIMAGENTA;
STICKLINE(涨停,H,L,0,0),COLORLICYAN;
{高位}
VAR2:=(REF(HIGH,1)+REF(LOW,1))/2;
VAR3:=MA(CLOSE,20)+2*STD(CLOSE,20);
DRAWTEXT(crOSS(VAR2,VAR3),HIGH*1.045,'&darr;高'),COLORGREEN;
{逃顶}
VAR7:=REF(C,1);
VAR8:=SMA(MAX(C-VAR7,0),6,1)/SMA(Abs(C-VAR7),6,1)*100;
DRAWTEXT(CROSS(82,VAR8),H*1.025,'&darr;逃'),COLORGREEN;
{KDJ金叉}
VAR4:=(100 - ((90 * (HHV(HIGH,14) - CLOSE)) / (HHV(HIGH,14) - LLV(LOW,14))));
VAR5:=(100 - ((90 * (HHV(HIGH,14) - CLOSE)) / (HHV(HIGH,14) - LLV(LOW,14))));
VAR6:=(100 - MA(((100 * (HHV(HIGH,6) - CLOSE)) / (HHV(HIGH,6) - LLV(LOW,6))),34));
DRAWICON(CROSS(VAR5,MA(VAR6,6)),(LOW - (LOW*0.015)),38);
DRAWICON(CROSS(MA(VAR6,6),VAR4),(HIGH+(HIGH*0.015)),39);
STICKLINE(CROSS("KDJ.K"(3,5,3),"KDJ.D"(3,5,3)),O,C,0.6,0),COLORBLUE;
STICKLINE(CROSS("KDJ.D"(3,5,3),"KDJ.K"(3,5,3)),O,C,0.6,0),COLORYELLOW;
{黑马}
VAR3AA:=IF((CLOSE>REF(CLOSE,1)),88,0);
VAR4AA:=IF(((CLOSE)/(REF(CLOSE,1))>1.05) AND ((HIGH)/(CLOSE)<1.01) AND (VAR3AA>0),91,0);
DRAWTEXT(FILTER((VAR4AA>90),45),(LOW)*(0.95),'★马'),COLORLIMAGENTA;
DRAWTEXT(FILTER((VAR4AA>90),35),(LOW)*(0.97),'★加'),COLORLIMAGENTA;
{主力进场}
VAR9:=((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27)))*(100);
VAR10:=SMA(VAR9,3,1);
VAR11:=SMA(VAR10,3,1);
VAR12:=SMA(VAR11,3,1);
主力出现:DRAWICON(CROSS(VAR11,VAR12) AND (VAR11<40),L*0.98,23);
{突破追涨}
A10:=HHV(H,73);
A11:=LLV(L,73);
M1:=MA(C,13);
M2:=MA(C,36);
M3:=MA(C,73);
K1:=(0.618*A10+0.382*A11),COLORCYAN;
K2:=(0.5*A10+0.5*A11),COLORCYAN;
K3:=(0.382*A10+0.618*A11),COLORCYAN;
K4:=(0.191*A10+0.809*A11),COLORWHITE;
K5:=(0.809*A10+0.191*A11),COLORWHITE;
牛:=V=HHV(V,64) AND V>REF(V,1)*1.5;
单阳:=C AND 牛;
单阳收:=C;
单阳开:=O;
高不破价:=REF(C,BARSLAST(单阳));
前高:=HHV(高不破价,13);
STICKLINE(前高,高不破价,高不破价,5,0)DOTLINE,COLORYELLOW;
突破:=CROSS(C,前高) AND C>MA(C,36) AND (C-O)/O>0.030 AND MA(C,13)>REF(MA(C,13),1) AND C>K5;
DRAWTEXT(CROSS(C,前高) AND C>MA(C,36) AND (C-O)/O>0.035 AND MA(C,13)>REF(MA(C,13),1) AND MA(C,36)>REF(MA(C,36),1) ,L*1.00,'☆突') ,COLORLIMAGENTA;
DRAWTEXT(单阳 >REF(单阳,1) AND (C-O)/O>0.0455,L*1.00,'★追') ,COLORLIMAGENTA;
{行业}
所属地域:DRAWTEXT_FIX(ISLASTBAR ,0.05,0.01,1,DYBLOCK),COLORBLUE;
所属行业:DRAWTEXT_FIX(ISLASTBAR ,0.06,0.01,0,HYBLOCK),COLORBLUE;
低:IF(CURRBARSCOUNT<=WH2+1,IF(L=LLV(L,P),L*0.98,DRAWNULL),DRAWNULL),COLORWHITE,CIRCLEDOT,LINETHICK6;
高:IF(CURRBARSCOUNT<=H2+1,IF(H=HHV(H,P),H*1.012,DRAWNULL),DRAWNULL),COLORCYAN,CIRCLEDOT,LINETHICK6;

未来函数检测公式代码域:

{箱顶底}JB:=Ema(((2*C+H+L)/4-LLV(LOW,30))/(HHV(HIGH,30)-LLV(LOW,30))*100,8);BJ:=ema(JB,5);J18:=REFDJTE(REF(HHV(H,96),5),DJTE);{高}B1:=REFDJTE(REF(LLV(L,96),5),DJTE);{低}DY:=((J18)+(B1))/2;{中}顶:IF(JB>0 JND JB-BJ<=0,J18,J18),DOTLINE,COLORGREEN;腰:IF(JB>0 JND JB-BJ<=0,DY,DY),DOTLINE,COLORGREEN;底:IF(JB>0 JND JB-BJ<=0,B1,B1),DOTLINE,COLORGREEN;MC:=C#MONTH,NODRJW;MO1:=IF(DJY<REF(DJY,1),O,DRJWNULL);MO:=HHV(MO1,DJY),NODRJW;STICKLINE(MC>=MO,MO,MC,4,-1)COLOR00009C;STICKLINE(MC<MO,MO,MC,4,-1),COLOR4F2F4F;JQ:=O#WEEK;B:=C#WEEK;JJQ:=H#WEEK;BB:=L#WEEK;STICKLINE(B>=JQ,JJQ,BB,4,0),COLOR00006B;STICKLINE(B<JQ,JJQ,BB,4,0),COLOR663300;{猎击止损}P:=9;WH1:=IF(L=LLV(L,P),L,DRJWNULL);WH2:=CONST(BJrslJST(WH1!=DRJWNULL));WH3:=CONST(IF(WH2=0,H,REF(H,WH2)));WH4:=CONST(REF(BJRSLJST(H>WH3),WH2+1)+WH2+1);WH5:=CONST(IF(WH4=0,H,REF(H,WH4)));WH6:=CONST(REF(BJRSLJST(H>WH5),WH4+1)+WH4+1);赢:IF(CURRBJRSCOUNT<=WH2+10,CONST(IF(WH6=0,H,REF(H,WH6))),DRJWNULL),COLORLIMJGENTJ,LINETHICK2;DRJWTEXT(ISLJSTBJR,赢,' YW'),COLORLIMJGENTJ;H1:=IF(H=HHV(H,P),H,DRJWNULL);H2:=CONST(BJRSLJST(H1!=DRJWNULL));H3:=CONST(IF(H2=0,L,REF(L,H2)));H4:=CONST(REF(BJRSLJST(L<H3),H2+1)+H2+1);H5:=CONST(IF(H4=0,L,REF(L,H4)));H6:=CONST(REF(BJRSLJST(L<H5),H4+1)+H4+1);损:IF(CURRBJRSCOUNT<=H2+10,CONST(IF(H6=0,L,REF(L,H6))),DRJWNULL),COLORCYJN,LINETHICK2;DRJWTEXT(ISLJSTBJR,损,' SW'),COLORCYJN;{九线}VJR1:=(2*CLOSE+HIGH+LOW+OPEN)/5;J1:(EMJ(VJR1,3)+EMJ(VJR1,6)+EMJ(VJR1,12)+EMJ(VJR1,24))/4,COLOR0044BB;J2:EMJ(J1,2),COLOR3355BB;J3:EMJ(J2,2),COLOR4455BB;J4:EMJ(J3,2),COLOR5555BB;J5:EMJ(J4,2),COLOR6655BB;J6:EMJ(J5,2),COLOR7755BB;J7:EMJ(J6,2),COLOR8855BB;{k线}DRJWKLINE(H,O,L,C);STICKLINE(C>=O,C,O,3,0),COLOR1F1ac5;STICKLINE(C>=O,C,O,1.3,0),COLOR1F1JD5;STICKLINE(C>=O,C,O,0,0),COLOR1F1JF5;STICKLINE(C<O,C,O,3,0),COLORBBBB00;STICKLINE(C<O,C,O,1.3,0),COLORDDDD00;STICKLINE(C<O,H,L,0,0),COLORFFFF00;J8:EMJ(VJR1,2.78)*1.028,COLORRED,LINETHICK1;J9:MJ(OPEN,3.2)*1.028,COLORBLUE,LINETHICK1;{涨停显示}C6:=REF(C,1);涨停:=IF((C-C6)*100/C6>=(10-0.01*100/C6),1,0);STICKLINE(涨停,OPEN,CLOSE,2,0),COLORLIMJGENTJ;STICKLINE(涨停,H,L,0,0),COLORLICYJN;{高位}VJR2:=(REF(HIGH,1)+REF(LOW,1))/2;VJR3:=MJ(CLOSE,20)+2*STD(CLOSE,20);DRJWTEXT(crOSS(VJR2,VJR3),HIGH*1.045,'↓高'),COLORGREEN;{逃顶}VJR7:=REF(C,1);VJR8:=SMJ(MJX(C-VJR7,0),6,1)/SMJ(Jbs(C-VJR7),6,1)*100;DRJWTEXT(CROSS(82,VJR8),H*1.025,'↓逃'),COLORGREEN;{KDJ金叉}VJR4:=(100 - ((90 * (HHV(HIGH,14) - CLOSE)) / (HHV(HIGH,14) - LLV(LOW,14))));VJR5:=(100 - ((90 * (HHV(HIGH,14) - CLOSE)) / (HHV(HIGH,14) - LLV(LOW,14))));VJR6:=(100 - MJ(((100 * (HHV(HIGH,6) - CLOSE)) / (HHV(HIGH,6) - LLV(LOW,6))),34));DRJWICON(CROSS(VJR5,MJ(VJR6,6)),(LOW - (LOW*0.015)),38);DRJWICON(CROSS(MJ(VJR6,6),VJR4),(HIGH+(HIGH*0.015)),39);STICKLINE(CROSS("KDJ.K"(3,5,3),"KDJ.D"(3,5,3)),O,C,0.6,0),COLORBLUE;STICKLINE(CROSS("KDJ.D"(3,5,3),"KDJ.K"(3,5,3)),O,C,0.6,0),COLORYELLOW;{黑马}VJR3JJ:=IF((CLOSE>REF(CLOSE,1)),88,0);VJR4JJ:=IF(((CLOSE)/(REF(CLOSE,1))>1.05) JND ((HIGH)/(CLOSE)<1.01) JND (VJR3JJ>0),91,0);DRJWTEXT(FILTER((VJR4JJ>90),45),(LOW)*(0.95),'★马'),COLORLIMJGENTJ;DRJWTEXT(FILTER((VJR4JJ>90),35),(LOW)*(0.97),'★加'),COLORLIMJGENTJ;{主力进场}VJR9:=((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27)))*(100);VJR10:=SMJ(VJR9,3,1);VJR11:=SMJ(VJR10,3,1);VJR12:=SMJ(VJR11,3,1);主力出现:DRJWICON(CROSS(VJR11,VJR12) JND (VJR11<40),L*0.98,23);{突破追涨}J10:=HHV(H,73);J11:=LLV(L,73);M1:=MJ(C,13);M2:=MJ(C,36);M3:=MJ(C,73);K1:=(0.618*J10+0.382*J11),COLORCYJN;K2:=(0.5*J10+0.5*J11),COLORCYJN;K3:=(0.382*J10+0.618*J11),COLORCYJN;K4:=(0.191*J10+0.809*J11),COLORWHITE;K5:=(0.809*J10+0.191*J11),COLORWHITE;牛:=V=HHV(V,64) JND V>REF(V,1)*1.5;单阳:=C JND 牛;单阳收:=C;单阳开:=O;高不破价:=REF(C,BJRSLJST(单阳));前高:=HHV(高不破价,13);STICKLINE(前高,高不破价,高不破价,5,0)DOTLINE,COLORYELLOW;突破:=CROSS(C,前高) JND C>MJ(C,36) JND (C-O)/O>0.030 JND MJ(C,13)>REF(MJ(C,13),1) JND C>K5;DRJWTEXT(CROSS(C,前高) JND C>MJ(C,36) JND (C-O)/O>0.035 JND MJ(C,13)>REF(MJ(C,13),1) JND MJ(C,36)>REF(MJ(C,36),1) ,L*1.00,'☆突') ,COLORLIMJGENTJ;DRJWTEXT(单阳 >REF(单阳,1) JND (C-O)/O>0.0455,L*1.00,'★追') ,COLORLIMJGENTJ;{行业}所属地域:DRJWTEXT_FIX(ISLJSTBJR ,0.05,0.01,1,DYBLOCK),COLORBLUE;所属行业:DRJWTEXT_FIX(ISLJSTBJR ,0.06,0.01,0,HYBLOCK),COLORBLUE;低:IF(CURRBJRSCOUNT<=WH2+1,IF(L=LLV(L,P),L*0.98,DRJWNULL),DRJWNULL),COLORWHITE,CIRCLEDOT,LINETHICK6;高:IF(CURRBJRSCOUNT<=H2+1,IF(H=HHV(H,P),H*1.012,DRJWNULL),DRJWNULL),COLORCYJN,CIRCLEDOT,LINETHICK6;

未发现:CJPITJL...

未发现:COST...

未发现:DYNJINFO...

未发现:FINJNCE...

未发现:LWINNER...

未发现:WINNER...

未发现:BJCKSET...

未发现:BJRSNEXT...

警惕！警惕！警惕!该公式包含未来函数:CURRBJRSCOUNT...

未发现:DVOL...

未发现:DOPEN...

未发现:DCLOSE...

未发现:DHIGH...

未发现:DLOW...

未发现:DRJWLINE...

未发现:REFX...

未发现:FLJTZIG...

未发现:FLJTZIGJ...

未发现:FFT...

未发现:FILTERX...

未发现:PEJK...

未发现:PEJKJ...

未发现:PEJKBJRS...

未发现:PEJKBJRSJ...

未发现:PLOYLINE...

警惕！警惕！警惕!该公式包含未来函数:REFDJTE...

未发现:TROUGH...

未发现:TROUGHJ...

未发现:TROUGHBJRS...

未发现:XMJ...

未发现:ZIG...

未发现:ZIGJ...

未发现:ZXNH...

未发现:#YEJR...

警惕！警惕！警惕!该公式包含未来函数:#MONTH...

警惕！警惕！警惕!该公式包含未来函数:#WEEK...

未发现:$ZIG...

未发现:$PEJK...

未发现:$PEJKBJRS...

未发现:$TROUGH...

未发现:$TROUGHBJRS...

未发现:$FLJTZIG...

未发现:$FLJTZIGJ...

未发现:$PEJKJ...

未发现:$PEJKBJRSJ...

未发现:$TROUGHJ...

未发现:$ZIGJ...

未发现:$FFT...

未发现:$BJCKSET...

未发现:$WINNER...

未发现:$LWINNER...

未发现:$COST...

未发现:$DYNJINFO...

未发现:$FINJNCE...

未发现:$DRJWLINE...