Текст подпрограммы и версий zp58r_p.zip zp58e_p.zip |
Тексты тестовых примеров tzp58r_p.zip tzp58e_p.zip |
Вычисление значения нормированного полинома Лагерра от вещественного аргумента.
Подпрограмма - функция 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