OHLC 6 Expert
Highlights 

Long 

A1:=Sum((O+H+L+C),6)/24; 
A2:=Ref(A1,-1); 
D:=If(A1>A2,1,0); 
D=1 

Short 

A1:=Sum((O+H+L+C),6)/24; 
A2:=Ref(A1,-1); 
D:=If(A1>A2,1,0); 
D=0 

Symbols tab 

Long 

A1:=Sum((O+H+L+C),6)/24; 
A2:=Ref(A1,-1); 
D:=If(A1>A2,1,0); 
D=1 and Ref(D,-1)=0 

Short 

A1:=Sum((O+H+L+C),6)/24; 
A2:=Ref(A1,-1); 
D:=If(A1>A2,1,0); 
D=0 and Ref(D,-1)=1
*****OHLC 6 w Trend Direction*****
You need the PowerPivots Plus Add-on to use this Expert 

Highlights 

Long 

A1:=Sum((O+H+L+C),6)/24; 
A2:=Ref(A1,-1); 
D:=If(A1>A2,1,0); 
TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:=D=1 AND TD=1; 
SE:=D=0 AND TD=-1; 
LX:=D=0; 
SX:=D=1; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B>0 

Short 

A1:=Sum((O+H+L+C),6)/24; 
A2:=Ref(A1,-1); 
D:=If(A1>A2,1,0); 
TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:=D=1 AND TD=1; 
SE:=D=0 AND TD=-1; 
LX:=D=0; 
SX:=D=1; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B<0 

Out 

A1:=Sum((O+H+L+C),6)/24; 
A2:=Ref(A1,-1); 
D:=If(A1>A2,1,0); 
TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:=D=1 AND TD=1; 
SE:=D=0 AND TD=-1; 
LX:=D=0; 
SX:=D=1; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B=0 

Symbols 

Long Entry 

A1:=Sum((O+H+L+C),6)/24; 
A2:=Ref(A1,-1); 
D:=If(A1>A2,1,0); 
TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:=D=1 AND TD=1; 
SE:=D=0 AND TD=-1; 
LX:=D=0; 
SX:=D=1; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B>0 AND Ref(B,-1)<=0 

Short Entry 

A1:=Sum((O+H+L+C),6)/24; 
A2:=Ref(A1,-1); 
D:=If(A1>A2,1,0); 
TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:=D=1 AND TD=1; 
SE:=D=0 AND TD=-1; 
LX:=D=0; 
SX:=D=1; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B<0 AND Ref(B,-1)>=0 

Long Exit 

A1:=Sum((O+H+L+C),6)/24; 
A2:=Ref(A1,-1); 
D:=If(A1>A2,1,0); 
TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:=D=1 AND TD=1; 
SE:=D=0 AND TD=-1; 
LX:=D=0; 
SX:=D=1; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B=0 AND Ref(B,-1)>0 

Short Exit 

A1:=Sum((O+H+L+C),6)/24; 
A2:=Ref(A1,-1); 
D:=If(A1>A2,1,0); 
TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:=D=1 AND TD=1; 
SE:=D=0 AND TD=-1; 
LX:=D=0; 
SX:=D=1; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B=0 AND Ref(B,-1)<0
*****Another version w Trend Direction*****
You need the PowerPivots Plus Add-on to use this Expert 

Highlights 

Long 

A1:=Sum((O+H+L+C),6)/24; 
A2:=Ref(A1,-1); 
D:=If(A1>A2,1,0); 
TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:=D=1 AND TD=1; 
SE:=D=0 AND TD=-1; 
LX:=D=0 and TD>=0; 
SX:=D=1 and TD<=0; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B>0 

Short 

A1:=Sum((O+H+L+C),6)/24; 
A2:=Ref(A1,-1); 
D:=If(A1>A2,1,0); 
TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:=D=1 AND TD=1; 
SE:=D=0 AND TD=-1; 
LX:=D=0 and TD>=0; 
SX:=D=1 and TD<=0; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B<0 

Out 

A1:=Sum((O+H+L+C),6)/24; 
A2:=Ref(A1,-1); 
D:=If(A1>A2,1,0); 
TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:=D=1 AND TD=1; 
SE:=D=0 AND TD=-1; 
LX:=D=0 and TD>=0; 
SX:=D=1 and TD<=0; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B=0 

Symbols 

Long Entry 

A1:=Sum((O+H+L+C),6)/24; 
A2:=Ref(A1,-1); 
D:=If(A1>A2,1,0); 
TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:=D=1 AND TD=1; 
SE:=D=0 AND TD=-1; 
LX:=D=0 and TD>=0; 
SX:=D=1 and TD<=0; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B>0 AND Ref(B,-1)<=0 

Short Entry 

A1:=Sum((O+H+L+C),6)/24; 
A2:=Ref(A1,-1); 
D:=If(A1>A2,1,0); 
TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:=D=1 AND TD=1; 
SE:=D=0 AND TD=-1; 
LX:=D=0 and TD>=0; 
SX:=D=1 and TD<=0; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B<0 AND Ref(B,-1)>=0 

Long Exit 

A1:=Sum((O+H+L+C),6)/24; 
A2:=Ref(A1,-1); 
D:=If(A1>A2,1,0); 
TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:=D=1 AND TD=1; 
SE:=D=0 AND TD=-1; 
LX:=D=0 and TD>=0; 
SX:=D=1 and TD<=0; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B=0 AND Ref(B,-1)>0 

Short Exit 

A1:=Sum((O+H+L+C),6)/24; 
A2:=Ref(A1,-1); 
D:=If(A1>A2,1,0); 
TD:=ExtFml("PowerPivots.TrendDirection",1,2); 
LE:=D=1 AND TD=1; 
SE:=D=0 AND TD=-1; 
LX:=D=0 and TD>=0; 
SX:=D=1 and TD<=0; 
B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
B=0 AND Ref(B,-1)<0