Текст подпрограммы и версий ( Фортран )
zp31r.zip  zp31d.zip  		Тексты тестовых примеров ( Фортран )
tzp31r.zip  tzp31d.zip 
Текст подпрограммы и версий ( Си )
zp31r_c.zip  zp31d_c.zip  		Тексты тестовых примеров ( Си )
tzp31r_c.zip  tzp31d_c.zip 
Текст подпрограммы и версий ( Паскаль )
zp31r_p.zip  zp31e_p.zip  		Тексты тестовых примеров ( Паскаль )
tzp31r_p.zip  tzp31e_p.zip 

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

Назначение

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

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

ZР31R вычисляет коэффициенты полинома степени NР 

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

по заданным его вещественным корням RООТ ( I ),  I = 1, 2, 3, ..., NР.

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

    SUBROUTINE  ZP31R (NP, ROOT, A) 
   Параметры
NP - заданная степень полинома (тип: целый);
ROOT - вещественный вектор длины NР, содержащий заданные корни полинома;
A - вещественный вектор длины NР + 1, содержащий вычисленные коэффициенты полинома в порядке возрастания степеней. 
   Версии
ZP31D - вычисление коэффициентов полинома по заданным его вещественным корням с повышенной точностью. При этом векторы RООТ и А должны иметь тип DОUВLЕ RЕСISIОN. 
   Вызываемые подпрограммы:  нет 
   Замечания по использованию:  нет

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

       DIMENSION  ROOT(4), A(5)
       DATA  ROOT(1), ROOT(2), ROOT(3), ROOT(4) /1., 2., 3., 4./
       NP = 4
       CALL  ZP31R (NP, ROOT, A)

Результаты:

       А(1) = 24.0 ,    А(2) = - 50.0 ,   А(3) = 35.0 ,
       A(4) = - 10.0,   A(5) = 1.0