Текст подпрограммы и версий zp61r_c.zip zp61d_c.zip |
Тексты тестовых примеров tzp61r_c.zip tzp61d_c.zip |
Вычисление значений присоединенного полинома Лежандра первого рода от мнимых аргументов.
Подпрограмма - функция zp61r_c вычисляет значения полинома Лежандра первого рода от мнимых аргументов 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.
real zp61r_c (integer *m, integer *n, real *x)
Параметры
m, n - | заданные значения m и n (тип: целый); |
x - | заданное значение мнимого аргумента (тип: вещественный). |
Версии
zp61d_c - | вычисление значений присоединенного полинома Лежандра первого рода от мнимых аргументов в режиме удвоенной точности; при этом параметр x должен иметь тип double . |
Вызываемые подпрограммы: нет
Замечания по использованию: нет
int main(void) { /* Local variables */ extern float zp61r_c(int *, int *, float *); static int m, n; static float x, y; m = 3; n = 4; x = .3f; y = (float)zp61r_c(&m, &n, &x); printf("\n %16.7e \n", y); return 0; } /* main */ Результат: y = 35.8468