Multi Time Frame Exponential Moving Avarage EMA

Nw:=DAYOFMONTH()<>ref(DAYOFMONTH(),-1);    
n1:=15; p1:=2/(n1+1);
If(nw,(p1*Ref(C,-1))+((1-p1)*PREV),PREV)

tp:= 4;
Nw:=ROC( DayOfWeek() ,1,$)<>0;
a1:= 2 / (tp +1);
if(nw,If( Cum(nw ) = -1, Ref(c, -1), Ref(c, -1)*a1 + (PREV*(1-a1))),prev)

D:=Input("Periods (Hours)",1,99,10);
Q:=Input("1=Dynamic last bar, 2=Sample only @ end of hour",1,2,1);
{1=dynamic last hour, MS compatible}
{2=sample end of hour when available}
A:=Minute()=0;
B:=Hour()<>ValueWhen(2,1,Hour()) OR DayOfWeek()<>ValueWhen(2,1,DayOfWeek());
F:=LastValue(Cum(1))=Cum(1);
D:=2/(D+1);
J:=If(A,1,If(Alert(A,2)=0 AND B,2,0));
J:=If(F AND J=0 AND Q=1,1,J);
K:=ValueWhen(1,J,If(J=1,C,Ref(C,-1)));
M:=If(Cum(J>0)=1,K,ValueWhen(1,J,PREV)*(1-D)+K*D);
M;