|
Текст подпрограммы и версий ( Фортран ) sf73r.zip |
Тексты тестовых примеров ( Фортран ) tsf73r.zip |
|
Текст подпрограммы и версий ( Си ) sf73r_c.zip |
Тексты тестовых примеров ( Си ) tsf73r_c.zip |
|
Текст подпрограммы и версий ( Паскаль ) sf73r_p.zip |
Тексты тестовых примеров ( Паскаль ) tsf73r_p.zip |
Вычисление функции треугольного распределения вероятностей.
SF73R вычисляет вероятность P того, что случайная величина, имеющая треугольное распределение с параметрами G1, G2, меньше или pавна значению x:
x
P = 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 SF73R (X, G1, G2, P)
Параметры
| X - | заданное значение аргумента (тип: вещественный); |
| G1, G2 - | параметры треугольного распределения (границы интервала, на котоpом сосредоточено распределение) (тип: вещественный); |
| P - | вещественная переменная, содержащая вычисленное значение вероятности. |
Версии: нет
Вызываемые подпрограммы: нет
Замечания по использованию
| Границы интервала G1, G2 допустимо задавать в любом порядке (т.е. G2 можно задавать как больше, так и меньше G1). |
CALL SF73R (1.0, 0.0, 2.0, P) Результат: P = 0.5