# Lagrange interpolacio
#
# xAdat: mert x pontok: x_1, ..., x_n
# yAdat: mert y adatok: y_1, ..., y_n
# x:     a Lagrange interpolacios polinomot x-ben ertekeljuk ki
#
# p(x) = y_1 * l_1(x) + y_2 * l_2(x) + ... + y_n * l_n(x)
function ertek = lagrange(xAdat, yAdat, x)
  ertek = 0;  # ismetelt osszeadast fogunk csinalni, igy 0-rol indulunk
  for i = 1 : length(xAdat)
    ertek = ertek + yAdat(i) * lix(i, xAdat, x);
  endfor
endfunction