function MFI(var Period, var High, var Low, var Close, var Volume) {
	vars vol = series(Volume);	
	vars hlc = series((High + Low + Close) / 3);	
	var pos=.0;
	var neg=.0;
	var i = 0;
	for(i=0;i<Period;i++) {
		if (hlc[i] > hlc[i+1]) pos = pos + vol[i];
		if (hlc[i] < hlc[i+1]) neg = neg + vol[i];
	}
	var mfr = pos / neg;		
	var mfi = 0;
	if (1+mfr != 0) mfi = 100 - 100 / (1 + mfr);	
	return mfi;
}

function CMF(var Period, var High, var Low, var Close, var Volume) {
	var ad = ((2*Close-Low-High)/(High-Low))*Volume;
	return Sum(series(ad), Period) / Sum(series(Volume), Period)*100;
}

function VPT(var Volume, vars Close) {
	vars vpt = series(0, 2);
	vpt[0] = vpt[1] + Volume * ((Close[0] - Close[1])/Close[1]);
	return vpt[0];
}

function EOM(var Length, vars High, vars Low, var Volume) {
	var div = 10000000000; // improvised :D
	var eom = SMA(
		series(
			div * (
				(High[0]+Low[0])/2 - (High[1]+Low[1])/2
			) * (High[0] - Low[0]) / Volume
		),	Length
	);
	return eom*1000; // also improvised
}