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