Attempts to measure the strength of money flowing in and out. It accounts for volume action in relation to Heikin-Ashi.
{FP_MFI_HA}
{For personal use only}
{Not for distribution by FP}
x:= Input("Periods:",1,200,7);
haOpen:=(Ref((O+H+L+C)/4,-1) + PREV)/2;
haC:=((O+H+L+C)/4+haOpen+Max(H,haOpen)+Min(L,haOpen))/4;
y:= haC;
pm:= Sum(If(y>Ref(y,-1), V*y,0),x);
nm:= Sum(If(y<Ref(y,-1), V*y,0),x);
100-(100/(1+(pm/If(nm=0,0.001, nm))));
