Delphi. Функция Poly( X: Extended; const Coefficients: array of Double ): Extended;

Функция Poly( X: Extended; const Coefficients: array of Double ): Extended;

Модуль: Math

Описание
Функция вычисляет однородный полином

Coefficients[0] + Coefficients[1]*X + Coefficients[1]*(X**2) + ... + Coefficients[N]*(X**N).

Пример
var
  y: Extended;
  c: array of Double;
begin
...
  SetLength(c, 3);
  c[0]:=10;
  c[1]:=20;
  c[2]:=30;
  y:= Poly( 2, c );      {y:= 170}
...
end;