Текст подпрограммы и версий
sf35r_p.zip , sf35e_p.zip 		Тексты тестовых примеров
tsf35r_p.zip , tsf35e_p.zip

Функция:  SF35R (модуль SF35R_p)

Назначение

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

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

Функция SF35R вычисляет значения дополнительной функции ошибок (дополнительного интеграла вероятностей)  erfc (x) = 1 - erf (x): 

                             ∞
     erfc(x) = 2/√π  ∫ e - t*t dt
                            x

для вещественных значений аргумента  x.

J.F.Hart, E.W.Cheney, C.L.Lawson, Computer Approximations, Wiley, New York, 1968.

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

function SF35R(X :Real): Real;


   Параметр
X - заданное значение аргумента  x (тип: вещественный). 
   Версии
SF35D - вычисление дополнительной функции ошибок с расширенной (Extended) точностью. 
   Вызываемые подпрограммы:  нет 
   Замечания по использованию
  Для X ≥ 6.5 функция SF35R полагается равной  0, а для   X ≥ 45. SF35D = 0. Для SF35D параметр X должен иметь тип Extended .

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

Unit tsf35r_p;
interface
uses
SysUtils, Math, { Delphi }
Lstruct, Lfunc, UtRes_p, SF35R_p;

function tsf35r: String;

implementation

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

end.

Результат:    Y  =  0.0896860217706