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

Подпрограмма:  SF78R (модуль SF78R_p)

Назначение

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

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

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

                         x
        P = 1/πλ  ∫  dz / ( λ2 + (A - Z)2 ) ,   λ > 0
                      -∞

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

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

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


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

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

Unit tsf78r_p;
interface
uses
SysUtils, Math, { Delphi }
Lstruct, Lfunc, UtRes_p, SF78R_p;

function tsf78r: String;

implementation

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

end.


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