|
Текст подпрограммы и версий ( Фортран ) sf51r.zip |
Тексты тестовых примеров ( Фортран ) tsf51r.zip |
|
Текст подпрограммы и версий ( Си ) sf51r_c.zip |
Тексты тестовых примеров ( Си ) tsf51r_c.zip |
|
Текст подпрограммы и версий ( Паскаль ) sf51r_p.zip |
Тексты тестовых примеров ( Паскаль ) tsf51r_p.zip |
Вычисление обратной функции нормального распределения вероятности.
SF51R вычисляет значение x такое, что
x
1/(2π)1/2 ∫ e - t*t / 2 dt = P ,
-∞
где P - заданное значение вероятности (0 < P < 1).
Алгоритм, реализованный в подпрограмме, основан на использовании минимаксных аппроксимаций.
A.J.Strecok, On the Calculation of the Inverse of the Error Function, Mathematics of Computation, 22(101), 1968.
REAL FUNCTION SF51R (P, IERR)
Параметры
| P - | заданное значение вероятности (тип: вещественный); |
| IERR - | целая переменная, служащая для сообщения об ошибках, обнаруженных в ходе работы функции; при этом: |
| IERR=65 - | когда заданное значение вероятности P не принадлежит интервалу (0, 1); значение функции полагается равным 3.4E38. |
Версии: нет
Вызываемые подпрограммы
| UTSF12 - | подпрограмма выдачи диагностических сообщений в ходе работы функции SF51R. |
Замечания по использованию: нет
P = 0.5
Y = SF51R (P, IERR)
Результаты: Y = 0.0 , IERR = 0