N:=89;
HH:=CONST(HHV(H,N));
LL:=CONST(LLV(L,N));
MM:=CONST(HH/2+LL/2);
CC:=CONST(C),CROSSDOT;
YY:=CONST(IF(CC>=MM,LL-(HH-LL)*0.2,HH+(HH-LL)*0.2)),POINTDOT;
DIF:=EMA(CLOSE,12)-EMA(CLOSE,26);
DEA:=EMA(DIF,9);
MACD:=(DIF-DEA)*2,COLORSTICK;
MHH:=CONST(HHV(MACD,N));
MLL:=CONST(LLV(MACD,N));
MMM0:=MHH/2-MLL/2;
MMM:=IF(MMM0<(HH-LL)*0.1,(HH-LL)*0.1,MMM0);
STICKLINE(0=0,YY+MMM,YY-MMM,5,0),COLOR444444;
STICKLINE(MACD>=0 AND MACD>REF(MACD,1),YY,YY+MACD,0.2,0),COLORRED;
STICKLINE(MACD>=0 AND MACD<REF(MACD,1),YY,YY+MACD,0.2,0),COLORAAAAAA;
STICKLINE(MACD<0 AND MACD<REF(MACD,1),YY,YY+MACD,0.2,0),COLOR0000FF;
STICKLINE(MACD<0 AND MACD>REF(MACD,1),YY,YY+MACD,0.2,0),COLOR00FFFF;
RSV:=((CLOSE-LLV(LOW,13))/(HHV(HIGH,13)-LLV(LOW,13))-0.5)/100;
K:=SMA(RSV,4,1);
D:=SMA(K,4,1);
J:=3*K-2*D;
JJ:=(J/0.005)*MMM;
STICKLINE(J>REF(J,1),YY+REF(JJ,1),YY+JJ,2.0,0),COLORMAGENTA;
STICKLINE(J<=REF(J,1),YY+REF(JJ,1),YY+JJ,2.0,0),COLORGREEN;
SAR1:=IF(CLOSE<SAR(4,2,10),SAR(4,2,10),0);
SAR2:=IF(CLOSE<SAR(3,3,20),SAR(3,3,20),0);
SARE:=IF(CLOSE>SAR(3,3,20),SAR(3,3,20),0);
SARA:=IF(CLOSE>SAR(4,2,10),SAR(4,2,10),0);
空仓:=IF(MIN(SAR1,SAR2)>0,(SAR1+SAR2)/2,IF(SAR1+SAR2=0,DRAWNULL,SAR1+SAR2)),CIRCLEDOT,COLORGREEN;
持股:=IF(MIN(SARE,SARA)>0,(SARE+SARA)/2,IF(SARE+SARA=0,DRAWNULL,SARE+SARA)),CIRCLEDOT,COLORMAGENTA;
MA1:=C,COLORYELLOW,NODRAW;
MA3:=MA(((3*C+L+O+H)/6),3),COLORYELLOW,NODRAW;
BBI:=(MA(C,3)+MA(C,6)+MA(C,12)+MA(C,24))/4,COLORWHITE;
BB5:=(MA(C,15)+MA(C,30)+MA(C,60)+MA(C,120))/4,COLORWHITE;
BB5红:=IF(C>BB5,BB5,DRAWNULL),COLORRED;
BB5蓝:=IF(C<=BB5,BB5,DRAWNULL),COLORLIBLUE;
MH:=IF(MACD<0,-MACD,0);
ML:=IF(MACD>0,-MACD,0);
JJH:=IF(REF(JJ,1)>JJ,REF(JJ,1),JJ);
JJL:=IF(REF(JJ,1)<JJ,REF(JJ,1),JJ);
Z1:=IF(JJH>ML AND JJH<=MH,MH,DRAWNULL);
Z2:=IF(JJL>ML AND JJL<=ML,ML,DRAWNULL);
STICKLINE(0=0,YY+Z1,YY+Z2,0.1,0),COLORBLUE;
DRAWTEXT(CURRBARSCOUNT=16 AND BACKSET(C>BB5,CURRBARSCOUNT)=1 AND BACKSET(CROSS(MA1,BBI)=1,CURRBARSCOUNT)=1,IF(CC>MM,LL,HH),'收BB5上,上穿BBI'),COLORRED;
DRAWICON(CROSS(DIF,DEA),YY-MMM,1);
DRAWICON(CROSS(DEA,DIF),YY+MMM,2);
