通达信经典版 通达信博尔顿量化公式源码

GG:=AMOUNT/VOL;
M1:=((GG-REF(GG,1))/REF(GG,1))*((GG-REF(GG,1))/REF(GG,1))*10000;
M2:=((REF(GG,1)-GG)/GG)*((REF(GG,1)-GG)/GG)*10000;
CCB:=SUM(IF(GG>REF(GG,1),(10000*VOL/FINANCE(7))*M1,0),1);
CCS:=SUM(IF(GG<REF(GG,1),(10000*VOL/FINANCE(7))*M2,0),1);
B1:=(CCB+CCS);
B2:=MAX(REF(B1,1),REF(B1,2));
B0:=MAX(B2,REF(B1,3));
B3:=MAX(B0,REF(B1,4));
B4:=MAX(B3,REF(B1,5));
B5:=MAX(B4,REF(B1,6));
B6:=MAX(B5,REF(B1,7));
B7:=MAX(B6,REF(B1,8));
B8:=MAX(B7,REF(B1,9));
B9:=MAX(B8,REF(B1,10));
B10:=MAX(B9,REF(B1,11));
B11:=MAX(B10,REF(B1,12));
B12:=MAX(B11,REF(B1,13));
B13:=MAX(B12,REF(B1,14));
B14:=MAX(B13,REF(B1,15));
B15:=MAX(B14,REF(B1,16));
B16:=MAX(B15,REF(B1,17));
B:=CCB>1.2*B0&&REF(CCB,1)<0.8*REF(B0,1)&&REF(CCB,2)<0.8*REF(B0,2)&&
REF(CCB,3)<0.8*REF(B0,3)&&REF(CCB,4)<0.8*REF(B0,4);
动能上突破值:=CCB/B0;
动能下突破值:=CCS/B0;
上升动能:=CCB;
下降动能:=CCS;

TT:=GG;
主导动能:TT/EMA(TT,4)-1,COLORSTICK;
FF:=主导动能;
STICKLINE(FF<REF(FF,1)AND FF>0,0,FF,4,0),COLOR33CFDD;
STICKLINE(FF<REF(FF,1)AND FF>0,0,FF,3,0),COLOR33DFDD;
STICKLINE(FF<REF(FF,1)AND FF>0,0,FF,2,0),COLOR33EFDD;
STICKLINE(FF<REF(FF,1)AND FF>0,0,FF,1,0),COLOR33FFDD;
STICKLINE(FF<REF(FF,1)AND FF<0,0,FF,4,0),COLOR00CC00;
STICKLINE(FF<REF(FF,1)AND FF<0,0,FF,3,0),COLOR00DD00;
STICKLINE(FF<REF(FF,1)AND FF<0,0,FF,2,0),COLOR00EE00;
STICKLINE(FF<REF(FF,1)AND FF<0,0,FF,1,0),COLOR00FF00;
STICKLINE(FF>REF(FF,1)AND FF<0,0,FF,4,0),COLORFF9900;
STICKLINE(FF>REF(FF,1)AND FF<0,0,FF,3,0),COLORFFAA00;
STICKLINE(FF>REF(FF,1)AND FF<0,0,FF,2,0),COLORFFBB00;
STICKLINE(FF>REF(FF,1)AND FF<0,0,FF,1,0),COLORFFCC00;
STICKLINE(FF>REF(FF,1)AND FF>0,0,FF,4,0),COLOR0000CC;
STICKLINE(FF>REF(FF,1)AND FF>0,0,FF,3,0),COLOR0000DD;
STICKLINE(FF>REF(FF,1)AND FF>0,0,FF,2,0),COLOR0000EE;
STICKLINE(FF>REF(FF,1)AND FF>0,0,FF,1,0),COLOR0000FF;