通達信黑馬量柱指標公式

　M1:=3;
{預估成交量}
TOTAL:=IF(PERIOD=1,5,IF(PERIOD=2,15,IF(PERIOD=3,30,IF(PERIOD=4,60,IF(PERIOD=5,TOTALFZNUM,1)))));
MTIME:=MOD(FROMOPEN,TOTAL);
CTIME:=IF(MTIME<0.5,TOTAL,MTIME);
預估成交量:IF((CURRBARSCOUNT=1 AND DYNAINFO(8)>1),vol*(TOTAL+3)/(CTIME+3),DRAWNULL),NODRAW;
stIckLINE((CURRBARSCOUNT=1 AND DYNAINFO(8)>1),預估成交量,0,-1,-1),COLOR00C0C0;
VOL,VOLSTICK;
T:=DYNAINFO(8)>0;
VO:=VOL=LLV(VOL,100) AND T;
地量柱:T AND VO,COLORBLUE;
STICKLINE(地量柱,0,V,1,0),COLORBLUE;
DRAWTEXT(地量柱,VOL+3000,'地'),COLORBLUE;
AMOV:=VOL*(OPEN+CLOSE)/2;
AMV1:SUM(AMOV,M1)/SUM(VOL,M1)COLORWHITE;
梯量柱:VOL>REF(VOL,1) AND REF(VOL,1)>REF(VOL,2) AND AMV1>REF(AMV1,1) AND C/REF(C,1)>1.01 AND CLOSE>OPEN,COLORYELLOW;
DRAWTEXT(梯量柱,VOL*0.1,'↖梯柱'),COLORYELLOW;
BLZ:=VOL>REF(V,1)*1.9;
BLZ1:=VOL<REF(LLV(VOL,13),1);
BLZ2:=VOL<REF(LLV(VOL,55),1);
倍量柱:BLZ,COLORRED;
DRAWTEXT(倍量柱,VOL*0.9,'倍'),COLORYELLOW;
二倍量:=VOL>=REF(VOL,1)*3 AND VOL<REF(VOL,1)*4;
STICKLINE(二倍量,0,VOL,0.1,0),COLORYELLOW;
DRAWTEXT(二倍量,VOL,'二倍'),COLORmaGENTA;
四倍量:=VOL>=REF(VOL,1)*4;
STICKLINE(四倍量,0,VOL,0.1,0),COLORYELLOW;
DRAWTEXT(四倍量,VOL,'四倍量以上'),COLORMAGENTA;
{量能}
QJJ:=V/((H-L)*2-Abs(C-O));
HSL:=IF(C!=O,QJJ*(C-O),0)/100;
LNGJ:=HSL*0.5+REF(HSL,1)*0.3+REF(HSL,2)*0.2;
LLJX:=EMA(LNGJ,3);
B:=0,POINTDOT,COLORWHITE;
B1:=SUM(LLJX,1),COLORCYAN;
B2:=SUM(LLJX,2),COLORCYAN;
B3:=SUM(LLJX,3),COLORCYAN;
B4:=SUM(LLJX,4),COLORCYAN;
B5:=SUM(LLJX,5),COLORCYAN;
B6:=SUM(LLJX,6),COLORCYAN;
B7:=SUM(LLJX,7),COLORCYAN;
B8:=SUM(LLJX,8),COLORCYAN;
B9:=SUM(LLJX,9),COLORCYAN;
B10:=SUM(LLJX,10),COLORCYAN;
RSV:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=3*K-2*D;
XG0:=B1 AND B2 AND B3 AND B4 AND B5 AND B6 AND B7 AND B8 AND B9 AND B10;
XG1:=COUNT(CROSS(MA(C,5),MA(C,20)),3)=1;
XG2:=C>PEAK(1,5,1) AND REF(C,1)<PEAK(1,5,1);
XG3:=V>REF(V,1)*1.9 AND C>O AND J<90 AND K<80;
XG4:=COUNT(V>REF(V,1)*1.9 AND C>REF(C,1)*1.04,3)=1 AND C<REF(C,1)*0.96 AND V<REF(V,1)*0.6;
XG:=(XG0 OR XG1 OR XG2) AND XG3;
HH:=HHV(B10,120);
DRAWTEXT(XG AND XG0,VOL*1.15,'量'),COLORRED;
STICKLINE(XG AND XG0,0,V*2.5/3,2,0)COLORRED;
量縮漲:COUNT(CLOSE>REF(CLOSE,1),2)=2 AND COUNT(VOL<REF(VOL,1),2)=2,COLORGREEN;
STICKLINE(量縮漲,0,V,1,0),COLORGREEN;
{DRAWTEXT(量縮漲,VOL*1.05,'量縮漲'),COLORGREEN; }
HJZ:=(3*C+H+L+O)/6;
HJZ2:=(8*HJZ+7*REF(HJZ,1)+6*REF(HJZ,2)+5*REF(HJZ,3)+4*REF(HJZ,4)+3*REF(HJZ,5)+2*REF(HJZ,6)+REF(HJZ,8))/36;
HJZ3:=VOL=HHV(VOL,10) AND VOL>2*REF(VOL,1) AND CLOSE>HJZ2 AND C>O;
黑馬黃金柱:FILTER(HJZ3,5),COLORYELLOW,NODRAW;
{DRAWTEXT(黑馬黃金柱,V*1.25,'◆黃'),COLORYELLOW;}
STICKLINE(黑馬黃金柱,0,V,3.3,1),COLORRED;
STICKLINE(黑馬黃金柱,0,V*2.5/3,2,0)COLORRED;
STICKLINE(倍量柱,0,VOL,0.1,0),COLORYELLOW;
{DRAWLINE(V<= LLV(V,20),VOL,VOL>=HHV(V,20) ,HHV(V,3),0),,COLORRED,LINETHICK2;
DRAWLINE(V>=HHV(V,20),V,V<=LLV(V,3),HHV(V,3),0),COLORCYAN,LINETHICK2;};