VFI
PERIOD:=Input("PERIOD FOR VFI",5,1300,130);
COEF:=.2;
VCOEF:=Input("MAX VOLUME CUTOFF",0,50,2.5);
INTER:=Log(Typical())-Log(Ref(Typical(),-1));
VINTER:=Stdev(INTER,30);
CUTOFF:=COEF*VINTER*C;
VAVE:=Ref(Mov(V,PERIOD,S),-1);
VMAX:=VAVE*VCOEF;
VC:=If(V MF:=Typical()-Ref(Typical(),-1);
VFI:=Sum(If(MF>CUTOFF,+VC,If(MF<-CUTOFF,-VC,0)),PERIOD)/VAVE;
Mov(VFI,3,E);







VFI (Simplified)
Cum(If(Typ()>Ref(Typ(),-1),+V,If(Typ()







Volume (Down, Red)
COEF:=.2;
VCOEF:=Input("MAX VOLUME CUTOFF",0,50,2.5);
INTER:=Log(Typical())-Log(Ref(Typical(),-1));
VINTER:=Stdev(INTER,30);
CUTOFF:=COEF*VINTER*C;
VAVE:=Ref(Mov(V,50,S),-1);
VMAX:=VAVE*VCOEF;
VC:=If(V MF:=Typical()-Ref(Typical(),-1);
VCM:=If(MF<-CUTOFF,VC,0);
VCM





Volume (Neutral, Blue)
COEF:=.2;
VCOEF:=Input("MAX VOLUME CUTOFF",0,50,2.5);
INTER:=Log(Typical())-Log(Ref(Typical(),-1));
VINTER:=Stdev(INTER,30);
CUTOFF:=COEF*VINTER*C;
VAVE:=Ref(Mov(V,50,S),-1);
VMAX:=VAVE*VCOEF;
VC:=If(V MF:=Typical()-Ref(Typical(),-1);
VCN:=If(MF-CUTOFF,VC,0);
VCN





Volume (Up, Green)
COEF:=.2;
VCOEF:=Input("MAX VOLUME CUTOFF",0,50,2.5);
INTER:=Log(Typical())-Log(Ref(Typical(),-1));
VINTER:=Stdev(INTER,30);
CUTOFF:=COEF*VINTER*C;
VAVE:=Ref(Mov(V,50,S),-1);
VMAX:=VAVE*VCOEF;
VC:=If(V MF:=Typical()-Ref(Typical(),-1);
VCP:=If(MF>CUTOFF,VC,0);
VCP