A1:=FORCAST(EMA(CLOSE,3),6);
A2:=FORCAST(EMA(CLOSE,5),6);
A3:=FORCAST(EMA(CLOSE,7),6);
A4:=FORCAST(EMA(CLOSE,11),6);
A5:=FORCAST(EMA(CLOSE,14),6);
B:=A1+A2+A3+A4-4*A5;
TOWERC:=EMA(B,2);
VAR1:=ABS(TOWERC)+ABS(REF(TOWERC,1));
VAR2:=(3*CLOSE+2*OPEN+LOW+HIGH)/7;
A6:=FORCAST(EMA(VAR2,12),6);
REDTJ:=A6>=REF(A6,1);
GREENTJ:=A6<=REF(A6,1);
RED:REDTJ;
{-----------------------------------}