ksone.txt

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

procedure KSONE(DATA:array of real; N:integer; var D, PROB:real);
var
    J:integer;  EN,FO,FQ,DT,FF:real;
begin
    SORT(N, DATA);
    EN:=N;
    D:=0; 
    FO:=0; 
    For J:=1 To N do
    begin
        FQ:=J / EN;
        FF:=FUNC(DATA[J]);
        DT:=Abs(FO - FF);
        If Abs(FQ - FF) > DT Then DT:=Abs(FQ - FF);
        If DT > D Then D:=DT;
        FO:=FQ;
    end; 
    PROB:=PROBKS(Sqrt(EN) * D);
end;