OHLC 6 DWM Binary Expert
This Expert requires the PowerPivots Plus Add-on to work 

Highlights 

Confluence 3 

A1:=Sum((O+H+L+C),6)/24; 
A2:=Sum((O+H+L+C),30)/120; 
A3:=Sum((O+H+L+C),127)/508; 
H>A1 AND H>A2 AND H>A3 AND 
L<A1 AND L<A2 AND L<A3 

Confluence 2 

A1:=Sum((O+H+L+C),6)/24; 
A2:=Sum((O+H+L+C),30)/120; 
A3:=Sum((O+H+L+C),127)/508; 
H>A1 AND H>A2 AND 
L<A1 AND L<A2 

Long 

A1:=Sum((O+H+L+C),6)/24; 
A2:=Sum((O+H+L+C),30)/120; 
A3:=Sum((O+H+L+C),127)/508; 
B1:=If(Ref(A1,-1)<A1,1,-1); 
B2:=If(Ref(A2,-1)<A2,1.25,-1.25); 
B3:=If(Ref(A3,-1)<A3,1.5,-1.5); 
D:=B1+B2+B3; 
LE:=(Cross(D,0) AND Ref(D,-1)<0) OR (Ref(D,-1)>0 AND D>Ref(D,-1)); 
SE:=(Cross(0,D) AND Ref(D,-1)>0) OR (Ref(D,-1)<0 AND D<Ref(D,-1)); 
LX:=D<Ref(D,-1) AND D>0; 
SX:=D>Ref(D,-1) AND D<0; 
G:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
G>0 

Short 

A1:=Sum((O+H+L+C),6)/24; 
A2:=Sum((O+H+L+C),30)/120; 
A3:=Sum((O+H+L+C),127)/508; 
B1:=If(Ref(A1,-1)<A1,1,-1); 
B2:=If(Ref(A2,-1)<A2,1.25,-1.25); 
B3:=If(Ref(A3,-1)<A3,1.5,-1.5); 
D:=B1+B2+B3; 
LE:=(Cross(D,0) AND Ref(D,-1)<0) OR (Ref(D,-1)>0 AND D>Ref(D,-1)); 
SE:=(Cross(0,D) AND Ref(D,-1)>0) OR (Ref(D,-1)<0 AND D<Ref(D,-1)); 
LX:=D<Ref(D,-1) AND D>0; 
SX:=D>Ref(D,-1) AND D<0; 
G:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
G<0 

Out 

A1:=Sum((O+H+L+C),6)/24; 
A2:=Sum((O+H+L+C),30)/120; 
A3:=Sum((O+H+L+C),127)/508; 
B1:=If(Ref(A1,-1)<A1,1,-1); 
B2:=If(Ref(A2,-1)<A2,1.25,-1.25); 
B3:=If(Ref(A3,-1)<A3,1.5,-1.5); 
D:=B1+B2+B3; 
LE:=(Cross(D,0) AND Ref(D,-1)<0) OR (Ref(D,-1)>0 AND D>Ref(D,-1)); 
SE:=(Cross(0,D) AND Ref(D,-1)>0) OR (Ref(D,-1)<0 AND D<Ref(D,-1)); 
LX:=D<Ref(D,-1) AND D>0; 
SX:=D>Ref(D,-1) AND D<0; 
G:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
G=0 

Symbols 

Long Entry 

A1:=Sum((O+H+L+C),6)/24; 
A2:=Sum((O+H+L+C),30)/120; 
A3:=Sum((O+H+L+C),127)/508; 
B1:=If(Ref(A1,-1)<A1,1,-1); 
B2:=If(Ref(A2,-1)<A2,1.25,-1.25); 
B3:=If(Ref(A3,-1)<A3,1.5,-1.5); 
D:=B1+B2+B3; 
LE:=(Cross(D,0) AND Ref(D,-1)<0) OR (Ref(D,-1)>0 AND D>Ref(D,-1)); 
SE:=(Cross(0,D) AND Ref(D,-1)>0) OR (Ref(D,-1)<0 AND D<Ref(D,-1)); 
LX:=D<Ref(D,-1) AND D>0; 
SX:=D>Ref(D,-1) AND D<0; 
G:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
G>0 AND Ref(G,-1)<=0 

Short Entry 

A1:=Sum((O+H+L+C),6)/24; 
A2:=Sum((O+H+L+C),30)/120; 
A3:=Sum((O+H+L+C),127)/508; 
B1:=If(Ref(A1,-1)<A1,1,-1); 
B2:=If(Ref(A2,-1)<A2,1.25,-1.25); 
B3:=If(Ref(A3,-1)<A3,1.5,-1.5); 
D:=B1+B2+B3; 
LE:=(Cross(D,0) AND Ref(D,-1)<0) OR (Ref(D,-1)>0 AND D>Ref(D,-1)); 
SE:=(Cross(0,D) AND Ref(D,-1)>0) OR (Ref(D,-1)<0 AND D<Ref(D,-1)); 
LX:=D<Ref(D,-1) AND D>0; 
SX:=D>Ref(D,-1) AND D<0; 
G:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
G<0 AND Ref(G,-1)>=0 

Long Exit 

A1:=Sum((O+H+L+C),6)/24; 
A2:=Sum((O+H+L+C),30)/120; 
A3:=Sum((O+H+L+C),127)/508; 
B1:=If(Ref(A1,-1)<A1,1,-1); 
B2:=If(Ref(A2,-1)<A2,1.25,-1.25); 
B3:=If(Ref(A3,-1)<A3,1.5,-1.5); 
D:=B1+B2+B3; 
LE:=(Cross(D,0) AND Ref(D,-1)<0) OR (Ref(D,-1)>0 AND D>Ref(D,-1)); 
SE:=(Cross(0,D) AND Ref(D,-1)>0) OR (Ref(D,-1)<0 AND D<Ref(D,-1)); 
LX:=D<Ref(D,-1) AND D>0; 
SX:=D>Ref(D,-1) AND D<0; 
G:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
G=0 AND Ref(G,-1)>0 

Short Exit 

A1:=Sum((O+H+L+C),6)/24; 
A2:=Sum((O+H+L+C),30)/120; 
A3:=Sum((O+H+L+C),127)/508; 
B1:=If(Ref(A1,-1)<A1,1,-1); 
B2:=If(Ref(A2,-1)<A2,1.25,-1.25); 
B3:=If(Ref(A3,-1)<A3,1.5,-1.5); 
D:=B1+B2+B3; 
LE:=(Cross(D,0) AND Ref(D,-1)<0) OR (Ref(D,-1)>0 AND D>Ref(D,-1)); 
SE:=(Cross(0,D) AND Ref(D,-1)>0) OR (Ref(D,-1)<0 AND D<Ref(D,-1)); 
LX:=D<Ref(D,-1) AND D>0; 
SX:=D>Ref(D,-1) AND D<0; 
G:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); 
G=0 AND Ref(G,-1)<0