Programmer 7500/MAX_PROGRAMMERS.iso/PASCAL/NRPAS13.ZIP/F1DIM.PAS

Pascal/Delphi Source File | 1991-04-29 | 365 b | 18 lines

FUNCTION f1dim(x: real): real;
(* Programs using F1DIM must declare the variables
TYPE
   glndim = ARRAY [1..ndim] OF real;
VAR
   ncom: integer;
   pcom,xicom: glndim;
and assign values to them externally. *)
VAR
   j: integer;
   xt: glndim;
BEGIN
   FOR j := 1 TO ncom DO BEGIN
      xt[j] := pcom[j]+x*xicom[j]
   END;
   f1dim := fnc(xt)
END;