simp1.txt

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

Procedure SIMP1(var A:matrx2; MP, NP, MM:integer; LL:array of integer;
                          NLL, IABF:integer;var KP:integer; var BMAX:real);
var
    K:integer;   TEST:real;
begin
    KP:=LL[1];
    BMAX:=A[MM + 1, KP + 1];
    For K:=2 To NLL do
    begin
        If IABF = 0 Then
            TEST:=A[MM + 1, LL[K] + 1] - BMAX
        Else
            TEST:=Abs(A[MM + 1, LL[K] + 1]) - Abs(BMAX);
        If TEST > 0  Then
        begin
            BMAX:=A[MM + 1, LL[K] + 1];
            KP:=LL[K];
        end;
    end;
end;