|
Текст подпрограммы и версий zp56r_c.zip zp56d_c.zip |
Тексты тестовых примеров tzp56r_c.zip tzp56d_c.zip |
Вычисление значения полинома Эрмита от вещественного аргумента.
Подпрограмма - функция zp56r_c вычисляет значение полинома Эрмита N - го порядка от вещественного аргумента x:
HN (x) = ( -1 )N ex*x ( dN e -x*x / dxN ) , N = 0, 1, 2,...
по рекуррентной формуле
HN+1(x) = 2x HN(x) - 2N HN-1(x), N = 1, 2,...
Янке Е., Эмде Ф., Леш Ф. Специальные функции. М.: Наука, 1977.
real zp56r_c (integer *n, real *x)
Параметры
| n - | заданный порядок полинома Эрмита (тип: целый); |
| x - | заданное значение вещественного аргумента, при котором необходимо вычислить значение полинома Эрмита (тип: вещественный). |
Версии
| zp56d_c - | вычисление значения полинома Эрмита от вещественного аргумента в режиме удвоенной точности; при этом параметр x должен иметь тип double, а подпрограмма - функция zp56d_c должна быть описана как double . |
Вызываемые подпрограммы: нет
Замечания по использованию: нет
int main(void)
{
/* Local variables */
extern float zp56r_c(int *, float *);
static int n;
static float x, y;
n = 5;
x = 2.f;
y = (float)zp56r_c(&n, &x);
printf("\n %16.7e \n", y);
return 0;
} /* main */
Результат: y = -16