|
Текст подпрограммы и версий ( Фортран ) zp30r.zip zp30d.zip |
Тексты тестовых примеров ( Фортран ) tzp30r.zip tzp30d.zip |
|
Текст подпрограммы и версий ( Си ) zp30r_c.zip zp30d_c.zip |
Тексты тестовых примеров ( Си ) tzp30r_c.zip tzp30d_c.zip |
|
Текст подпрограммы и версий ( Паскаль ) zp30r_p.zip zp30e_p.zip |
Тексты тестовых примеров ( Паскаль ) tzp30r_p.zip tzp30e_p.zip |
Вычисление значения полинома с вещественными коэффициентами от заданного вещественного аргумента.
ZР30R вычисляет значение полинома степени NР с вещественными коэффициентами
A(1) + A(2)*X + A(3)*X2 + ... + A(NP + 1)*XNP
от заданного вещественного аргумента по схеме Горнера.
FUNCTION ZP30R (NP, A, X)
Параметры
| NP - | заданная степень полинома (тип: целый); |
| A - | вещественный вектор длины NР + 1, содержащий коэффициенты исходного полинома в порядке возрастания степеней; |
| X - | заданное значение аргумента (тип: вещественный). |
Версии
| ZP30D - | вычисление значения полинома с вещественными коэффициентами от заданного вещественного аргумента с повышенной точностью. При этом вектор А и значение аргумента Х должны иметь тип DОUВLЕ РRЕСISIОN. |
Вызываемые подпрограммы: нет
Замечания по использованию: нет
DIMENSION A(5)
DATA A(1), A(2), A(3), A(4), A(5) /24., - 50., 35., - 10., 1./
NP = 4
X = 3
Y = ZP30R (NP, A, X)
Результат: Y = 0.0