Проблема полинома Лагранжа

[levashovea]

Добрый день, помогите решить проблему.
Написана программа по аппроксимации графика. Все работает, но есть некоторые но. Около первой и последней точки график "выгибается". Как решить проблему?

ss:=0;
     for i := 0 to nas.testpoint do  begin
     L:=1;
      for j := 0 to nas.testpoint do  if i<>j   then
      begin
        xi:=x1g+Round((x2g-x1g)*absQ(2*nas.Qtest[i]/nas.Qmax60-1)/xQmax);
        xj:=x1g+Round((x2g-x1g)*absQ(2*nas.Qtest[j]/nas.Qmax60-1)/xQmax);
        L:= L*((x-xj)/(xi-xj));
      end;
     yi:=y2g - round ((y2g-y1g)/ykpdmax*nas.KPDtest[i]) ;
     ss:=(ss+yi*L);
     end;
     y:=Round(ss);
     if x=xna then canvas.MoveTo(x,y) else canvas.LineTo(x,y);
x:=x+1;
until x>xkn;

[northener]

Сообщение от levashovea

Добрый день, помогите решить проблему.
Написана программа по аппроксимации графика. Все работает, но есть некоторые но. Около первой и последней точки график "выгибается". Как решить проблему?

1. Заменить полином.
2. Выбрать другой вариант интерполяции.
P.S. И кто придумал термин "аппроксимация графика"?