Williams Percent R Expert Transformed w Trend Direction
you will need the PowerPivots Plus Add-on for this expert to work 

Highlights 

Long 

X:=Log(Mov(WillR(10),4,E)/Mov(WillR(10),3,E)); 
TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:=Cross(X,0) AND TD=1; 
SE:=Cross(0,X) AND TD=-1; 
LX:=Cross(0,X); 
SX:=Cross(X,0); 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B>0 

Short 

X:=Log(Mov(WillR(10),4,E)/Mov(WillR(10),3,E)); 
TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:=Cross(X,0) AND TD=1; 
SE:=Cross(0,X) AND TD=-1; 
LX:=Cross(0,X); 
SX:=Cross(X,0); 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B<0 

Out 

X:=Log(Mov(WillR(10),4,E)/Mov(WillR(10),3,E)); 
TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:=Cross(X,0) AND TD=1; 
SE:=Cross(0,X) AND TD=-1; 
LX:=Cross(0,X); 
SX:=Cross(X,0); 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B=0 

Symbols 

Long Entry 

X:=Log(Mov(WillR(10),4,E)/Mov(WillR(10),3,E)); 
TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:=Cross(X,0) AND TD=1; 
SE:=Cross(0,X) AND TD=-1; 
LX:=Cross(0,X); 
SX:=Cross(X,0); 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B>0 AND Ref(B,-1)<=0 

Short entry 

X:=Log(Mov(WillR(10),4,E)/Mov(WillR(10),3,E)); 
TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:=Cross(X,0) AND TD=1; 
SE:=Cross(0,X) AND TD=-1; 
LX:=Cross(0,X); 
SX:=Cross(X,0); 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B<0 AND Ref(B,-1)>=0 

Long exit 

X:=Log(Mov(WillR(10),4,E)/Mov(WillR(10),3,E)); 
TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:=Cross(X,0) AND TD=1; 
SE:=Cross(0,X) AND TD=-1; 
LX:=Cross(0,X); 
SX:=Cross(X,0); 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B=0 AND Ref(B,-1)>0 

Short exit 

X:=Log(Mov(WillR(10),4,E)/Mov(WillR(10),3,E)); 
TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:=Cross(X,0) AND TD=1; 
SE:=Cross(0,X) AND TD=-1; 
LX:=Cross(0,X); 
SX:=Cross(X,0); 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B=0 AND Ref(B,-1)<0