FVE - Storz's divergence

pds:=Input("period for FVE",10,80,22);
z:=Input("zig zag percent",1,80,5);
r:=Input("bars used to normalize data",10,500,125); mf:=C-(H+L)/2+Typical()-Ref(Typical(),-1);
fve:=Sum(If(mf>0.3*C/100,+V, If(mf<-0.3*C/100, -V,0)),pds)/Mov(V,pds,S)/pds*100;

dfve:=(Peak(1,fve,z)-Peak(2,fve,z))/
(HHV(fve,r)-LLV(fve,r));
dc:=(Peak(1,C,z)-Peak(2,C,z))/
(HHV(C,r)-LLV(C,r));
dfve-dc