Документ взят из кэша поисковой машины. Адрес оригинального документа : http://num-anal.srcc.msu.ru/lib_na/cat/sf_htm_c/sf44r_c.htm
Дата изменения: Mon Nov 23 15:33:17 2015
Дата индексирования: Sun Apr 10 02:33:06 2016
Кодировка: Windows-1251
БЧА НИВЦ МГУ. SF44R. Специальные функции математической статистики
Текст подпрограммы и версий
sf44r_c.zip  		Тексты тестовых примеров
tsf44r_c.zip 

Функция:  sf44r_c

Назначение

Вычисление обратной функции  F - распределения вероятностей (распределения Снедекора).

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

sf44r_c вычисляет значение  x  такое, что 

     Fx (AN1, AN2) = P,

где  P                - заданное значение вероятности (0 < P < 1) ,
       AN1, AN2  - заданные параметры  F - распределения
                           вероятностей (распределения Снедекора)
                           (AN1 > 0, AN2 > 0) .

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

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

    real sf44r_c (real *p, real *an1, real *an2, integer *ierr)

   Параметры
p - заданное значение вероятности (тип: вещественный);
an1 -
an2    		заданные значения степеней свободы  F - распределения (тип: вещественный);
ierr - целая переменая, служащая для сообщения об ошибках, обнаруженных в ходе работы функции; при этом:
ierr=65 - когда заданное значение вероятности не принадлежит интервалу (0, 1); значение функции полагается равным 3.4e38;
ierr=66 - когда одна или обе степени свободы меньше или равны 0; значение функции полагается равным 3.4e38;
ierr=67 - когда значение функции не может быть найдено в пределах 30 итераций; значение функции полагается равным 3.4e38;
ierr=68 - когда функция становится настолько большой, что ее значение не помещается в разрядной сетке машины; значение функции полагается равным 3.4e38. 
   Версии:  нет 
   Вызываемые подпрограммы
utsf12_c - подпрограмма выдачи диагностических сообщений при работе функции sf44r_c. 
   Замечания по использованию:  нет

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

int main(void)
{
    /* Local variables */
    static int ierr;
    extern float sf44r_c(float *, float *, float *, int *);
    static float p, y, an1, an2;

    an1 = 12.f;
    an2 = 8.f;
    p = .0993525756f;
    y = (float)sf44r_c(&p, &an1, &an2, &ierr);

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


Результаты:

       y  =  0.444444442
       ierr  =  0