以下是通达信版的，请改成同花顺的，谢谢老师

VOLUME:VOL,VOLSTICK;
|:COUNT(CLOSE>REF(CLOSE,1),2)=2 AND COUNT(VOL<REF(VOL,1),2)=2;
STICKLINE(|,0,V,1,0),COLORGREEN;
DRAWTEXT(|,VOL+3000,'降'),COLORGREEN;
T:=DYNAINFO(8)>0;
VO:=VOL=LLV(VOL,60) AND T;
VP:=VOL=HHV(VOL,60) AND T;
地量柱:T AND VO,COLORBLUE;
STICKLINE(地量柱,0,V,1,0),COLORBLUE;
DRAWTEXT(地量柱,VOL+3000,'地'),COLORBLUE;
高量柱:T AND VP,COLORMAGENTA;
STICKLINE(高量柱,0,V,1,0),COLORMAGENTA;
DRAWTEXT(高量柱,VOL+3000,'高'),COLORMAGENTA;
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,1,0),COLORYELLOW;
倍量柱:BLZ,COLORYELLOW;
DRAWTEXT(倍量柱,VOL+3000,'倍'),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,1,0),COLORRED;
DRAWTEXT(黄金柱,VOL+15000,'黄'),COLORRED;
价涨量缩:|,COLORGREEN;
FLZ:=V>REF(V,1)*0.98 AND V<REF(V,1)*1.02,LINETHICK0;
STICKLINE(FLZ,0,V,1,0),COLORMAGENTA;
DRAWTEXT(FLZ,VOL+3000,'平'),COLORMAGENTA;
平量柱:FLZ,COLORMAGENTA;

 

VOLUME:VOL;//线不输出
STICKLINE(C>=O,0,V,9,1),color0000ff;
STICKLINE(C<O,0,V,9,1),colorgreen;
dd:COUNT(CLOSE>REF(CLOSE,1),2)=2 AND COUNT(VOL<REF(VOL,1),2)=2;
STICKLINE(dd,0,V,7,0),colorgreen;
DRAWTEXT(dd,VOL+3000,'降'),colorgreen;
T:=V>0;
VO:=VOL=LLV(VOL,60) AND T;
VP:=VOL=HHV(VOL,60) AND T;
地量柱:T AND VO,colorblue;
STICKLINE(地量柱,0,V,7,0),colorblue;
DRAWTEXT(地量柱,VOL+3000,'地'),colorblue;
高量柱:T AND VP,colormagenta;
STICKLINE(高量柱,0,V,7,0),colormagenta;
DRAWTEXT(高量柱,VOL+3000,'高'),colormagenta;
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+3000,'倍'),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+15000,'黄'),colorred;
价涨量缩:dd,colorgreen;
FLZ:=V>REF(V,1)*0.98 AND V<REF(V,1)*1.02,LINETHICK0;
STICKLINE(FLZ,0,V,7,0),colormagenta;
DRAWTEXT(FLZ,VOL+3000,'平'),colormagenta;
平量柱:FLZ,colormagenta;