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

Подпрограмма:  SF80R (модуль SF80R_p)

Назначение

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

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

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

                         x
        P = A/x0  ∫ (x0 / Z)A - 1 dZ  ,      x ≥ x0 > 0  ,   A > 0
                       x0

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

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

procedure SF80R(X :Real; A :Real; X0 :Real; var P :Real;
                var IERR :Integer);


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

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

Unit tsf80r_p;
interface
uses
SysUtils, Math, { Delphi }
Lstruct, Lfunc, UtRes_p, SF80R_p;

function tsf80r: String;

implementation

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

end.


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