Evaluation symbol...

[salvomic]

ok,
the best way could be this:

Code:


EXPORT lagrangeValue(lista_x, lista_y, xValue)
BEGIN
  LOCAL y, temp;
  // y:= unapply(lagrange(lista_x, lista_y), X);
  temp:= lagrange(lista_x, lista_y);
  y:= EVAL(EXPR(temp+"|X="+xValue));
  RETURN y;
END;

my input is:
lagrangeValue({29.43,30.97,27.69,28.11,31.58,33.05},{0.4913598528,0.5145891926, 0.4646875083, 0.4711658342, 0.5236885653, 0.5453707057}, 30)
(list of value about 30, list of sines, xValue to get=30)
I get 0.500000000018 instead of 0.5, but it's almost ok.

Salvo