polin2.pas

来自「Delphi Pascal 数据挖掘领域算法包 数值算法大全」· PAS 代码 · 共 22 行

PROCEDURE polin2(x1a: glmarray; x2a: glnarray; ya: glmbyn;
       m,n: integer; x1,x2: real; VAR y,dy: real);
(* Programs using POLIN2 must define the types
TYPE
   glmarray = ARRAY [1..m] OF real;
   glnarray = ARRAY [1..n] OF real;
   glmbyn = ARRAY [1..m,1..n] OF real;
in the main routine. *)
VAR
   k,j: integer;
   ymtmp: glmarray;
   yntmp: glnarray;
BEGIN
   FOR j := 1 TO m DO BEGIN
      FOR k := 1 TO n DO BEGIN
         yntmp[k] := ya[j,k]
      END;
      polint(x2a,yntmp,n,x2,ymtmp[j],dy)
   END;
   polint(x1a,ymtmp,m,x1,y,dy)
END;