|
Текст подпрограммы и версий ( Фортран ) sf41r.zip sf41d.zip |
Тексты тестовых примеров ( Фортран ) tsf41r.zip tsf41d.zip |
|
Текст подпрограммы и версий ( Си ) sf41r_c.zip sf41d_c.zip |
Тексты тестовых примеров ( Си ) tsf41r_c.zip tsf41d_c.zip |
|
Текст подпрограммы и версий ( Паскаль ) sf41r_p.zip , sf41e_p.zip |
Тексты тестовых примеров ( Паскаль ) tsf41r_p.zip , tsf41e_p.zip |
Вычисление биномиальной функции распределения вероятностей Вi (n, p).
Пусть мы имеем n испытаний Бернулли с вероятностью p успеха каждого такого испытания. Тогда SF41R вычисляет вероятность РК того, что будет получено pовно K успешных испытаний, и вероятность PS того, что число успешных испытаний будет меньше или pавно K.
W.H.Beyer, Handbook of Tables for Probability and Statistics, The Chemical Rubber Co., Cleveland, Ohio, 1966.
SUBROUTINE SF41R (N, K, P, PK, PS, IERR)
Параметры
| N - | заданное число испытаний Бернулли n (тип: целый); |
| K - | заданное число успешных испытаний (тип: целый); |
| P - | заданная вероятность успеха каждого испытания Бернулли (тип: вещественный); |
| PK - | вещественная переменная, значение которой в pезультате работы функции полагается равным веpоятности того, что будет получено pовно K успешных испытаний; |
| PS - | вещественная переменная, значение которой в pезультате работы функции полагается равным веpоятности того, что число успешных испытаний будет меньше или pавно K; |
| IERR - | целая переменная, служащая для сообщения об ошибках, обнаруженных в ходе работы функции; при этом: |
| IERR=65 - | когда число успешных испытаний Бернулли задано меньшим 0 или большим общего числа испытаний; значения выходных вероятностей положены равными 3.4E38; |
| IERR=66 - | когда заданная вероятность успешного испытания Бернулли не принадлежит отрезку [0, 1]; значения выходных вероятностей положены равными 3.4E38. |
Версии
| SF41D - | вычисление биномиальной функции распределения вероятностей Bi (n, p) с повышенной точностью. |
Вызываемые подпрограммы
| UTSF12 - | подпрограмма выдачи диагностических сообщений при работе подпрограммы SF41R. |
| UTSF13 - | подпрограмма выдачи диагностических сообщений при работе подпрограммы SF41D. |
Замечания по использованию
| Для функции SF41D параметры P, PK и PS должны иметь тип DOUBLE PRECISION и при IERR ≠ 0 значения выходных вероятностей полагаются равными 1.7D308. |
N = 5
K = 0
P = 0.05
CALL SF41R (N, K, P, PK, PS, IERR)
Результаты:
PK = 0.773780937
PS = 0.773780937
IERR = 0