Документ взят из кэша поисковой машины. Адрес
оригинального документа
: http://num-anal.srcc.msu.su/lib_na/cat/sf_htm_p/sf35r_p.htm
Дата изменения: Fri Nov 6 13:40:47 2015 Дата индексирования: Sun Apr 10 02:17:30 2016 Кодировка: Windows-1251 |
Текст подпрограммы и версий sf35r_p.zip , sf35e_p.zip |
Тексты тестовых примеров tsf35r_p.zip , tsf35e_p.zip |
Вычисление значений дополнительной функции ошибок (дополнительного интеграла вероятностей).
Функция 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