chsone.txt

来自「《Delphi常用数值算法集》的配书源码」· 文本 代码 · 共 18 行

procedure CHSONE(BINS, EBINS:array of real; NBINS, KNSTRN:integer;
                                              var DF, CHSQ, PROB:real);
var
    J:integer;
begin
    DF:=NBINS - 1 - KNSTRN;
    CHSQ:=0; 
    For J:=1 To NBINS do
    begin
        If EBINS[J] <= 0  Then
        begin
            ShowMessage('bad expected number');
            Exit;
        end;
        CHSQ:=CHSQ + Sqr(BINS[J] - EBINS[J]) / EBINS[J];
    end; 
    PROB:=GAMMQ(0.5 * DF, 0.5 * CHSQ);
end;