|
Документ взят из кэша поисковой машины. Адрес
оригинального документа
: http://www.srcc.msu.ru/num_anal/lib_na/cat/sf/sfg4r.htm
Дата изменения: Mon Mar 14 11:07:53 2011 Дата индексирования: Mon Feb 4 02:17:54 2013 Кодировка: Windows-1251 |
|
Текст подпрограммы и версий ( Фортран ) sfg4r.zip sfg4d.zip |
Тексты тестовых примеров ( Фортран ) tsfg4r.zip tsfg4d.zip |
|
Текст подпрограммы и версий ( Си ) sfg4r_c.zip sfg4d_c.zip |
Тексты тестовых примеров ( Си ) tsfg4r_c.zip tsfg4d_c.zip |
|
Текст подпрограммы и версий ( Паскаль ) sfg4r_p.zip sfg4e_p.zip |
Тексты тестовых примеров ( Паскаль ) tsfg4r_p.zip tsfg4e_p.zip |
Вычисление неполной гамма - функции P (a, x) вещественного аргумента и вещественного параметра
Подпрограмма - функция SFG4R вычисляет неполную гамма - функцию P (a, x):
x
P(a, x) = 1/ Г(a) т e -t t a -1 dt ( x ? 0 , a > 0 ) ,
0
где через Г обозначена гамма - функция.
Если x < a + 1, то используется ряд:
?
P(a, x) = [ e-x xa / Г(a) ] е [ Г(a) / Г(a+1+n) ] xn
n=0
Если x ? a + 1, то используется непрерывная дробь
P(a, x) = 1 - e-x xa / Г(a) [ 1 /( x+ (1-a) /(1+ 1 /(x+ (2-a) /(1+ 2 /(x+ ...)))) ]
( x > 0 )
Справочник по специальным функциям. Под ред. Абрамовица М. и Стигана И. Изд - во "Наука", 1979.
FUNCTION SFG4R (A, X, EPS, ITMAX, IERR)
Параметры
| A - | заданное значение параметра a (тип: вещественный); |
| X - | заданное значение параметра x (тип: вещественный); |
| EPS - | заданная относительная точность, с которой необходимо вычислить значение P (a, x) (тип: вещественный); |
| ITMAX - | максимально допустимое количество членов ряда или непрерывной дроби, используемых при вычислении P (a, x) (тип: целый); |
| IERR - | целая переменная, служащая для сообщения об ошибках, обнаруженных в ходе работы функции; при этом |
| IERR=65 - | значение аргумента X меньше 0; значение функции полагается равным наибольшему представимому на машине числу |
| IERR=66 - | значение аргумента A меньше или равно 0; значение функции полагается равным наибольшему представимому на машине числу |
| IERR=67 - | заданное максимальное количество итераций недостаточно для заданных значений A и EPS; значение функции полагается равным наибольшему представимому на машине числу |
Версии
| SFG4D - | вычисление неполной гамма - функции P (a, x) вещественного аргумента и вещественного параметра в режиме удвоенной точности; при этом параметры A, X, EPS имеют тип DOUBLE PRECISION, а функция SFG4D должна быть описана как DOUBLE PRECISION FUNCTION |
Вызываемые подпрограммы
| SF66R - SF66D | вычисление натурального логарифма гамма - функции Г (х) вещественного аргумента в режимах одинарной и удвоенной точности; используются в подпрограммах - функциях SFG4R и SFG4D соответственно |
| UTSF10 - UTSF11 | подпрограмма выдачи диагностических сообщений при работе подпрограмм - функций SFG4R и SFG4D соответственно |
Замечания по использованию
|
В подпрограммах - функциях SFG4R и SFG4D используются рабочие подпрограммы SFG4R1, SFG4R2 и SFG4D1, SFG4D2 соответственно |
A = 0.5
X = 6.0
EPS = 0.000001
ITMAX = 100
RES = SFG4R(A, X, EPS, ITMAX, IERR)
Результаты:
RES = 0.999468
IERR = 0