Текст подпрограммы и версий
zp58r_p.zip  zp58e_p.zip 
Тексты тестовых примеров
tzp58r_p.zip  tzp58e_p.zip 

Функция:  ZP58R (модуль ZP58R_p)

Назначение

Вычисление значения нормированного полинома Лагерра от вещественного аргумента.

Математическое описание

Подпрограмма - функция ZP58R вычисляет значение нормированного полинома Лагерра N - го порядка от вещественного аргумента  x:

                  LN (x)    =   (ex /  N!)   dN ( xN e -x ) /  dxN ,    N = 0, 1, 2,... 
по рекуррентной формуле

                   LN(x)    =    ( 2N - 1 - x ) LN-1(x) / N   -   ( N - 1 ) LN-2(x) / N,     N = 2, 3, ... 

Янке Е., Эмде Ф., Леш Ф. Специальные функции. М.: Наука, 1977.

Использование

function ZP58R(N :Integer; X :Real): Real;

Параметры

N - заданный порядок нормированного полинома Лагерра (тип: целый);
X - заданное значение вещественного аргумента, при котором необходимо вычислить значение нормированного полинома Лагерра (тип: вещественный).

Версии

ZP58E - вычисление значения нормированного полинома Лагерра от вещественного аргумента в режиме расширенной (Extended) точности; при этом параметр X должен иметь тип Extended, и функция ZP58E также должна иметь тип Extended.

Вызываемые подпрограммы: нет

Замечания по использованию: нет

Пример использования

Unit tzp58r_p;
interface
uses
SysUtils, Math, { Delphi }
Lstruct, Lfunc, UtRes_p, ZP58R_p;

function tzp58r: String;

implementation

function tzp58r: String;
var
N :Integer;
X,Y :Real;
begin
Result := '';  { результат функции }
N := 2;
X := 2.0;
Y := ZP58R(N,X);
Result := Result + Format('%20.16f ',[Y]) + #$0D#$0A;
UtRes('tzp58r',Result);  { вывод результатов в файл tzp58r.res }
exit;
end;

end.


Результат:       Y  =  -1