Oscillator Vertical Horizontal Filter (VHF)

Pds:=Input("Periods",3,55,28);
Hlvl:=Input("Upper Level",.5,.9,.6);
Llvl:=Input("Lower Level",.2,.49,.3);
Diff:=Abs(Ref(C,-1)-C);
HiLo:=(HHV(C,Pds)-LLV(C,Pds));
VHFVal:=HiLo/Sum(Diff,Pds);
red:=If(VHFVal<Llvl,VHFVal,Llvl);
green:=If(VHFVal>LLvl,VHFVal,LLvl);
red;green

P:=INPUT("PERIOD",1,100,28);
HCP:=HHV(C,P);
LCP:=LLV(C,P);
MCP:=Sum(ABS(C-REF(C,-1)),P);
VHF:=(HCP-LCP)/MCP;
VHF