ass.txt

来自「1.г函数、贝塔函数、阶乘及二项式系数 2.不完全г函数、误差函数 3.不完」· 文本 代码 · 共 15 行

Function ASS(N:integer; B:real):real;
var
    DB:real;A:array[1..15] of real; I:integer;
begin
    A[1]:=Exp(-B) / B;
    If N = 1 Then
      ASS:=A[N]
    else
    begin
        DB:=1 / B;
        For I:=2 To N do
          A[I]:=A[1] + DB * (I - 1) * A[I - 1];
        ASS:=A[N]
    end;
end;