Документ взят из кэша поисковой машины. Адрес
оригинального документа
: http://num-anal.srcc.msu.ru/lib_na/cat/sf_htm_c/sf37r_c.htm
Дата изменения: Tue Apr 28 08:29:42 2015 Дата индексирования: Sun Apr 10 02:32:21 2016 Кодировка: Windows-1251 |
Текст подпрограммы и версий sf37r_c.zip sf37d_c.zip |
Тексты тестовых примеров tsf37r_c.zip tsf37d_c.zip |
Вычисление неполной бета - функции Bx (a, b) вещественных аргументов.
sf37r_c вычисляет неполную бета - функцию вещественных аргументов a и b (a > 0, b > 0)
x Bx (a, b) = ∫ t a - 1 (1 - t) b - 1 dt (0 ≤ x ≤ 1) 0
M.Abramowitz, I.A.Stegun, Handbook of Mathematical Functions, New York, Dover Publications, INC., 1965.
real sf37r_c (real *x, real *a, real *b, integer *ierr)
Параметры
x - | заданное значение верхнего предела интегрирования x (тип: вещественный); |
a, b - | заданные значения аргументов a и b (тип: вещественный); |
ierr - | целая переменная, служащая для сообщения об ошибках, обнаруженных в ходе работы функции; при этом: |
ierr=65 - | когда значение аргумента x не придадлежит отрезку (0, 1); значение функции полагается равным 3.4e38; |
ierr=66 - | когда один или оба параметра неполной бета - функции меньше либо равны 0; значение функции полагается равным 3.4e38. |
Версии
sf37d_c - | вычисление неполной бета - функции Bx (a, b) вещественных аргументов с повышенной точностью. |
Вызываемые подпрограммы
sf22r_c - | подпрограмма вычисления значений бета - функции. |
sf36r_c - | подпрограмма вычисления бета - функции распределения вероятностей Ix (a, b). |
sf22d_c - | подпрограмма вычисления значений бета - функции с повышенной точностью. |
sf36d_c - | подпрограмма вычисления бета - функции распределения вероятностей Ix (a, b) с повышенной точностью. |
utsf12_c - | подпрограмма выдачи диагностических сообщений при работе функциии sf37r_c. |
utsf13_c - | подпрограмма выдачи диагностических сообщений при работе функции sf37d_c. |
Замечания по использованию
Для функции sf37d_c параметры x, a и b должны иметь тип double и при ierr ≠ 0 значение sf37d_c полагается равным 1.7e308. |
int main(void) { /* Local variables */ static int ierr; extern float sf37r_c(float *, float *, float *, int *); static float a, b, x, y; x = 1.f; a = 2.f; b = 3.f; y = (float)sf37r_c(&x, &a, &b, &ierr); printf("\n %16.7e %5i \n",y,ierr); return 0; } /* main */ Результаты: y = 0.0833333333, ierr = 0