Текст подпрограммы и версий ( Фортран )
sf46r.zip  		Тексты тестовых примеров ( Фортран )
tsf46r.zip 
Текст подпрограммы и версий ( Си )
sf46r_c.zip  		Тексты тестовых примеров ( Си )
tsf46r_c.zip 
Текст подпрограммы и версий ( Паскаль )
sf46r_p.zip 		Тексты тестовых примеров ( Паскаль )
tsf46r_p.zip

Функция:  SF46R

Назначение

Вычисление функции  χ2 - распределения вероятности с целыми степенями свободы.

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

SF46R вычисляет вероятность того, что случайная величина, подчиненная χ2 - распределению с целым параметром   N (N ≥ 1), больше  x  (x  ≥ 0).

I.D.Hill, M.C.Pike, Algorithm 299 - Chi - squared Integral (S15), CACM, 10 (4), 1967.

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

    REAL  FUNCTION  SF46R (X, N, IERR) 
   Параметры
X - заданное значение аргумента  x (тип: вещественный);
N - заданное значение степени свободы
χ2 - распределения (тип: целый);
IERR - целая переменная, служащая для сообщения об ошибках, обнаруженных в ходе работы функции; при этом:
IERR=65 - когда верхний предел интегрирования меньше 0; значение функции положено равным 3.4E38;
IERR=66 - когда заданная степень свободы меньше 1; значение функции положено равным 3.4E38. 
   Версии:  нет 
   Вызываемые подпрограммы
SF35R - вычисление дополнительной функции ошибок (дополнительного интеграла вероятности)  erfc x.
UTSF12 - подпрограмма выдачи диагностических сообщений в ходе работы функции SF46R. 
   Замечания по использованию:  нет

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

         X = 9.2205
         N = 2
         Y = SF46R (X, N, IERR)

Результаты:

       Y  =  0.00994933066
       IERR  =  0