楼主上述公式有语法错误,并且柱体偏窄,本人给出改进版,公式源码如下:
VOLUME:VOL,VOLSTICK;
I:COUNT(CLOSE>REF(CLOSE,1),2)=2 AND COUNT(VOL<REF(VOL,1),2)=2;
STICKLINE(I,0,V,7,0),COLORGREEN;
DRAWTEXT(I,VOL*1.3,'降'),COLORGREEN;
T:=DYNAINFO(8)>0;
VO:VOL=LLV(VOL,100) AND T;
地量柱:T AND VO,COLORBLUE;
STICKLINE(地量柱,0,V,7,0),COLORBLUE;
DRAWTEXT(地量柱,VOL*1.3,'地'),COLORBLUE;
BLZ:=VOL>REF(V,1)*1.9;
BLZ1:=VOL<REF(LLV(VOL,13),1);
BLZ2:=VOL<REF(LLV(VOL,55),1);
STICKLINE(BLZ,0,V,7,0),COLORYELLOW;
倍量柱:BLZ,COLORYELLOW;
DRAWTEXT(倍量柱,VOL*1.3,'倍'),COLORYELLOW;
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),STICK,COLORRED,LINETHICK4;
STICKLINE(黄金柱,0,V,7,0),COLORRED;
DRAWTEXT(黄金柱,VOL*1.2,'黄'),COLORRED;
价涨量缩:I,COLORGREEN;
FLZ:=V>REF(V,1)*0.98 AND V<REF(V,1)*1.02;
STICKLINE(FLZ,0,V,7,0),COLORMAGENTA;
DRAWTEXT(FLZ,VOL*1.3,'平'),COLORMAGENTA;
平量柱:FLZ,COLORMAGENTA; |