Текст подпрограммы и версий ( Фортран )
zp34r.zip  zp34d.zip 
Тексты тестовых примеров ( Фортран )
tzp34r.zip  tzp34d.zip 
Текст подпрограммы и версий ( Си )
zp34r_c.zip  zp34d_c.zip 
Тексты тестовых примеров ( Си )
tzp34r_c.zip  tzp34d_c.zip 
Текст подпрограммы и версий ( Паскаль )
zp34r_p.zip  zp34e_p.zip 
Тексты тестовых примеров ( Паскаль )
tzp34r_p.zip  tzp34e_p.zip 

Подпрограмма:  ZP34R

Назначение

Вычисление натурального логарифма от полинома с вещественными коэффициентами.

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

ZР34R вычисляет М первых коэффициентов полинома

       B(X)  =  B(1) + B(2)*X + B(3)*X2 + ... + B(M)*X(M - 1) + ...  , 

такого, что  В (Х) = ln А (Х), где  А (Х) заданный полином степени NР

       A(X)  =  A(1) + A(2)*X + A(3)*X2 + ... + A(NP + 1)*XNP  , 

у которого коэффициенты  А ( I ),  I = 1, 2, 3, ..., NР + 1 являются вещественными и  А (1) > 0.

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

    SUBROUTINE  ZP34R (NP, A, M, B, IERR) 

Параметры

NP - заданная степень полинома  А (Х) (тип: целый);
A - вещественный вектор длины NР + 1, содержащий коэффициенты заданного полинома  А (Х) в порядке возрастания степеней;
M - заданное число искомых коэффициентов полинома  В (Х) (тип: целый);
B - вещественный вектор длины М, содержащий вычисленные коэффициенты полинома  В (Х) в порядке возрастания степеней;
IERR - целая переменная, значение которой в результате работы подпрограммы полагается равной 65, если А (1) Ј 0.

Версии

ZP34D - вычисление натурального логарифма от полинома с вещественными коэффициентами с повышенной точностью. При этом векторы А и В должны иметь тип DОUВLЕ РRЕСISIОN.

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

UTZP10 - подпрограмма выдачи диагностических сообщений при работе подпрограммы ZР34R.
UTZP11 - подпрограмма выдачи диагностических сообщений при работе подпрограммы ZР34D.

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

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

       DIMENSION  A(5), B(6)
       DATA  A(1), A(2), A(3), A(4), A(5) /24., - 50., 35., - 10., 1./
       NP = 4
       M = 6
       CALL  ZP34R (NP, A, M, B, IERR)

Результаты:

       В(1) = 3.178053 ,    В(2) = - 2.083333 ,  В(3) = - 0.711556 ,
       B(4) = - 0.392554 ,  B(5) = - 0.269688 ,  B(6) = - 0.207268 , 

       IERR = 0