Текст подпрограммы и версий ( Фортран ) sfg3r.zip sfg3d.zip |
Тексты тестовых примеров ( Фортран ) tsfg3r.zip tsfg3d.zip |
Текст подпрограммы и версий ( Си ) sfg3r_c.zip sfg3d_c.zip |
Тексты тестовых примеров ( Си ) tsfg3r_c.zip tsfg3d_c.zip |
Текст подпрограммы и версий ( Паскаль ) sfg3r_p.zip sfg3e_p.zip |
Тексты тестовых примеров ( Паскаль ) tsfg3r_p.zip tsfg3e_p.zip |
Вычисление биномиальных коэффициентов.
Подпрограмма - функция SFG3R вычисляет биномиальные коэффициенты
N! ------------- , K! (N-K)!
где N и K - натуральные числа, 0 ≤ K ≤ N, по формуле
e ln N! - ln K! - ln (N-K)!
FUNCTION SFG3R (N, K)
Параметры
N, K - | заданные значения натуральных чисел, для которых необходимо вычислить биномиальный коэффициент (тип: целый). |
Версии
SFG3D - | вычисление биномиальных коэффициентов в режиме удвоенной точности; при этом функция SFG3R должна быть описана как DOUBLE PRECISION FUNCTION. |
Вызываемые подпрограммы
SFG2R - SFG2D | вычисление натурального логарифма от факториала натурального числа в режимах одинарной и удвоенной точности; используются в подпрограммах - функциях SFG3R и SFG3D соответственно. |
Замечания по использованию: нет
N = 8 K = 3 RES = SFG3R(N, K) Результат: RES = 56