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

Подпрограмма:  SF69R (модуль SF69R_p)

Назначение

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

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

SF69R вычисляет вероятность P того, что случайная величина, имеющая показательное распределение с параметром  λ, меньше или pавна значению  x: 

                  x
        P = λ ∫ e - λz dz ,   x > 0
                 0

Справочник по специальным функциям. Под ред. M.Абрамовица, И.Стеган. M.: "Hаука", 1979.

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

procedure SF69R(X :Real; RL :Real; var P :Real;
                var IERR :Integer);


   Параметры
X - заданное значение аргумента (тип: вещественный);
RL - параметр  λ показательного распределения (тип: вещественный);
P - вещественная переменная, содержащая вычисленное значение вероятности;
IERR - целая переменная, служащая для сообщения об ошибках; при этом:
  IERR = 65, когда  λ ≤ 0; значение  P полагается равным нулю. 
   Версии:  нет 
   Вызываемые подпрограммы
UTSF16 - подпрограмма выдачи диагностических сообщений при работе подпрограммы SF69R. 
   Замечания по использованию:  нет

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

Unit tsf69r_p;
interface
uses
SysUtils, Math, { Delphi }
Lstruct, Lfunc, UtRes_p, SF69R_p;

function tsf69r: String;

implementation

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

end.


Результаты:    PR  =  0.6321205588274 ,   IER  =  0