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

Функция:  sf47r_c

Назначение

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

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

sf47r_c вычисляет вероятность того, что случайная величина, подчиненная χ2 - распределению с вещественным параметром  AN  (AN ≥ 0.5), меньше или pавна  x (x ≥ 0).

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

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

    real sf47r_c (real *x, real *an, integer *ierr)

   Параметры
x - заданное значение аргумента  x (тип: вещественный);
an - заданное значение степени свободы χ2 - распределения (тип: вещественный);
ierr - целая переменная, служащая для сообщения об ошибках, обнаруженных в ходе работы функции; при этом:
ierr=65 - когда заданная степень свободы меньше 0.5; значение функции полагается равным 3.4e38;
ierr=66 - когда верхний предел интегрирования меньше 0; значение функции полагается равным 3.4e38. 
   Версии:  нет 
   Вызываемые подпрограммы
sf23c_c - вычисление гамма - функции  Г (x) комплексного аpгумента.
sf49r_c - вычисление функции нормального распределения вероятностей.
utsf12_c - подпрограмма выдачи диагностических сообщений в ходе работы функции sf47r_c. 
   Замечания по использованию:  нет

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

int main(void)
{
    /* Local variables */
    static int ierr;
    extern float sf47r_c(float *, float *, int *);
    static float p, x, an;

    x = 9.2205f;
    an = 2.f;
    p = (float)sf47r_c(&x, &an, &ierr);

    printf("\n %16.7e %16.7e \n",x,an);
    printf("\n %5i %16.7e \n",ierr,p);
    return 0;
} /* main */


Результаты:

       p  =  0.9900506693175
       ierr  =  0