Programmer 7500/MAX_PROGRAMMERS.iso/INFO/TURBOPAS/NONLIN.ZIP/NONFUNC.PAS

Pascal/Delphi Source File | 1985-12-28 | 512 b | 21 lines

function f (x:vector; d:datarow) : real;
           {x(1..m) the parameters, d has the data}
var
   h,g:real;
   k:integer;

begin
if debug then
   begin
   for k:=1 to m do write (' x[',k,']:= ',x[k]);
   writeln
   end;
{beginning of function definition}

f:= x[1]*exp(x[2]*ln(d[1]*d[2]));

{      f:= x[1] + x[2]*d[1] + x[3]*d[2] + x[4]*exp(x[5]*ln((d[3])*d[4]));}

end;