MetaStock™ Zone Forum & FAQ Artykuły Linki Elliott Waves EasyLanguage™ Zone

 A B C D E F G H I J K L M N O P R S T U V W Y Z #

Volume Flow Indicator (VFI) by Markos Katsanos
Using Money Flow to Stay with the Trend

Markos Katsanos' article "Using Money Flow to Stay with the Trend" did not have a MetaStock Trader's Tip as the article contained all the formulas.

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<VMAX,V,VMAX);
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()<Ref(Typ(),-1),-V,0)))

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<VMAX,V,VMAX);
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<VMAX,V,VMAX);
MF:=Typical()-Ref(Typical(),-1);
VCN:=If(MF<CUTOFF AND 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<VMAX,V,VMAX);
MF:=Typical()-Ref(Typical(),-1);
VCP:=If(MF>CUTOFF,VC,0);
VCP

Source / From: TOP