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

Подпрограмма:  SF81R (модуль SF81R_p)

Назначение

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

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

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

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

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

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

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


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

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

Unit tsf81r_p;
interface
uses
SysUtils, Math, { Delphi }
Lstruct, Lfunc, UtRes_p, SF81R_p;

function tsf81r: String;

implementation

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

end.


Результаты:    FX  =  4.0 ,   IER  =  0