通达信改进了的博尔顿量化公式

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  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(FF0,0,FF,4,0),COLOR33CFDD;
 STICKLINE(FF0,0,FF,3,0),COLOR33DFDD;
 STICKLINE(FF0,0,FF,2,0),COLOR33EFDD;
 STICKLINE(FF0,0,FF,1,0),COLOR33FFDD;
 STICKLINE(FF  STICKLINE(FF  STICKLINE(FF  STICKLINE(FF  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;