share/hompack/hompack_ex2.mac

   1 prod: x1*x2*x3*x4*x5;
   2 sum: x1+x2+x3+x4+x5 - 6;
   3 fcns: [prod-1,
   4 sum+x2,
   5 sum+x3,
   6 sum+x4,
   7 sum+x5];
   8
   9 hompack_fixpdf(fcns,[x1,x2,x3,x4,x5], arctol=.5e-4, eps=.5e-4);
  10
  11 /*
  12  * Output:
  13 [1, [1.000047727322441, 1.000000308332074, 1.000000308332071,
  14   1.000000308332067, 1.000000308332071], 5.0e-5, 5.0e-5, 49, 2.711657722244523]
  15
  16  * So the routine succeeded (output[1] = 1).
  17  *
  18  * Compare with the Fortran output:
  19         TESTING FIXPDF
  20
  21
  22  LAMBDA = 1.00000000  FLAG = 1      71 JACOBIAN EVALUATIONS
  23  EXECUTION TIME(SECS) =      0.00    ARCLEN =     2.712
  24    1.00000000E+00  1.00000000E+00  1.00000000E+00
  25    1.00000000E+00  1.00000000E+00
  26
  27  */