home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / MATH / PRAXIS.ARC / TP.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1987-07-15  |  316 b   |  23 lines
  1. PROGRAM TestPraxis;
  2.  
  3. {$IPraxis.inc}
  4.  
  5. FUNCTION F;
  6. VAR f1, f2, f3, f4: REAL;
  7. BEGIN f1:= x[1]-1.0;
  8.       f2:= 10*(x[2]-Sqr(x[1]));
  9.       F:= (Sqr(f1)+Sqr(f2));
  10. END;
  11.  
  12.  
  13. VAR x: Vector;
  14.     n: INTEGER;
  15.     fin:REAL;
  16.  
  17. BEGIN
  18.       X[1]:= -1.2;
  19.       x[2]:= 1;
  20.       N:= 2;
  21.       Fin:= Praxis(X,N);
  22. END.
  23.