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

Подпрограмма:  SF59R (модуль SF59R_p)

Назначение

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

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

SF59R вычисляет отношение 

(1)     R (x) = φ (x) / ( 1 - Ф (x) )  ,

где Ф (x) - функция стандартного нормального распределения вероятностей, а φ (x) - функция плотности стандартного нормального распределения ( φ (x) = Ф' (x) ).

Л.Н.Большев, Н.В.Смирнов, Таблицы математической статистики, "Наука", 1965.

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

procedure SF59R(X :Real; var R :Real);


   Параметры
X - заданное значение аргумента  x (тип: вещественный);
R - вещественная переменная, содержащая вычисленное значение отношения (1). 
   Версии:  нет 
   Вызываемые подпрограммы
SF35R - вычисление дополнительной функции ошибок (дополнительного интеграла вероятностей) erfc x. 
   Замечания по использованию:  нет

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

Unit tsf59r_p;
interface
uses
SysUtils, Math, { Delphi }
Lstruct, Lfunc, UtRes_p, SF59R_p;

function tsf59r: String;

implementation

function tsf59r: String;
var
X,RM :Real;
begin
Result := '';  { результат функции }
X := 2.0;
SF59R(X,RM);
Result := Result + Format(' %20.16f %20.16f ',[X,RM]) + #$0D#$0A;
UtRes('tsf59r',Result);  { вывод результатов в файл tsf59r.res }
exit;
end;

end.


Результат:    RM  =  2.3732155328