Добавил:
Studfiles2
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Курсовой проект групп 3341 и 3382 / DMCore / SpecialFunctions
.pas unit SpecialFunctions;
interface
uses
SysUtils,
Utils,
Exceptions,
Statistics;
function log2Binomial( a : double; b : double) : double;
function lnFactorial(x : double ) : double;
implementation
function log2Binomial( a : double; b : double) : double;
begin
if (Utils.gr(b,a)) then
raise EArithmeticException.Create('Невозможно вычислить биномиальные коэффициенты');
result := (lnFactorial(a)-lnFactorial(b)-lnFactorial(a-b))/ln(2);
end;
function lnFactorial( x : double) : double;
begin
result := Statistics.lnGamma(x+1);
end;
end.
interface
uses
SysUtils,
Utils,
Exceptions,
Statistics;
function log2Binomial( a : double; b : double) : double;
function lnFactorial(x : double ) : double;
implementation
function log2Binomial( a : double; b : double) : double;
begin
if (Utils.gr(b,a)) then
raise EArithmeticException.Create('Невозможно вычислить биномиальные коэффициенты');
result := (lnFactorial(a)-lnFactorial(b)-lnFactorial(a-b))/ln(2);
end;
function lnFactorial( x : double) : double;
begin
result := Statistics.lnGamma(x+1);
end;
end.
Соседние файлы в папке DMCore