Текст подпрограммы и версий
zp61r_p.zip  zp61e_p.zip  		Тексты тестовых примеров
tzp61r_p.zip  tzp61e_p.zip 

Функция:  ZP61R (модуль ZP61R_p)

Назначение

Вычисление значений присоединенного полинома Лежандра первого рода от мнимых аргументов.

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

Подпрограмма - функция ZP61R вычисляет значения полинома Лежандра первого рода от мнимых аргументов  i x : 

                                                                            dm Pn ( i x )
                  Pnm ( i x )    =    ( ( i x )2 - 1 )m/2     -------------------      ,
                                                                              dxm
где                                      1                    dn
               Pn ( i x )    =     ---------      ------------    ( ( i x )2 - 1 )n   -
                                         2n n!              dxn

                                   - полином Лежандра первого рода n-ой степени

Абрамовиц М., Стиган И. Справочник по специальным функциям. М.: Наука, 1979.

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

function ZP61R(M :Integer; N :Integer; X :Real): Real;


   Параметры
M, N - заданные значения  m  и  n  (тип: целый);
X - заданное значение мнимого аргумента (тип: вещественный). 
   Версии
ZP61E - вычисление значений присоединенного полинома Лежандра первого рода от мнимых аргументов в режиме расширенной (Extended) точности; при этом параметр X должен иметь тип Extended. 
   Вызываемые подпрограммы:  нет 
   Замечания по использованию:  нет

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

Unit tzp61r_p;
interface
uses
SysUtils, Math, { Delphi }
Lstruct, Lfunc, UtRes_p, ZP61R_p;

function tzp61r: String;

implementation

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

end.


Результат:           Y = 35.8468