Wyckoff Supply & Demand
UDPC:=(C>((H-L)*.5)+L) AND C>Ref(C,-1); 
UDNC:=(C<((H-L)*.5)+L) AND C>Ref(C,-1); 
DDPC:=(C>((H-L)*.5)+L) AND C<Ref(C,-1); 
DDNC:=(C<((H-L)*.5)+L) AND C<Ref(C,-1); 
HVWS:=((H-L)>Ref((H-L),-1)) AND V>Ref(V,-1); 
HVNS:=((H-L)<Ref((H-L),-1)) AND V>Ref(V,-1); 
LVWS:=((H-L)>Ref((H-L),-1)) AND V<Ref(V,-1); 
LVNS:=((H-L)<Ref((H-L),-1)) AND V<Ref(V,-1); 
B:=If(UDPC AND HVWS,8,If(UDPC AND HVNS,7,If(UDPC AND LVWS,6,If(UDPC AND LVNS,5, If(UDNC AND HVWS,4,If(UDNC AND HVNS,3,If(UDNC AND LVWS,2,If(UDNC AND LVNS,1, If(DDPC AND HVWS,-8,If(DDPC AND HVNS,-7,If(DDPC AND LVWS,-6,If(DDPC AND LVNS,-5, If(DDNC AND HVWS,-4,If(DDNC AND HVNS,-3,If(DDNC AND LVWS,-2,If(DDNC AND LVNS,-1,0)))))))))))))))); 
prd:=Input("Period",1,100,5); 
If(Mov(B,prd,S)>=0,Mov(B,prd,S),0); 
If(Mov(B,prd,S)<0,Mov(B,prd,S),0); 

Plot this in it's own window