N:=3;
 A1:=FORCAST(EMA(CLOSE,5),6);
 A2:=FORCAST(EMA(CLOSE,8),6);
 A3:=FORCAST(EMA(CLOSE,11),6);
 A4:=FORCAST(EMA(CLOSE,14),6);
 A5:=FORCAST(EMA(CLOSE,17),6);
 B:=A1+A2+A3+A4-4*A5;
 TOWERC:=EMA(B,2);
 B1:FORCAST(EMA(B,3),6),POINTDOT,COLORGREEN;
 B2:FORCAST(EMA(B,4),6),POINTDOT,COLORGREEN;
 B3:FORCAST(EMA(B,5),6),POINTDOT,COLORGREEN;
 B4:FORCAST(EMA(B,6),6),POINTDOT,COLORGREEN;
 B5:FORCAST(EMA(B,7),6),POINTDOT,COLORGREEN;
 B6:FORCAST(EMA(B,8),6),POINTDOT,COLORGREEN;
 B7:FORCAST(EMA(B,9),6),POINTDOT,COLORGREEN;
 B8:FORCAST(EMA(B,10),6),POINTDOT,COLORGREEN;
 B9:FORCAST(EMA(B,11),6),POINTDOT,COLORGREEN;
 B10:FORCAST(EMA(B,12),6),POINTDOT,COLORGREEN;
 B11:FORCAST(EMA(B,13),6),POINTDOT,COLORGREEN;
 B12:FORCAST(EMA(B,14),6),POINTDOT,COLORGREEN;
 B13:=FORCAST(EMA(B,15),6),POINTDOT,COLORGREEN;
 B14:FORCAST(EMA(B,16),6),POINTDOT,COLORGREEN;
 B15:FORCAST(EMA(B,17),6),POINTDOT,COLORGREEN;
 STICKLINE(TOWERC>=REF(TOWERC,1),TOWERC,REF(TOWERC,1),N,0),COLORRED;
 STICKLINE(TOWERC  STICKLINE(TOWERC>=REF(TOWERC,1),TOWERC,REF(TOWERC,1),N,0),COLORRED;
 STICKLINE(TOWERC>=REF(TOWERC,1),TOWERC,REF(TOWERC,1),N,0),COLORRED;
 STICKLINE(TOWERC>=REF(TOWERC,1),TOWERC,REF(TOWERC,1),N,0),COLORRED;
 STICKLINE(TOWERC  STICKLINE(TOWERC  STICKLINE(TOWERC  STICKLINE(TOWERC  BSUM:=(B1+B2+B3+B4+B5+B6+B7+B8+B9+B10+B11+B12+B13+B14+B15)/15;
 BMAX1:=MAX(MAX(B1,B2),MAX(B3,B4));
 BMAX2:=MAX(MAX(B5,B6),MAX(B7,B8));
 BMAX3:=MAX(MAX(B9,B10),MAX(B11,B12));
 BMAX4:=MAX(MAX(B13,B14),B15);
 BMAX:=MAX(MAX(BMAX1,BMAX2),MAX(BMAX3,BMAX4));
 BMIN1:=MIN(MIN(B1,B2),MIN(B3,B4));
 BMIN2:=MIN(MIN(B5,B6),MIN(B7,B8));
 BMIN3:=MIN(MIN(B9,B10),MIN(B11,B12));
 BMIN4:=MIN(MIN(B13,B14),B15);
 BMIN:=MIN(MIN(BMIN1,BM