|
Текст подпрограммы и версий sf44r_c.zip |
Тексты тестовых примеров tsf44r_c.zip |
Вычисление обратной функции 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