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

Функция:  SF49R (модуль SF49R_p)

Назначение

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

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

SF49R вычисляет вероятность того, что случайная величина, подчиненная закону нормального распределения с математическим ожиданием 0 и диспресией 1 (стандартизованное нормальное распределение), меньше или pавна значению  x.

Другими словами, SF49R вычисляет интеграл
                     x
     1/(2π)1/2 ∫ e - t*t / 2 dt
                  -∞

M.Abramowitz, I.A.Stegun, Handbook of Mathematical Functions, Dover Publications, Inc., New York, 1965.

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

function SF49R(X :Real): Real;


   Параметр
X - заданное значение аргумента  x (тип: вещественный). 
   Версии:  нет 
   Вызываемые подпрограммы:  нет 
   Замечания по использованию:  нет

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

Unit tsf49r_p;
interface
uses
SysUtils, Math, { Delphi }
Lstruct, Lfunc, UtRes_p, SF49R_p;

function tsf49r: String;

implementation

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

end.

Результат:   R  =  0.5