|
Текст подпрограммы и версий ( Фортран ) sf31r.zip sf31d.zip |
Тексты тестовых примеров ( Фортран ) tsf31r.zip tsf31d.zip |
|
Текст подпрограммы и версий ( Си ) sf31r_c.zip sf31d_c.zip |
Тексты тестовых примеров ( Си ) tsf31r_c.zip tsf31d_c.zip |
|
Текст подпрограммы и версий ( Паскаль ) sf31r_p.zip , sf31e_p.zip |
Тексты тестовых примеров ( Паскаль ) tsf31r_p.zip , tsf31e_p.zip |
Вычисление значений интегрального косинуса.
Функция SF31R вычисляет значение интегрального косинуса
x
Ci (x) = ∫ cos t / t dt
∞
для вещественных значений аргумента x.
J.F.Hart, E.W.Cheney, C.L.Lawson, Computer Approximations, Wiley, New York, 1968.
REAL FUNCTION SF31R (X, IERR)
Параметры
| X - | заданное значение аргумента x (тип: вещественный); |
| IERR - | целая переменная, служащая для сообщения об ошибках, обнаруженных в ходе работы функции; при этом: |
| IERR=65 - | когда аргумент принимает значение меньшее или pавное 0.; значение функции полагается равным 3.4E38. |
Версии
| SF31D - | вычисление значений интегрального косинуса с повышенной точностью. |
Вызываемые подпрограммы
| UTSF10 - | подпрограмма выдачи диагностических сообщений при работе функции SF31R. |
| UTSF11 - | подпрограмма выдачи диагностических сообщений при работе функции SF31D. |
Замечания по использованию
| Для функции SF31D параметр X имеет тип DOUBLE PRECISION. Если значение аргумента X меньше или pавно 0, значение IERR полагается равным 65, а значение функции равным 1.7D308. |
X = 3.141592653589 / 2
Y = SF31R (X, IERR)
Результаты:
Y = 0.472000651432, IERR = 0