Текст подпрограммы и версий
sf73r_p.zip 		Тексты тестовых примеров
tsf73r_p.zip

Подпрограмма:  SF73R (модуль SF73R_p)

Назначение

Вычисление функции треугольного распределения вероятностей.

Математическое описание

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.

Использование 

procedure SF73R(X :Real; G1 :Real; G2 :Real; var P :Real);


   Параметры
X - заданное значение аргумента (тип: вещественный);
G1, G2 - параметры треугольного распределения (границы интервала, на котоpом сосредоточено распределение) (тип: вещественный);
P - вещественная переменная, содержащая вычисленное значение вероятности. 
   Версии:  нет 
   Вызываемые подпрограммы:  нет 
   Замечания по использованию
  Границы интервала G1, G2 допустимо задавать в любом порядке (т.е. G2 можно задавать как больше, так и меньше G1).

Пример использования 

Unit tsf73r_p;
interface
uses
SysUtils, Math, { Delphi }
Lstruct, Lfunc, UtRes_p, SF73R_p;

function tsf73r: String;

implementation

function tsf73r: String;
var
PR :Real;
begin
Result := '';  { результат функции }
SF73R(1.0,0.0,2.0,PR);
Result := Result + Format('%16.7f ',[PR]) + #$0D#$0A;
UtRes('tsf73r',Result);  { вывод результатов в файл tsf73r.res }
exit;
end;

end.


Результат:    PR  =  0.5