Directional movement Smoothed Osc w 50 MA Expert
This formula requires the PowerPivots Plus Add-on 

Highlights 

Long 

Per1:=14; 
A:=Mov(Mov(PDI(Per1),3,E),3,E)-Mov(Mov(MDI(Per1),3,E),3,E); 
Sig:=Mov(A,5,E); 
B:= (A-Sig)*2; 
LE:=B>0 and C>Mov(C,50,S); 
SE:=B<0 and C<Mov(C,50,S); 
LX:=Cross(0,B) and C>Mov(C,50,S); 
SX:=Cross(B,0) and C<Mov(C,50,S); 
D:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
D>0 

Short 

Per1:=14; 
A:=Mov(Mov(PDI(Per1),3,E),3,E)-Mov(Mov(MDI(Per1),3,E),3,E); 
Sig:=Mov(A,5,E); 
B:= (A-Sig)*2; 
LE:=B>0 and C>Mov(C,50,S); 
SE:=B<0 and C<Mov(C,50,S); 
LX:=Cross(0,B) and C>Mov(C,50,S); 
SX:=Cross(B,0) and C<Mov(C,50,S); 
D:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
D<0 

Out 

Per1:=14; 
A:=Mov(Mov(PDI(Per1),3,E),3,E)-Mov(Mov(MDI(Per1),3,E),3,E); 
Sig:=Mov(A,5,E); 
B:= (A-Sig)*2; 
LE:=B>0 and C>Mov(C,50,S); 
SE:=B<0 and C<Mov(C,50,S); 
LX:=Cross(0,B) and C>Mov(C,50,S); 
SX:=Cross(B,0) and C<Mov(C,50,S); 
D:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
D=0 

Symbols 

LE 

Per1:=14; 
A:=Mov(Mov(PDI(Per1),3,E),3,E)-Mov(Mov(MDI(Per1),3,E),3,E); 
Sig:=Mov(A,5,E); 
B:= (A-Sig)*2; 
LE:=B>0 and C>Mov(C,50,S); 
SE:=B<0 and C<Mov(C,50,S); 
LX:=Cross(0,B) and C>Mov(C,50,S); 
SX:=Cross(B,0) and C<Mov(C,50,S); 
D:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
D>0 AND Ref(D,-1)<=0 


SE 

Per1:=14; 
A:=Mov(Mov(PDI(Per1),3,E),3,E)-Mov(Mov(MDI(Per1),3,E),3,E); 
Sig:=Mov(A,5,E); 
B:= (A-Sig)*2; 
LE:=B>0 and C>Mov(C,50,S); 
SE:=B<0 and C<Mov(C,50,S); 
LX:=Cross(0,B) and C>Mov(C,50,S); 
SX:=Cross(B,0) and C<Mov(C,50,S); 
D:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
D<0 AND Ref(D,-1)>=0 

LX 

Per1:=14; 
A:=Mov(Mov(PDI(Per1),3,E),3,E)-Mov(Mov(MDI(Per1),3,E),3,E); 
Sig:=Mov(A,5,E); 
B:= (A-Sig)*2; 
LE:=B>0 and C>Mov(C,50,S); 
SE:=B<0 and C<Mov(C,50,S); 
LX:=Cross(0,B) and C>Mov(C,50,S); 
SX:=Cross(B,0) and C<Mov(C,50,S); 
D:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
D=0 AND Ref(D,-1)>0 

SX 

Per1:=14; 
A:=Mov(Mov(PDI(Per1),3,E),3,E)-Mov(Mov(MDI(Per1),3,E),3,E); 
Sig:=Mov(A,5,E); 
B:= (A-Sig)*2; 
LE:=B>0 and C>Mov(C,50,S); 
SE:=B<0 and C<Mov(C,50,S); 
LX:=Cross(0,B) and C>Mov(C,50,S); 
SX:=Cross(B,0) and C<Mov(C,50,S); 
D:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
D=0 AND Ref(D,-1)<0