{无双波段风暴}

{改编 BY SHUHONG}

{背景}
DRAWGBK(C>0, RGB(1,1,1),RGB(1,1,1),0,'0',0);

{大机构MACD}
 DIFFF:=EMA(CLOSE,12)-EMA(CLOSE,26);
 DEAAA:=EMA(DIFFF,9);
 MACD2:=2*(DIFFF-DEAAA);
 (CLOSE<0 AND CROSS(DIFFF,0),H*1.3),COLOR000080,NODRAW;
 (CLOSE<0 AND CROSS(MACD2,0),H*1.3),COLOR000080,NODRAW;
 (CLOSE<0 AND CROSS(0,DIFFF),H*1.3),COLOR808080,NODRAW;
 (CLOSE<0 AND CROSS(0,MACD2),H*1.3),COLOR808080,NODRAW;
 DU0:=CROSS(DIFFF,0);
 UD0:=CROSS(0,DIFFF);
 TDU0:=BARSLAST(DU0);
 TUD0:=BARSLAST(UD0);
 DU3:=REF(DU0,1);
 UD3:=REF(UD0,1);
 TDU3:=BARSLAST(DU3);
 TUD3:=BARSLAST(UD3);
 UDGLINE:=IF(TDU3  JDU0:=REF(CLOSE,1)<=REF(UDGLINE,1) AND CLOSE>UDGLINE AND TDU0  JUD0:=REF(CLOSE,1)>=REF(UDGLINE,1) AND CLOSE  JDU1:=JDU0 AND COUNT(JDU0,TDU0)=1;
 JUD1:=JUD0 AND COUNT(JUD0,TUD0)=1;
 JDU2:=JDU1 AND REF(BARSLAST(JUD1),1)  JUD2:=JUD1 AND REF(BARSLAST(JUD1),1)>REF(BARSLAST(JDU1),1);
 JDU3:=JDU1 AND REF(BARSLAST(JUD1),1)>REF(BARSLAST(JDU1),1);
 JUD3:=JUD1 AND REF(BARSLAST(JUD1),1)  BSLINE:=IF(BARSLAST(JDU2)  {}
 STICKLINE(MACD2>=0,0,MACD2,2,0),COLORYELLOW;{0轴上升}
STICKLINE(MACD2>=0 AND MACD2 STICKLINE(MACD2<0,0,MACD2,2,0),COLORCYAN;{0轴下跌}
STICKLINE(MACD2<0 AND MACD2>REF(MACD2,1),0,MACD2,2,1),COLORYELLOW;{0轴下升}

 {包络均线—知博陋室交易系统副图指标(21)}
 0,DOTLINE,COLORGRAY;
 MID:=(7*CLOSE+LOW+OPEN+HIGH)/10;
 MA0:=MA(MID,40);
 MA1:=MA(MID,1);
 A1:=MA1-MA0;
 MA2:=MA(MID,2);
 A2:=MA2-MA0;
 MA3:=MA(MID,3);
 A3:=MA3-MA0;
 MA4:=MA(MID,4);
 A4:=MA4-MA0;
 MA5:=MA(MID,5);
 A5:=MA5-MA0;
 MA6:=MA(MID,6);
 A6:=MA6-MA0;
 MA7:=MA(MID,7);
 A7:=MA7-MA0;
 MA8:=MA(MID,8);
 A8:=MA8-MA0;
 MA9:=MA(MID,9);
 A9:=MA9-MA0;
 MA10:=MA(MID,10);
 A10:=MA10-MA0;
 MA11:=MA(MID,11);
 A11:=MA11-MA0;
 MA12:=MA(MID,12);
 A12:=MA12-MA0;
 MA13:=MA(MID,13);
 A13:=MA13-MA0;
 MA14:=MA(MID,14);
 A14:=MA14-MA0;
 MA15:=MA(MID,15);
 A15:=MA15-MA0;
 MA16:=MA(MID,16);
 A16:=MA16-MA0;
 MA17:=MA(MID,17);
 A17:=MA17-MA0;
 MA18:=MA(MID,18);
 A18:=MA18-MA0;
 MA19:=MA(MID,19);
 A19:=MA19-MA0;
 MA20:=MA(MID,20);
 A20:=MA20-MA0;
 MA21:=MA(MID,21);
 A21:=MA21-MA0;
 MA22:=MA(MID,22);
 A22:=MA22-MA0;
 MA23:=MA(MID,23);
 A23:=MA23-MA0;
 MA24:=MA(MID,24);
 A24:=MA24-MA0;
 MA25:=MA(MID,25);
 A25:=MA25-MA0;
 MA26:=MA(MID,26);
 A26:=MA26-MA0;
 MA27:=MA(MID,27);
 A27:=MA27-MA0;
 MA28:=MA(MID,28);
 A28:=MA28-MA0;
 MA29:=MA(MID,29);
 A29:=MA29-MA0;
 MA30:=MA(MID,30);
 A30:=MA30-MA0;
 MA31:=MA(MID,31);
 A31:=MA31-MA0;
 MA32:=MA(MID,32);
 A32:=MA32-MA0;
 MA33:=MA(MID,33);
 A