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

Подпрограмма:  SF71R (модуль SF71R_p)

Назначение

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

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

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

                       x
        P = λ/2  ∫ e - λ |z - A| dz ,   λ > 0
                    -∞

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

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

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


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

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

Unit tsf71r_p;
interface
uses
SysUtils, Math, { Delphi }
Lstruct, Lfunc, UtRes_p, SF71R_p;

function tsf71r: String;

implementation

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

end.


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