|
以下是通达信归零量柱幅图源码副图（无源码的请下载附件导入）
归零量柱幅图
VOLUME:VOL,VOLSTICK;
|:COUNT(CLOSE>REF(CLOSE,1),2)=2 AND COUNT(VOL<REF(VOL,1),2)=2;
XA_1:=DYNAINFO(8)>0;
VO:VOL=LLV(VOL,100) AND XA_1;
百日地量柱:XA_1 AND VO,COLORCYAN;
STICKLINE(百日地量柱,0,VOL,2,0),COLORCYAN;
{DRAWTEXT(百日地量柱,VOL+3000,'百地'),COLORCYAN;}
XA_2:=VOL>REF(VOL,1)*1.9;
XA_3:=VOL<REF(LLV(VOL,13),1);
XA_4:=VOL<REF(LLV(VOL,55),1);
STICKLINE(XA_2,0,VOL,2,0),COLORRED;
倍量柱:XA_2,COLORRED;
{DRAWTEXT(倍量柱,VOL+3000,'倍'),COLORRED;}
XA_5:=(3*CLOSE+HIGH+LOW+OPEN)/6;
XA_6:=(8*XA_5+7*REF(XA_5,1)+6*REF(XA_5,2)+5*REF(XA_5,3)+4*REF(XA_5,4)+3*REF(XA_5,5)+2*REF(XA_5,6)+REF(XA_5,8))/36;
XA_7:=VOL=HHV(VOL,10) AND VOL>2*REF(VOL,1) AND CLOSE>XA_6 AND CLOSE>OPEN;
XA_8:=VOL>REF(VOL,1)*0.98 AND VOL<REF(VOL,1)*1.02;
STICKLINE(XA_8,0,VOL,2,0),COLORMAGENTA;
{DRAWTEXT(XA_8,VOL+3000,'平'),COLORMAGENTA;}
平量柱:XA_8,COLORMAGENTA;
缩倍:VOL<=REF(VOL,1)*0.505,NODRAW,COLORBLUE;
STICKLINE(缩倍,0,VOL,2,0),COLORBLUE;
XA_9:=AMOUNT/VOL/100;
STICKLINE(CLOSE<OPEN AND XA_9>REF(CLOSE,1),0,VOL,2.5,0),COLORYELLOW;
XA_10:=(VOL+OPEN)/2;
STICKLINE(CLOSE>OPEN,XA_10,XA_10,(-1),0),COLORBLACK;
STICKLINE(CLOSE<OPEN,XA_10,XA_10,(-1),0),COLORWHITE;
715466071.jpg
| 
