A1:=(EMA((OPEN+HIGH+LOW+CLOSE)/4,3)+EMA((OPEN+HIGH+LOW+CLOSE)/4,6)+EMA((OPEN+HIGH+LOW+CLOSE)/4,9))/3;
A2:=(EMA((OPEN+HIGH+LOW+CLOSE)/4,5)+EMA((OPEN+HIGH+LOW+CLOSE)/4,10)+EMA((OPEN+HIGH+LOW+CLOSE)/4,20))/3;
A3:=(EMA((OPEN+HIGH+LOW+CLOSE)/4,7)+EMA((OPEN+HIGH+LOW+CLOSE)/4,14)+EMA((OPEN+HIGH+LOW+CLOSE)/4,28))/3;
A4:=(EMA((OPEN+HIGH+LOW+CLOSE)/4,9)+EMA((OPEN+HIGH+LOW+CLOSE)/4,18)+EMA((OPEN+HIGH+LOW+CLOSE)/4,36))/3;
A5:=(EMA((OPEN+HIGH+LOW+CLOSE)/4,11)+EMA((OPEN+HIGH+LOW+CLOSE)/4,22)+EMA((OPEN+HIGH+LOW+CLOSE)/4,44))/3;
A6:=(EMA((OPEN+HIGH+LOW+CLOSE)/4,13)+EMA((OPEN+HIGH+LOW+CLOSE)/4,26)+EMA((OPEN+HIGH+LOW+CLOSE)/4,52))/3;
A7:=(EMA((OPEN+HIGH+LOW+CLOSE)/4,21)+EMA((OPEN+HIGH+LOW+CLOSE)/4,34)+EMA((OPEN+HIGH+LOW+CLOSE)/4,68))/3;
mA1:=FORCAST(A1,6);
mA2:=FORCAST(A2,6);
mA3:=FORCAST(A3,6);
mA4:=FORCAST(A4,6);
mA5:=FORCAST(A5,6);
mA6:=FORCAST(A6,6);
mA7:=FORCAST(A7,6),Colorfooffo,Linethick2;
PARTLINE(mA7,mA7<REF(mA7,1),RGB(0,255,0),MA7>REF(MA7,1),RGB(255,0,255)),DOtline;
PARTLINE(MA2,MA2<REF(MA2,1),RGB(0,255,0),MA2>REF(MA2,1),RGB(255,0,255)),DOtline;
PARTLINE(MA3,MA3<REF(MA3,1),RGB(0,255,0),MA3>REF(MA3,1),RGB(255,0,255)),DOtline;
PARTLINE(MA4,MA4<REF(MA4,1),RGB(0,255,0),MA4>REF(MA4,1),RGB(255,0,255)),DOtline;
PARTLINE(MA5,MA5<REF(MA5,1),RGB(0,255,0),MA5>REF(MA5,1),RGB(255,0,255)),DOtline;
PARTLINE(MA6,MA6<REF(MA6,1),RGB(0,255,0),MA6>REF(MA6,1),RGB(255,0,255)),DOtline;
PARTLINE(MA1,MA1<REF(MA1,1),RGB(0,255,0),MA1>REF(MA1,1),RGB(255,0,255)),DOtline;
TOWERC:=FORCAST(EMA((3*CLOSE+2*OPEN+HIGH+LOW)/7,3),6);
DIRECTIONMAX:=MAX(REF(TOWERC,1),REF(TOWERC,1));
DIRECTIONMIN:=MIN(REF(TOWERC,1),REF(TOWERC,1));
STICKLINE(TOWERC>=REF(TOWERC,1),TOWERC,DIRECTIONMAX,8,0),COLOR0000FF;
STICKLINE(TOWERC<REF(TOWERC,1),TOWERC,DIRECTIONMIN,8,0),COLOR00FF00;