home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / msdos / math / praxis.arc / TP.P < prev    next >
Encoding:
Text File  |  1987-07-16  |  877 b   |  51 lines
  1. program testpraxis(input, output);
  2.  
  3.  
  4. const maxpar = 20;
  5.  
  6.  
  7.  
  8. type  vector = array[1..maxpar] of real;
  9.       matrix = array[1..maxpar, 1..maxpar] of real;
  10.       prstring = array[1..80] of char;
  11.  
  12.  
  13. var x: vector;
  14.     n: integer;
  15.     macheps:real;
  16.     h:real;
  17.     t:real;
  18.     fin:real;
  19.     prin:integer;
  20.     illc:boolean;
  21.     scbd:integer;
  22.     ktm:integer;
  23.  
  24. function f(x:vector; n:integer):real;
  25. var f1, f2: real;
  26. begin f1:= x[1]-1.0;
  27.       f2:= (10*(x[2]-sqr(x[1])));
  28.       f:= sqr(f1)+sqr(f2);
  29. end;
  30.  
  31. #include "praxis.i"
  32.  
  33.  
  34. begin
  35.       x[1]:= -1.2;
  36.       x[2]:= 1;
  37.       n:= 2;
  38.  
  39.       macheps  := 1.0e-8;
  40.       h        := 1.0e+00;
  41.       t        := 1.0e-08;
  42.       prin     := 2;
  43.       illc     := false;
  44.       scbd     := 1;
  45.       ktm      := 2;
  46.  
  47.       write('enter print paramter: '); readln(prin);
  48.       fin:= praxis(x, n);
  49. end.
  50.  
  51.