//Money Flow Index
n=inparam("Period", 1, 100, 14);
TP = (H + L + C)/3;
MF = TP*V;
if MF>ref(MF,-1) then PMF=MF; else NMF=MF;
MR=Sum(PMF,n)/Sum(NMF,n);
MFI=100-(100/(1+MR));
MFI;