|
Текст подпрограммы и версий ( Фортран ) sf80r.zip |
Тексты тестовых примеров ( Фортран ) tsf80r.zip |
|
Текст подпрограммы и версий ( Си ) sf80r_c.zip |
Тексты тестовых примеров ( Си ) tsf80r_c.zip |
|
Текст подпрограммы и версий ( Паскаль ) sf80r_p.zip |
Тексты тестовых примеров ( Паскаль ) tsf80r_p.zip |
Вычисление функции распределения вероятностей Парето.
Подпрограмма SF80R вычисляет вероятность P того, что случайная величина, имеющая распределение Парето с параметрами A, x0, меньше или pавна значению x:
x
P = A/x0 ∫ (x0 / Z)A - 1 dZ , x ≥ x0 > 0 , A > 0
x0
Справочник по теории вероятностей. Под ред. M.Абрамовица, И.Стеган. M.: "Hаука", 1979.
SUBROUTINE SF80R (X, A, X0, P, IERR)
Параметры
| X - | заданное значение аргумента x (тип: вещественный); |
| A, X0 - | заданные значения параметров распределения Парето (тип: вещественный); |
| P - | вещественная переменная, содержащая вычисленное значение функции распределения Парето; |
| IERR - | целая переменная, служащая для сообщения об ошибках; при этом: |
| IERR=65 - | когда A ≤ 0 либо x0 ≤ 0; значение функции распределения полагается равным нулю. |
Версии: нет
Вызываемые подпрограммы
| UTSF16 - | подпрограмма выдачи диагностических сообщений при работе подпрограммы SF80R. |
Замечания по использованию: нет
CALL SF80R (4.0, 1.0, 1.0, P, IERR) Результаты: P = 0.75 , IERR = 0