Интерполяционный полином Ньютона

[Skay]

Народ, люди, человеки! Помогите пожалуйста!!! У меня тут проблемка!! Необходимо написать программу на Delphi или Visual Basic - нужно построить график функции интерполяционного полинома Ньютона!!!(функция не задана). У меня нифига не получается...только график обычный могу построить((( надеюсь есть математики-программисты!!))

[Virtson]

http://alglib.sources.ru/interpolation/polynomial.php

но у меня остался именно Ньютон )

(********************************************************
Интерполяция по Ньютону.

function NewtonInterpolate(
    const   n   :   Integer;
    const   x   :   array of Real;
            y   :   array of Real;
            t   :   Real):Real;

Параметры:
    N       - число точек массиве минус один
    X, Y    - массивы абсцисс и ординат с номерами от 0 до N.
    T       - параметр, положение точки на кривой.

Результат:
    Значение интерполяционного полинома проходящего через точки
(x[i], F[i]), в точке t.
 ****************************************************)
function NewtonInterpolate(n : Integer;
     const x : TReal1DArray;
     y : TReal1DArray;
     t : Double):Double;
var
    I : Integer;
    k : Integer;
    i1 : Integer;
    l : Double;
    s : Double;
begin
    l := y[0];
    s := 1;
    i:=n;
    while i>=1 do
    begin
        i1 := n-i;
        k:=0;
        while k<=i-1 do
        begin
            y[k] := (y[k+1]-y[k])/(x[k+1+i1]-x[k]);
            Inc(k);
        end;
        s := s*(t-x[i1]);
        l := l+y[0]*s;
        Dec(i);
    end;
    Result := l;
end;

[Skay]

Спасибо огромное!!!!Ты оч хороший чел!!!!!Спасибо те добрый чел!!!))))