Directional movement Smoothed Osc Expert
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; 
Buy:=Cross(B,0); 
Sell:=Cross(0,B); 
D:=If(BarsSince(Buy)<BarsSince(Sell),1,0); 
D=1 

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; 
Buy:=Cross(B,0); 
Sell:=Cross(0,B); 
D:=If(BarsSince(Buy)<BarsSince(Sell),1,0); 
D=0 

Symbols 

Long Entry 

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; 
Buy:=Cross(B,0); 
Sell:=Cross(0,B); 
D:=If(BarsSince(Buy)<BarsSince(Sell),1,0); 
D>Ref(D,-1) 

Short Entry 

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; 
Buy:=Cross(B,0); 
Sell:=Cross(0,B); 
D:=If(BarsSince(Buy)<BarsSince(Sell),1,0); 
D<Ref(D,-1)