Алгоритм 179 "Отношение неполных бета-функций".
Основная ссылка: Ludwig O.G., CACM, 1963, #3, algorithm 179.
В переводе на русский язык:
М.И.Агеев, В.П.Алик, Ю.И.Марков,
Библиотека алгоритмов 151Б-200Б / М., "Советское Радио", 1981.
Алгоритм вычисляет функцию

, где
неполная бета-функция


Вероятность того, что
абсолютное значение случайной переменной, подчиняющейся t-распределению (распределению Стьюдента) с параметром (числом степеней свободы) f, больше положительного значения k, равна

Замечания:
1. Алгоритм, как это было принято в те древние времена, опубликован на языке Algol-60. Но перевод на современные языки достаточно очевиден.
2. Алгоритм обращается к внешней функции Gamma(x) для вычисления гамма-функции.
3. Обратите внимание на подчеркнутый текст "абсолютное значение". Он определяет нормировку функции.
4. Стандартная бета-функция

P.S. Возможно, все это следовало бы перенести в Computer Science.