HSL:=100*VOL/CAPITAL;
DD:MOD(SUM(HSL,BARSSINCE(C>0)),100),COLORWHITE,NODRAW;
SS:=DD<REF(DD,1);
TS:BARSLAST(SS),NODRAW;
最高价:=IF(SS,MAX(REF(HHV(H,TS),1),MAX(REF(REF(H,TS),1),H)),0);
最低价:=IF(SS,MIN(REF(LLV(L,TS),1),MAX(REF(REF(L,TS),1),L)),0);
G:=IF(SS,REFX(REFX(最高价,BARSNEXT(SS)),1),0);
HG:=IF(SS AND IF(SS,REFX(REFX(C,BARSNEXT(SS)),1),0)>C,G,DRAWNULL);
LG:=IF(SS AND IF(SS,REFX(REFX(C,BARSNEXT(SS)),1),0)<C,G,DRAWNULL);
D:=IF(SS,REFX(REFX(最低价,BARSNEXT(SS)),1),0);
HHH:=DRAWLINE(SS,HG,SS,REF(REF(HG,TS),1),0);
LLH:=DRAWLINE(SS,LG,SS,REF(REF(LG,TS),1),0);
Y:=DRAWLINE(SS,D,SS,REF(REF(D,TS),1),0);
DRAWBAND(HHH,RGB(100,20,100),Y,RGB(100,20,100));
DRAWBAND(LLH,RGB(128,128,128),Y,RGB(128,128,128));
STICKLINE(REFX(SS,1),REF(HHH,1),REF(Y,1),9,0),COLOR641464;
STICKLINE(REFX(SS,1),REF(LLH,1),REF(Y,1),9,0),COLOR808080;
XIA:=SS AND REF(HHH,1);
XZHI:=SS AND REF(LLH,1);
T1:=BARSLAST(XIA=1);
灰止高:=IF(XZHI,HHV(H,T1),0);
灰止低:=IF(XZHI,LLV(L,T1),0);
SHANG:=SS AND REF(LLH,1);
SZHI:=SS AND REF(LLH,1);
T2:=BARSLAST(SHANG=1),NODRAW;
红止高:=IF(SZHI,HHV(H,T2),0);
红止低:=IF(SZHI,LLV(L,T2),0);
STICKLINE(XIA,REFX(灰止高,BARSNEXT(XZHI)),REFX(灰止低,BARSNEXT(XZHI)),0,0),COLORYELLOW;
STICKLINE(XZHI,IF(XZHI,HHV(H,T1),0),IF(XZHI,LLV(L,T1),0),0,0),COLORYELLOW;
下降箱顶:IF(T1>=0 AND T1<=REF(BARSNEXT(XZHI),T1),REFX(灰止高,BARSNEXT(XZHI)),DRAWNULL),COLORYELLOW;
下降箱底:IF(T1>=0 AND T1<=REF(BARSNEXT(XZHI),T1),REFX(灰止低,BARSNEXT(XZHI)),DRAWNULL),COLORYELLOW;
STICKLINE(XZHI,REFX(红止低,BARSNEXT(XIA)),REFX(红止高,BARSNEXT(XIA)),0,0),COLORGREEN;
STICKLINE(XIA,IF(XIA,HHV(H,T2),0),IF(XIA,LLV(L,T2),0),0,0),COLORGREEN;
上升箱顶:IF(T2>=0 AND T2<=REF(BARSNEXT(XIA),T2),REFX(红止高,BARSNEXT(XIA)),DRAWNULL),COLORGREEN;
上升箱底:IF(T2>=0 AND T2<=REF(BARSNEXT(XIA),T2),REFX(红止低,BARSNEXT(XIA)),DRAWNULL),COLORGREEN;
MACD:="MACD.MACD";
VA1:=HHVBARS(MACD,BARSLAST(MACD<0)+1);
QG:=CROSS(BACKSET(CROSS(0,MACD) OR (ISLASTBAR AND MACD>0),REF(VA1,1)+2),0.5);
终点:=IF(ISLASTBAR AND MACD>0 AND MACD=HHV(MACD,BARSLAST(MACD<0)),1,
IF(FILTERX(QG,BARSCOUNT(C)),2,DRAWNULL));
UU:=(终点=1 OR 终点=2) AND MACD>0;
ZZ:=FILTERX(UU,BARSCOUNT(C));
横线:=CONST(REF(MACD,BARSLAST(ZZ)));
WW:=MACD>横线;
起始点:=FILTERX(REFX(BARSLAST(WW),1)=1,BARSCOUNT(C));
顶:=IF(BARSLAST(起始点)>=0,CONST(REF(C,BARSLAST(起始点))),DRAWNULL);
底:=IF(BARSLAST(起始点)>=0,CONST(REF(C,BARSLAST(ZZ))),DRAWNULL);
STICKLINE(ISLASTBAR,顶,底,0,-1),COLORWHITE;
箱顶:顶,COLORWHITE,DOTLINE;
箱底:底,COLORWHITE,DOTLINE;
STICKLINE(起始点,顶,底,0,-1),COLORWHITE;
W1:DRAWTEXT(SS,L*0.98,'*100'),COLORYELLOW;
DRAWKLINE(HIGH,OPEN,LOW,CLOSE);
