Есть у кого код??(интерпритационный многочлен Лагранжа)

[ins1der]

кто-нибудь может скинуть програмный код на интерпритационный многочлен Лагранжа под делфи. Буду очень благодарен

[Fuadik]

Если речь идет о интерполяционном полиноме Лагранжа, то вот:
#
procedure TForm1.BitBtn2Click(Sender: TObject);
var i, j, n: integer;
L, p1, p2, xx: real;
x, y: array[0..9] of real;
begin
{Кол-во заданных точек}
n:=3;
{Заданные точки}
x[0]:=1;
y[0]:=3;
x[1]:=3;
y[1]:=4;
x[2]:=5;
y[2]:=5;
{Искомая точка}
xx:=4;
{Значение полинома Лагранжа}
L:=0;
for i:=0 to 2 do
begin
p1:=1;
p2:=1;
for j:=0 to 2 do
begin
if i<>j then
begin
p1:=p1*(xx-x[j]);
p2:=p2*(x[i]-x[j]);
end;
end;
L:=L+y[i]*p1/p2;
end;
Label1.Caption:=FloatToStr(L);
end;
#
Художественное оформление сделайте на свой вкус

[ins1der]

спасибо большое!