通达信筹码布林主图指标公式

M1:=5;
N:=20;
筹码顶:REFDATE(CONST(COST(99.999)),DATE),POINTDOT,COLORCYAN,LINETHICK6;
筹码底:REFDATE(CONST(COST(0.001)),DATE),DOTLINE,COLORYELLOW,LINETHICK2;
W50:=((筹码顶-筹码底)/2)+筹码底,DOTLINE,COLORYELLOW,LINETHICK1;
W:=(筹码顶-筹码底)/10;
W60:=(W*6)+筹码底,DOTLINE,COLORYELLOW,LINETHICK1;
W90:=(W*9)+筹码底,DOTLINE,COLORYELLOW,LINETHICK1;
W100:=筹码顶,DOTLINE,COLORYELLOW,LINETHICK1;
W110:=(W*11)+筹码底,DOTLINE,COLORYELLOW,LINETHICK1;
W80:=(W*8)+筹码底,DOTLINE,COLORYELLOW,LINETHICK1;
W70:=(W*7)+筹码底,DOTLINE,COLORYELLOW,LINETHICK1;
W30:=(W*3)+筹码底,DOTLINE,COLORYELLOW,LINETHICK1;
W40:=(W*4)+筹码底,DOTLINE,COLORYELLOW,LINETHICK1;
W20:=(W*2)+筹码底,DOTLINE,COLORYELLOW,LINETHICK1;
W10:=(W*1)+筹码底,DOTLINE,COLORYELLOW,LINETHICK1;
WA10:=(W*-1)+筹码底,DOTLINE,COLORYELLOW,LINETHICK1;
W00:=筹码底,DOTLINE,COLORYELLOW,LINETHICK1;
DRAWTEXT(CURRBARSCOUNT=1,W90*0.998,' 90%'),COLORWHITE;
DRAWTEXT(CURRBARSCOUNT=1,W100*0.998,' 100%'),COLORWHITE;
DRAWTEXT(CURRBARSCOUNT=1,W80*0.998,' 80%'),COLORWHITE;
DRAWTEXT(CURRBARSCOUNT=1,W70*0.998,' 70%'),COLORWHITE;
DRAWTEXT(CURRBARSCOUNT=1,W60*0.998,' 60%'),COLORWHITE;
DRAWTEXT(CURRBARSCOUNT=1,W50*0.998,' 50%'),COLORWHITE;
DRAWTEXT(CURRBARSCOUNT=1,W40*0.998,' 40%'),COLORWHITE;
DRAWTEXT(CURRBARSCOUNT=1,W30*0.998,' 30%'),COLORWHITE;
DRAWTEXT(CURRBARSCOUNT=1,W20*0.998,' 20%'),COLORWHITE;
DRAWTEXT(CURRBARSCOUNT=1,W10*0.998,' 10%'),COLORWHITE;
DRAWTEXT(CURRBARSCOUNT=1,W00*0.998,' 0'),COLORWHITE;
VAR2:=5;
VAR3:=3;
VAR4:=(EMA(CLOSE,5)*7+EMA(CLOSE,10)*3)/10;
VAR5:=IF(YEAR>=2025,0,1);
VAR6:=EMA(EMA(LOW,21)+6.8*STD(LOW,2),55);
VAR7:=EMA(CLOSE/VAR6*(1.88*CLOSE+LOW+OPEN)/2.75,3);
VAR8:=(VAR7-VAR6)/VAR6/2;
VAR9:=EMA(VAR7-VAR8*VAR7,5)*VAR5;
VAR10:=EMA(CLOSE,300)-3*STD(CLOSE,300);
漏斗下:IF(VAR4>VAR9,VAR4,VAR9)*VAR5,COLORYELLOW,LINETHICK2;
漏斗上:IF(VAR9<VAR4 AND VAR9<CLOSE*0.15,EMA(CLOSE,300)-3*STD(CLOSE,300),VAR9),COLORYELLOW,LINETHICK2;
漏:IF(VAR9>VAR4,漏斗上,DRAWNULL),COLORMAGENTA,LINETHICK2;
开口XG:=BArslASTCOUNT(漏斗下!=漏斗上)=1,NODRAW;
生命线:IF(CURRBARSCOUNT<13,CONST(COST(67.5)),DRAWNULL),COLORWHITE,DOTLINE;
boll:MA(CLOSE,N),POINTDOT,LINETHICK5,COLORYELLOW;
UB:BOLL+2*STD(CLOSE,N),LINETHICK2,COLORRED;
LB:BOLL-2*STD(CLOSE,N),LINETHICK2,COLORGREEN;
MAA05:MA(CLOSE,M1),COLORWHITE,LINETHICK2;
显示仪表盘1:=1;
总涨幅周期:=350;
范围高A:=REFDATE(HHV(H,120),DATE)*1.05;
范围低A:=REFDATE(LLV(L,120),DATE)*0.95;
MA5:MA(C,5),COLORCYAN,LINETHICK2,NODRAW,COLORWHITE;
MA24:MA(C,24),COLORGREEN,LINETHICK2,NODRAW,COLORWHITE;
MA72:MA(C,72),COLORRED,LINETHICK2,NODRAW,COLORWHITE;
MA200:IF((MA(C,200)<=范围高A AND MA(C,200)>=范围低A) OR C>=MA(C,200),MA(C,200),DRAWNULL),COLORBLUE,LINETHICK2,NODRAW,COLORWHITE;
{=======================仪表盘=========================}
主升浪:=ISLASTBAR AND MA5>MA24 AND MA24>MA72 AND MA72>IF(MA200=DRAWNULL,0,MA200);
主浪回调:=ISLASTBAR AND MA24>MA5 AND MA5>MA72 AND MA72>IF(MA200=DRAWNULL,0,MA200);
主浪深调:=ISLASTBAR AND MA24>MA72 AND MA72>MA5 AND MA5>IF(MA200=DRAWNULL,0,MA200);
初升浪:=ISLASTBAR AND IF(MA200=DRAWNULL,300,MA200)>MAX(MA24,MA72) AND MA5>MA24 AND MA24>MA72;
底部反弹:=ISLASTBAR AND IF(MA200=DRAWNULL,300,MA200)>MA72 AND MA72>MA24 AND MA5>MA24;
探底阶段:=ISLASTBAR AND IF(MA200=DRAWNULL,300,MA200)>MA72 AND MA72>MA24 AND MA24>MA5;
观望:=ISLASTBAR AND IF(MA200=DRAWNULL,MA24>MA72 AND C<MA72,MA72>MA200 AND C<MA200);
有牛:=ISLASTBAR AND IF(MA200=DRAWNULL,MA24<MA72 AND C>=MA72,MA72<MA200 AND C>=MA200);
放弃:=ISLASTBAR AND IF(MA200=DRAWNULL,MA24<MA72 AND C<MA72,MA72<MA200 AND C<MA200);
DRAWGBK(显示仪表盘1=1 AND 主升浪=0 AND 主浪回调=0 AND 主浪深调=0 AND 初升浪=0 AND 底部反弹=0 AND 探底阶段=0 AND 观望=0 AND 有牛=0 AND 放弃=0,0,0,0,'观望',0);
DRAWGBK(显示仪表盘1=1 AND 主升浪,0,0,0,'主升浪',0);
DRAWGBK(显示仪表盘1=1 AND 主浪回调,0,0,0,'主浪回调',0);
DRAWGBK(显示仪表盘1=1 AND 主浪深调,0,0,0,'主浪深调',0);
DRAWGBK(显示仪表盘1=1 AND 初升浪,0,0,0,'初升浪',0);
DRAWGBK(显示仪表盘1=1 AND 底部反弹,0,0,0,'底部反弹',0);
DRAWGBK(显示仪表盘1=1 AND 探底阶段,0,0,0,'探底阶段',0);
DRAWGBK(显示仪表盘1=1 AND 观望,0,0,0,'观望',0);
DRAWGBK(显示仪表盘1=1 AND 有牛,0,0,0,'有牛',0);
DRAWGBK(显示仪表盘1=1 AND 放弃,0,0,0,'放弃',0);
{===================彩色k线========================}
STICKLINE(C>O,C,O,3,0),COLOR0000AA;
STICKLINE(C>O,C,O,2.5,0),COLOR0000BB;
STICKLINE(C>O,C,O,1.5,0),COLOR0000CC;
STICKLINE(C>O,C,O,1,0),COLOR0000EE;
STICKLINE(C>O,H,L,0,0),COLOR0000FF;
STICKLINE(C<O,C,O,3,0),COLOR7B7B00;
STICKLINE(C<O,C,O,2.5,0),COLOR909000;
STICKLINE(C<O,C,O,1.5,0),COLORA8A800;
STICKLINE(C<O,C,O,1,0),COLORCECE00;
STICKLINE(C<O,H,L,0,0),COLORFFFF00;
STICKLINE(C=O,C,O,3,0),COLORWHITE;
STICKLINE(C=O,H,L,0,0),COLORWHITE;
{======================================================}
高点位:=REFDATE(HHV(H,总涨幅周期),DATE);
低点位:=REFDATE(LLV(L,总涨幅周期),DATE);
低位价:=REF(L,BARSLAST(低点位=L)),COLORGREEN;
高位价:=REF(H,BARSLAST(高点位=H)),COLORRED,NODRAW;
曾最大涨幅:=(高位价-低位价)/低位价*100;
当前涨幅:=(C-低位价)/低位价*100;
ZFA:=CON2STR(CONST(曾最大涨幅),2);
ZFB:=CON2STR(CONST(当前涨幅),2);
ZFC:=STRCAT('【曾最大涨幅】：',ZFA);
ZFD:=STRCAT(ZFC,'％');
ZFE:=STRCAT(ZFD,'【当前总涨幅】：');
ZFF:=STRCAT(ZFE,ZFB);
ZFG:=STRCAT(ZFF,'％');
DRAWTEXT_FIX(ISLASTBAR,0,1,0,'▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇'),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,0,1,0,ZFG),COLORYELLOW;
{========================额外==========================}
Z1:=STRCAT(DYBLOCK,' ');
Z2:=STRCAT(Z1,HYBLOCK);
Z3:=STRCAT(Z2,' ');
Z4:=STRCAT(Z3,GNBLOCK);
Z5:=STRCAT(Z4,' ');
Z6:=STRCAT(Z5,FGBLOCK);{
DRAWTEXT_FIX(ISLASTBAR,0.01,0.012,0,STRCAT(Z6,ZHBLOCK)),COLORCYAN;
DRAWTEXT_FIX(1,0,0.075,0,STRCAT('【自定板块】：',ZDBLOCK)),COLORYELLOW;}
{======================================================}
DRAwrECTREL(IF(CODELIKE('999999') OR CODELIKE('399001'),0,760),IF(CODELIKE('999999') OR CODELIKE('399001'),0,12),IF(CODELIKE('999999') OR CODELIKE('399001'),0,890),IF(CODELIKE('999999') OR CODELIKE('399001'),0,70),RGB(255,0,0));
DRAWRECTREL(IF(CODELIKE('999999') OR CODELIKE('399001'),0,760),IF(CODELIKE('999999') OR CODELIKE('399001'),0,12),IF(CODELIKE('999999') OR CODELIKE('399001'),0,890),IF(CODELIKE('999999') OR CODELIKE('399001'),0,70),IF(CONST(DYNAINFO(51))>=1,RGB(0,255,0),RGB(255,0,0)));
NNN1:=CON2STR(CONST(DYNAINFO(51)),2);
NNN2:=STRCAT('【 内外比：',NNN1);
NNN3:=STRCAT(NNN2,' 】');
DRAWTEXT_FIX(IF(CODELIKE('999999') OR CODELIKE('399001'),DRAWNULL,1),0.76,0.015,0,NNN3),COLORYELLOW;
DRAWTEXT_FIX(IF(CODELIKE('999999') OR CODELIKE('399001'),DRAWNULL,CONST(DYNAINFO(51))>=1),0.76,0.015,0,NNN3),COLORBLacK;
{=======================均线解盘===============================}
DRAWRECTREL(0,IF(显示仪表盘1=0,135,0),IF(显示仪表盘1=0,288,0),IF(显示仪表盘1=0,630,0),RGB(0,0,255));
DRAWTEXT_FIX(显示仪表盘1=0,0.08,0.16,0,'【 均线解盘 】'),COLORWHITE;
DRAWTEXT_FIX(显示仪表盘1=0,0,0.23,0,'主升浪： 5＞24＞72＞200 '),COLORWHITE;
DRAWTEXT_FIX(显示仪表盘1=0 AND ISLASTBAR AND MA5>MA24 AND MA24>MA72 AND MA72>MA200,0.238,0.23,0,'≡★≡'),COLORRED;
DRAWTEXT_FIX(显示仪表盘1=0,0,0.285,0,'主浪回调： 24＞5＞72＞200 '),COLORWHITE;
DRAWTEXT_FIX(显示仪表盘1=0 AND ISLASTBAR AND MA24>MA5 AND MA5>MA72 AND MA72>MA200,0.238,0.285,0,'≡★≡'),COLORRED;
DRAWTEXT_FIX(显示仪表盘1=0,0,0.34,0,'主浪深调： 24＞72＞5＞200 '),COLORWHITE;
DRAWTEXT_FIX(显示仪表盘1=0 AND ISLASTBAR AND MA24>MA72 AND MA72>MA5 AND MA5>MA200,0.238,0.34,0,'≡★≡'),COLORMAGENTA;
DRAWTEXT_FIX(显示仪表盘1=0,0,0.395,0,'初升浪： 200＞5＞24＞72'),COLORWHITE;
DRAWTEXT_FIX(显示仪表盘1=0 AND ISLASTBAR AND MA200>MAX(MA24,MA72) AND MA5>MA24 AND MA24>MA72,0.238,0.395,0,'≡★≡'),COLOR0080FF;
DRAWTEXT_FIX(显示仪表盘1=0,0,0.45,0,'底部反弹： 200＞72＞5＞24'),COLORWHITE;
DRAWTEXT_FIX(显示仪表盘1=0 AND ISLASTBAR AND MA200>MA72 AND MA72>MA24 AND MA5>MA24,0.238,0.45,0,'≡★≡'),COLORYELLOW;
DRAWTEXT_FIX(显示仪表盘1=0,0,0.51,0,'探底阶段： 200＞72＞24＞5'),COLORWHITE;
DRAWTEXT_FIX(显示仪表盘1=0 AND ISLASTBAR AND MA200>MA72 AND MA72>MA24 AND MA24>MA5,0.238,0.51,0,'≡★≡'),COLORGREEN;
DRAWTEXT_FIX(显示仪表盘1=0 AND ISLASTBAR AND MA72>MA200 AND C>=MA200,0,0.565,0,'▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇'),COLORRED;
DRAWTEXT_FIX(显示仪表盘1=0 AND ISLASTBAR AND MA72>MA200 AND C>=MA200,0,0.565,0,'牛市行情： 72＞200 C＞200 牛市 ---'),COLORYELLOW;
DRAWTEXT_FIX(显示仪表盘1=0 AND ISLASTBAR AND MA72>MA200 AND C<MA200,0,0.565,0,'未知行情： 72＞200 C＜200 观望 ---'),COLORWHITE;
DRAWTEXT_FIX(显示仪表盘1=0 AND ISLASTBAR AND MA72<MA200 AND C>=MA200,0,0.565,0,'▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇'),COLORMAGENTA;
DRAWTEXT_FIX(显示仪表盘1=0 AND ISLASTBAR AND MA72<MA200 AND C>=MA200,0,0.565,0,'初入牛市： 72＜200 C＞200 牛到 ---'),COLORWHITE;
DRAWTEXT_FIX(显示仪表盘1=0 AND ISLASTBAR AND MA72<MA200 AND C<MA200,0,0.565,0,'▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇'),COLORGREEN;
DRAWTEXT_FIX(显示仪表盘1=0 AND ISLASTBAR AND MA72<MA200 AND C<MA200,0,0.565,0,'熊市行情： 72＜200 C＜200 放弃 ---'),COLORBLACK;
V5:=MA(V,5);
V10:=MA(V,10);
D1:=V>REF(HHV(V,2),1) AND RANGE(V5,V10,V) AND UPNDAY(V5,2) AND UPNDAY(V10,2);
D2:=H>REF(HHV(H,2),1);
KMAX:=MAX(C,O);
D3:=KMAX>REF(HHV(KMAX,2),1);
DA:=D1 AND D2 AND D3;
P1:=BARSLAST(DA=1);
P2:=REF(REF(H,1),P1);
DB:=IF(DA,0,IF(C<P2,1,0));{堆量确定};
LJ:=REF(HHV(H,P1+1),BARSLAST(DB));
NOTEXT:=LJ;
DRAWICON(IF(C>LJ,IF(REF(KMAX<LJ,1),1,0),0),L,18);
AAA:=(3*C+H+L+O)/6;
VAR1X:=(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,LINETHICK2,COLORRED;
VAR2X:=(HHV(VAR1X,2)+HHV(VAR1X,4)+HHV(VAR1X,8))/3;
BB:=(HHV(VAR2X,2)+HHV(VAR2X,4)+HHV(VAR2,8))/3,COLORYELLOW,LINETHICK4;
VAR6X:=(LLV(VAR1X,2)+LLV(VAR1X,4)+LLV(VAR1X,8))/3;
DRAWTEXT(REF(VAR6X,1)=REF(VAR1X,1) AND VAR6X<VAR1X,L*0.98,'↖加仓'),COLORYELLOW;
LC:=REF(CLOSE,1);
LC1:=REF(CLOSE,1);
rsi1:=((SMA(MAX(CLOSE-LC,0),6,1))/(SMA(Abs(CLOSE-LC),6,1)))*(100);
DRAWTEXT(crOSS(84,RSI),HIGH,'→ 逃顶 '),COLORBLUE,LINETHICK2;
DRAWTEXT(CROSS(RSI,11),LOW*0.95,'→ 低吸 '),COLORWHITE;
DIF1 := EMA(CLOSE,12) - EMA(CLOSE,26);
DEA1 := EMA(DIF1,9);
macd := 2*(DIF1-DEA1), COLORSTICK;
DIF:=DIF1,COLOR33FF33;
DEA:=DEA1,COLORYELLOW;
强:=IF(DIF1>=DEA1,DIF1,DRAWNULL),COLORRED,LINETHICK2;
DRAWTEXT(CROSS(DIF,DEA),L,' 买'),COLORYELLOW,LINETHICK9;
DRAWICON(CROSS(DIF,DEA),MAA05,9);
{DRAWTEXT(CROSS(DEA/DIF,0.2),H*1.02,' 卖'), COLOR00FF00,LINETHICK9;
DRAWICON(CROSS(DEA/DIF,0.2),H*1.03,2);}
{弱转强:CROSS(cci,-200) AND CCI>REF(CCI,1),COLOR00DFDF,NODRAW;}
DRAWICON(CROSS(CCI,100) AND CCI>REF(CCI,1),L*0.98,1),COLOR00DFDF;
{强转弱:CROSS(200,CCI) AND CCI<REF(CCI,1),COLOR00CA00,NODRAW;}
DRAWICON(CROSS(200,CCI) AND CCI<REF(CCI,1),H*1.02,2),COLOR00CA00;