FVE money flow indicator for Amibroker (AFL)

_SECTION_BEGIN("FVE Modified for Intraday");
/* Volatility modified FVE chart 
** plus Volatility color-coded Volume chart + trading system
** TJ for S&C Traders Tips Sep 2003, 
*/
Period = Param("Period for FVE", 22, 5, 80, 1 );
Coeff = Param("Coeff for Cutoff", 0.1, 0, 2, 0.01 );

intra=log(H)-log(L);
Vintra = StDev(intra, period );
inter = log(Avg)-log(Ref(Avg,-1));
Vinter = StDev(inter,period);
Cutoff = Coeff * (Vinter+Vintra)*C;
MF = C- (H+L)/2 + Avg - Ref( Avg, -1 );
VC = IIf( MF > Cutoff, V,
IIf( MF < -Cutoff, -V, 0 ));
FVE = 100 * Sum( VC, Period )/(MA( V, Period ) * Period ); 

FVESm = 100 * ( EMA( EMA( FVE - Ref( FVE, -1 ) ,25 ) ,13) 
/ EMA( EMA( abs( FVE - Ref( FVE, -1) ),25 ), 13 ) );

Plot( FVESm, "Smoothed FVE", colorRed, styleThick );
Plot (0,"",colorBlue,styleNoLabel);
Plot (EMA(FVESm, 13), "EMA 13", colorBrightGreen, styleThick);

Buy = Cross (FVESm, EMA (FVESm, 13));
Sell = Cross (EMA (FVESm, 13), FVESm);


_SECTION_END();