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);
FORCAST(EMA(B,3),3),POINTDOT,COLORGREEN;
FORCAST(EMA(B,4),3),POINTDOT,COLORGREEN;
FORCAST(EMA(B,5),3),POINTDOT,COLORGREEN;
FORCAST(EMA(B,6),3),POINTDOT,COLORGREEN;
FORCAST(EMA(B,7),3),POINTDOT,COLORGREEN;
FORCAST(EMA(B,8),3),POINTDOT,COLORGREEN;
FORCAST(EMA(B,9),3),POINTDOT,COLORGREEN;
FORCAST(EMA(B,10),3),POINTDOT,COLORGREEN;
FORCAST(EMA(B,11),3),POINTDOT,COLORGREEN;
FORCAST(EMA(B,12),3),POINTDOT,COLORGREEN;
FORCAST(EMA(B,13),3),POINTDOT,COLORGREEN;
FORCAST(EMA(B,14),3),POINTDOT,COLORGREEN;
FORCAST(EMA(B,15),3),POINTDOT,COLORGREEN;
FORCAST(EMA(B,16),3),POINTDOT,COLORGREEN;
FORCAST(EMA(B,17),3),POINTDOT,COLORGREEN;
STICKLINE(TOWERC>=REF(TOWERC,1),TOWERC,REF(TOWERC,1),2,0),COLORRED;
STICKLINE(TOWERC<REF(TOWERC,1),TOWERC,REF(TOWERC,1),2,0),COLORGREEN;
STICKLINE(TOWERC>=REF(TOWERC,1),TOWERC,REF(TOWERC,1),3,0),COLORRED;
STICKLINE(TOWERC>=REF(TOWERC,1),TOWERC,REF(TOWERC,1),2,0),COLORRED;
STICKLINE(TOWERC>=REF(TOWERC,1),TOWERC,REF(TOWERC,1),0,0),COLORRED;
STICKLINE(TOWERC<REF(TOWERC,1),TOWERC,REF(TOWERC,1),2,0),COLORGREEN;
STICKLINE(TOWERC<REF(TOWERC,1),TOWERC,REF(TOWERC,1),3,0),COLORGREEN;
STICKLINE(TOWERC<REF(TOWERC,1),TOWERC,REF(TOWERC,1),2,0),COLORGREEN;
STICKLINE(TOWERC<REF(TOWERC,1),TOWERC,REF(TOWERC,1),0,0),COLORGREEN;
