Oscillator Wyckoff Supply & Demand

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);