Текст подпрограммы и версий ( Фортран )
zp54r.zip  zp54d.zip 
Тексты тестовых примеров ( Фортран )
tzp54r.zip  tzp54d.zip 
Текст подпрограммы и версий ( Си )
zp54r_c.zip  zp54d_c.zip 
Тексты тестовых примеров ( Си )
tzp54r_c.zip  tzp54d_c.zip 
Текст подпрограммы и версий ( Паскаль )
zp54r_p.zip  zp54e_p.zip 
Тексты тестовых примеров ( Паскаль )
tzp54r_p.zip  tzp54e_p.zip 

Функция:  ZP54R

Назначение

Вычисление присоединенного полинома Лежандра первого рода

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

Подпрограмма - функция ZP54R вычисляет значение в точке  X присоединенного полинома Лежандра первого рода

                PLM(X)  =  (- 1)M (1 - X2)M/2   dM( PL(X) )/dXM  , 

где PL (X) = ( 1/( 2L L!) ) dL( (X2 - 1)L )/dXL
является полиномом Лежандра первого рода  L - й степени

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

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

    FUNCTION  ZP54R (L, M, X, IERR) 

Параметры

L, M - заданные значения  L и  M (тип: целый);
X - заданное значение агрумента (тип: вещественный);
IERR - целая переменная, служащая для сообщения об ошибках, обнаруженных в ходе работы подпрограммы - функции; при этом:
IERR=65 - когда значения  L и  M не удовлетворяют соотношению 0 ≤ M ≤ L;
IERR=66 - когда значение  X лежит вне отрезка [- 1, 1]

Версии

ZP54D - вычисление присоединенного полинома Лежандра первого рода в режиме удвоенной точности; при этом параметр  X должен иметь тип DOUBLE PRECISION, а функция ZP54D должна быть описана как DOUBLE PRECISION  FUNCTION

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

 UTZP12 -
 UTZP13  
подпрограммы выдачи диагностических сообщений при работе функций ZP54R и ZP54D соответственно

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

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

      L = 2 
      M = 1 
      X = 0.5 
      RES = ZP54R (L, M, X, IERR) 

Результаты:

          RES  = - 1.29904 
          IERR = 0