|
Текст подпрограммы и версий ( Фортран ) sf12r.zip sf12d.zip |
Тексты тестовых примеров ( Фортран ) tsf12r.zip tsf12d.zip |
|
Текст подпрограммы и версий ( Си ) sf12r_c.zip sf12d_c.zip |
Тексты тестовых примеров ( Си ) tsf12r_c.zip tsf12d_c.zip |
|
Текст подпрограммы и версий ( Паскаль ) sf12r_p.zip , sf12e_p.zip |
Тексты тестовых примеров ( Паскаль ) tsf12r_p.zip , tsf12e_p.zip |
Вычисление интеграла Доусона.
Функция SF12R производит вычисление интеграла
x
y = e-x*x ∫ et*tdt
0
для всех вещественных x, используя рациональные чебышевские аппроксимации.
W.Cody, K.A.Paciorek, H.C.Thacher, Chebyshev Approximations for Dawson's Integral, Math. Comp., 24, 1970.
FUNCTION SF12R (X)
Параметры
| X - | заданное значение аргумента x (тип: вещественный). |
Версии
| SF12D - | вычисление интеграла Доусона с повышенной точностью. |
Вызываемые подпрограммы: нет
Замечания по использованию
| Функции SF12R и SF12D производят вычисления для всех x, представимых на машине с обычной и удвоенной точностью соответственно. |
X = -1.6
Y = SF12R (X)
Результат:
Y = -0.399939894324