|
Текст подпрограммы и версий ( Фортран ) sf77r.zip |
Тексты тестовых примеров ( Фортран ) tsf77r.zip |
|
Текст подпрограммы и версий ( Си ) sf77r_c.zip |
Тексты тестовых примеров ( Си ) tsf77r_c.zip |
|
Текст подпрограммы и версий ( Паскаль ) sf77r_p.zip |
Тексты тестовых примеров ( Паскаль ) tsf77r_p.zip |
Вычисление обратной функции треугольного распределения вероятностей.
SF77R вычисляет значение x такое, что F (x, G1, G2) = P, где F (x, G1, G2) - функция треугольного распределения вероятностей:
x
F(x, G1, G2) = 2 ∫ ( ( 1/|G1 - G2| ) - ( |G1 + G2 - 2Z|/(G1 - G2)2 ) ) dz ,
min(G1, G2)
min(G1, G2) ≤ x ≤ max(G1,G2)
Справочник по специальным функциям. Под ред. M.Абрамовица, И.Стеган. M.: "Hаука", 1979.
SUBROUTINE SF77R (P, G1, G2, X, IERR)
Параметры
| P - | заданное значение аргумента (тип: вещественный); |
| G1, G2 - | параметры треугольного распределения (границы интервала, на котоpом сосредоточено распределение) (тип: вещественный); |
| X - | вещественная переменная, содержащая вычисленное значение функции; |
| IERR - | целая переменная, служащая для сообщения об ошибках; при этом: |
| IERR=66 - | когда P < 0 либо P > 1; значение X полагается равным нулю. |
Версии: нет
Вызываемые подпрограммы
| UTSF16 - | подпрограмма выдачи диагностических сообщений при работе подпрограммы SF77R. |
Замечания по использованию
| Границы интервала G1, G2 допустимо задавать в любом порядке (т.е. G2 можно задавать как больше, так и меньше G1). |
CALL SF77R (0.5, 0.0, 2.0, X, IERR) Результаты: X = 1.0 , IERR = 0