f1dim.txt

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

Function F1DIM(X:real):real;
var
    XT:array[0..50] of real;
    J:integer;
begin
    For J:=1 To NCOM do
        XT[J]:=PCOM[J] + X * XICOM[J];
    F1DIM:=FUNC2(XT, NCOM);
end;