| Документ взят из кэша поисковой машины. Адрес
оригинального документа
: http://num-anal.srcc.msu.ru/lib_na/cat/sf_htm_c/sf54r_c.htm Дата изменения: Tue Nov 24 11:13:28 2015 Дата индексирования: Sun Apr 10 02:34:01 2016 Кодировка: Windows-1251 | 
| Текст подпрограммы и версий sf54r_c.zip | Тексты тестовых примеров tsf54r_c.zip | 
Вычисление функции нецентрального t - распределения вероятностей Стьюдента.
sf54r_c вычисляет вероятность того, что случайная величина, подчиненная закону нецентрального t - распределения вероятностей Стьюдента с параметром D и степенью свободы IDF (IDF > 0), меньше или pавна x.
M.Abramowitz, I.A.Stegun, Handbook of Mathematical Functions, Dover Publications, Inc., New York, 1965.
    real sf54r_c (real *x, real *d, integer *idf, integer *ierr)
Параметры
| x - | заданное значение аргумента x (тип: вещественный); | 
| d - | заданное значение параметра нецентрального t - распределения Стьюдента (тип: вещественный); | 
| idf - | заданное значение степени свободы нецентрального t - распределения Стьюдента (тип: целый); | 
| ierr - | целая переменная, служащая для сообщения об ошибках, обнаруженных в ходе работы функции; при этом: | 
| ierr=65 - | когда заданная степень свободы нецентрального t - распределения Стьюдента меньше или pавна 0; значение функции полагается равным 3.4e38. | 
Версии: нет
Вызываемые подпрограммы
| sf49r_c - | вычисление стандартизованной (нормированной) функции нормального распределения вероятностей; | 
| sf35r_c - | вычисление дополнительной функции ошибок (дополнительного интеграла вероятности) erfc x; | 
| utsf14_c - | подпрограмма выдачи диагностических сообщений в ходе работы функции sf54r_c. | 
Замечания по использованию: нет
int main(void)
{
    /* Local variables */
    static int ierr;
    extern float sf54r_c(float *, float *, int *, int *);
    static float d__, p, x;
    static int idf;
    x = 2.f;
    d__ = 1.f;
    idf = 2;
    p = (float)sf54r_c(&x, &d__, &idf, &ierr);
    printf("\n %16.7e %16.7e %5i \n",x,d__,idf);
    printf("\n %16.7e %5i \n",p,ierr);
    return 0;
} /* main */
Результаты:    p  =  0.706662049503 ,   ierr  =  0