vars smoothed = series(Smooth(series(Close), 6));
vars smoothRSIS = series(RSIS(smoothed, 3));
if (smoothRSIS[0] == smoothRSIS[1]) return;

function VO(int ShortPeriod, int LongPeriod, vars VolumeSeries) {
	var s = EMA(VolumeSeries, ShortPeriod);
	var l = EMA(VolumeSeries, LongPeriod);
	return ((s - l) / l) * 100;
}

function ACDI(var Close, var High, var Low, var Volume){
	vars ad = series(0, 2);
	var clv = ((Close - Low) - (High - Close)) / (High - Low);
	var cmfv = clv * Volume;
	ad[0] = ad[1] + cmfv;
	return ad[0];
}

function KVO(var High, var Low, var Close, var Volume){
	vars hlc = series((High + Low + Close) / 3);	
	vars cumVol = series(0, 2);
	cumVol[0] = cumVol[1] + Volume;
	var hlcChange = hlc[0] - hlc[1];
	var sv = 0;
	if (hlcChange >= 0) sv = Volume;
	else sv = -Volume;
	
	var kvo = EMA(sv, 34) - EMA(sv, 55);
	//var sig = EMA(kvo, 13);
	return kvo;
}

function EFI(int Period, var Close, var Volume) {
  vars CloseSeries = series(Close);
  var change = CloseSeries[0] - CloseSeries[1];
  var efi = EMA(change * Volume, Period);
  return efi;
}

// default Length = 20, FilterLength = 48
function EhlersStochMESA(int Length, var* Price, int FilterLength){	
	var pi = 2 * asin(1);
	var* HP = series(HighPass2(Price, FilterLength));
	var a1 = exp(-1.414 * 3.14159 / 10);
	var b1 = 2 * a1 * cos(1.414 * pi / 10);
	var c2 = b1;
	var c3 = -a1 * a1;
	var c1 = 1 - c2 - c3;
	
	var* Filt = series(0);
	Filt[0] = c1 * (HP[0] + HP[1]) / 2 + c2 * Filt[1] + c3 * Filt[2];
	var HighestC = Filt[0];
	var LowestC = Filt[0];

	var i;
	for(i = 0; i < Length-1; i++) {
		if (Filt[i] > HighestC) HighestC = Filt[i];
		if (Filt[i] < LowestC) LowestC = Filt[i];
	}

	var* Stoc = series(0);
	
	if ((HighestC - LowestC) != 0) {
		Stoc[0] = (Filt[0] - LowestC) / (HighestC - LowestC);
	}
	
	var* MESAStochastic = series(0);
	MESAStochastic[0] = c1 * (Stoc[0] + Stoc[1]) / 2 + c2 * MESAStochastic[1] + c3 * MESAStochastic[2];
	
	return MESAStochastic[0]*100;
}