// Efficiency Ratio


eff1 = abs(close-close[1])
eff2 = abs (close-close[p])


// KAMA
noise = summation[p](eff1)
if barindex>=1 and kama[1]>0 then
	if noise <> 0 then
		ef= eff2 / noise
	else
		ef = 1
	endif
	kama=kama[1] + SQUARE(( ef*(2/( f + 1) - 2/(s+1)) + 2/(s+1)) )*(close-kama[1])
else
	kama = close
endif

return kama