6 4 Hi lo Expert
Highlight Tab 
{Long} 
Buy:=Cross(C,Mov(Ref(H,-4),6,S)); 
Sell:=Cross(Mov(Ref(L,-4),6,S),C); 
State:=If(BarsSince(Buy)>BarsSince(Sell),1,0); 
State=0 

{Short} 
Buy:=Cross(C,Mov(Ref(H,-4),6,S)); 
Sell:=Cross(Mov(Ref(L,-4),6,S),C); 
State:=If(BarsSince(Buy)>BarsSince(Sell),1,0); 
State=1 

Symbol Tab 
{EL} 
Buy:=Cross(C,Mov(Ref(H,-4),6,S)); 
Sell:=Cross(Mov(Ref(L,-4),6,S),C); 
i:=Cum(Buy>-1 AND Sell>-1)=1; 
x:=BarsSince(i OR Buy)<=BarsSince(i OR Sell)=0; 
X=0 AND Ref(X,-1)>0 

{ES} 
Buy:=Cross(C,Mov(Ref(H,-4),6,S)); 
Sell:=Cross(Mov(Ref(L,-4),6,S),C); 
i:=Cum(Buy>-1 AND Sell>-1)=1; 
x:=BarsSince(i OR Buy)>=BarsSince(i OR Sell)=0; 
X=0 AND Ref(X,-1)>0
*****this version Has trend Direction*****
You will Need the Powr Pivots Plus Add-on for this version to work 

Highlights 

Long 

Buy:=Cross(C,Mov(Ref(H,-4),6,S)); 
Sell:=Cross(Mov(Ref(L,-4),6,S),C); 
TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:=Buy AND TD=1; 
SE:=Sell AND TD=-1; 
LX:=Sell AND TD>=0; 
SX:= Buy AND TD<=0; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B>0 

Short 

Buy:=Cross(C,Mov(Ref(H,-4),6,S)); 
Sell:=Cross(Mov(Ref(L,-4),6,S),C); 
TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:=Buy AND TD=1; 
SE:=Sell AND TD=-1; 
LX:=Sell AND TD>=0; 
SX:= Buy AND TD<=0; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B<0 

Out 

Buy:=Cross(C,Mov(Ref(H,-4),6,S)); 
Sell:=Cross(Mov(Ref(L,-4),6,S),C); 
TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:=Buy AND TD=1; 
SE:=Sell AND TD=-1; 
LX:=Sell AND TD>=0; 
SX:= Buy AND TD<=0; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B=0 

Symbols 

Long entry 

Buy:=Cross(C,Mov(Ref(H,-4),6,S)); 
Sell:=Cross(Mov(Ref(L,-4),6,S),C); 
TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:=Buy AND TD=1; 
SE:=Sell AND TD=-1; 
LX:=Sell AND TD>=0; 
SX:= Buy AND TD<=0; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B>0 AND Ref(B,-1)<=0 

Short Entry 

Buy:=Cross(C,Mov(Ref(H,-4),6,S)); 
Sell:=Cross(Mov(Ref(L,-4),6,S),C); 
TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:=Buy AND TD=1; 
SE:=Sell AND TD=-1; 
LX:=Sell AND TD>=0; 
SX:= Buy AND TD<=0; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B<0 AND Ref(B,-1)>=0 

Long exit 

Buy:=Cross(C,Mov(Ref(H,-4),6,S)); 
Sell:=Cross(Mov(Ref(L,-4),6,S),C); 
TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:=Buy AND TD=1; 
SE:=Sell AND TD=-1; 
LX:=Sell AND TD>=0; 
SX:= Buy AND TD<=0; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B=0 AND Ref(B,-1)>0 

Short exit 

Buy:=Cross(C,Mov(Ref(H,-4),6,S)); 
Sell:=Cross(Mov(Ref(L,-4),6,S),C); 
TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:=Buy AND TD=1; 
SE:=Sell AND TD=-1; 
LX:=Sell AND TD>=0; 
SX:= Buy AND TD<=0; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B=0 AND Ref(B,-1)<0