3 50 % Diff Indicator

Here is an indicator that finds the difference between a 3 period EMA and the 50 period EMA. 
I double smoothed this with a 2 period SMA to eliminate some whipsaws 

A:=Mov(Mov((Mov(C,3,E)-Mov(C,50,E))/Mov(C,50,E),2,S),2,S); 
A;Ref(A,-1);

*****3 50 % Diff Expert *****
here are 2 Experts 

You will Need the powerpivots Plus Add-on for this expert 

Highlights 

Long 

A:=Mov(Mov((Mov(C,3,E)-Mov(C,50,E))/Mov(C,50,E),2,S),2,S); 
LE:=Cross(A,0) OR (A>.08 AND Cross(A,Ref(A,-1))); 
SE:=Cross(0,A) OR (A<-.08 AND Cross(Ref(A,-1),A)); 
LX:=A>.08 AND Cross(Ref(A,-1),A); 
SX:=A<-.08 AND Cross(A,Ref(A,-1)); 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B>0 

Short 

A:=Mov(Mov((Mov(C,3,E)-Mov(C,50,E))/Mov(C,50,E),2,S),2,S); 
LE:=Cross(A,0) OR (A>.08 AND Cross(A,Ref(A,-1))); 
SE:=Cross(0,A) OR (A<-.08 AND Cross(Ref(A,-1),A)); 
LX:=A>.08 AND Cross(Ref(A,-1),A); 
SX:=A<-.08 AND Cross(A,Ref(A,-1)); 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B<0 

Out 

A:=Mov(Mov((Mov(C,3,E)-Mov(C,50,E))/Mov(C,50,E),2,S),2,S); 
LE:=Cross(A,0) OR (A>.08 AND Cross(A,Ref(A,-1))); 
SE:=Cross(0,A) OR (A<-.08 AND Cross(Ref(A,-1),A)); 
LX:=A>.08 AND Cross(Ref(A,-1),A); 
SX:=A<-.08 AND Cross(A,Ref(A,-1)); 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B=0 

Symbols 

Long Entry 

A:=Mov(Mov((Mov(C,3,E)-Mov(C,50,E))/Mov(C,50,E),2,S),2,S); 
LE:=Cross(A,0) OR (A>.08 AND Cross(A,Ref(A,-1))); 
SE:=Cross(0,A) OR (A<-.08 AND Cross(Ref(A,-1),A)); 
LX:=A>.08 AND Cross(Ref(A,-1),A); 
SX:=A<-.08 AND Cross(A,Ref(A,-1)); 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B>0 AND Ref(B,-1)<=0 

Short Entry 

A:=Mov(Mov((Mov(C,3,E)-Mov(C,50,E))/Mov(C,50,E),2,S),2,S); 
LE:=Cross(A,0) OR (A>.08 AND Cross(A,Ref(A,-1))); 
SE:=Cross(0,A) OR (A<-.08 AND Cross(Ref(A,-1),A)); 
LX:=A>.08 AND Cross(Ref(A,-1),A); 
SX:=A<-.08 AND Cross(A,Ref(A,-1)); 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B<0 AND Ref(B,-1)>=0 

Long Exit 

A:=Mov(Mov((Mov(C,3,E)-Mov(C,50,E))/Mov(C,50,E),2,S),2,S); 
LE:=Cross(A,0) OR (A>.08 AND Cross(A,Ref(A,-1))); 
SE:=Cross(0,A) OR (A<-.08 AND Cross(Ref(A,-1),A)); 
LX:=A>.08 AND Cross(Ref(A,-1),A); 
SX:=A<-.08 AND Cross(A,Ref(A,-1)); 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B=0 AND Ref(B,-1)>0 

Short Exit 

A:=Mov(Mov((Mov(C,3,E)-Mov(C,50,E))/Mov(C,50,E),2,S),2,S); 
LE:=Cross(A,0) OR (A>.08 AND Cross(A,Ref(A,-1))); 
SE:=Cross(0,A) OR (A<-.08 AND Cross(Ref(A,-1),A)); 
LX:=A>.08 AND Cross(Ref(A,-1),A); 
SX:=A<-.08 AND Cross(A,Ref(A,-1)); 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B=0 AND Ref(B,-1)<0 

___________________________________________________

This expert doesn't need the Powerpivots Plus Add-on 

Highlights 

Long 

A:=Mov(Mov((Mov(C,3,E)-Mov(C,50,E))/Mov(C,50,E),2,S),2,S); 
A>0 

Short 

A:=Mov(Mov((Mov(C,3,E)-Mov(C,50,E))/Mov(C,50,E),2,S),2,S); 
A<0 

Symbols 

Long Entry 

A:=Mov(Mov((Mov(C,3,E)-Mov(C,50,E))/Mov(C,50,E),2,S),2,S); 
Cross(A,0) 

Short Entry 

A:=Mov(Mov((Mov(C,3,E)-Mov(C,50,E))/Mov(C,50,E),2,S),2,S); 
Cross(0,A)