Mercurial > hg > octave-avbm
changeset 2719:eaa225e7e721
[project @ 1997-02-22 19:37:40 by jwe]
author | jwe |
---|---|
date | Sat, 22 Feb 1997 19:37:40 +0000 |
parents | b61fc4f720e7 |
children | 4d964afd8d57 |
files | test/octave.test/fsolve/fsolve-1.m test/octave.test/fsolve/fsolve-2.m test/octave.test/fsolve/fsolve.exp |
diffstat | 3 files changed, 0 insertions(+), 100 deletions(-) [+] |
line wrap: on
line diff
deleted file mode 100644 --- a/test/octave.test/fsolve/fsolve-1.m +++ /dev/null @@ -1,45 +0,0 @@ -x_opt = [ 0.599054; - 2.395931; - 2.005014 ]; - -tol = 1.0e-5; - -function retval = f (p) - - x = p(1); - y = p(2); - z = p(3); - - retval = zeros (3, 1); - - retval(1) = sin(x) + y**2 + log(z) - 7; - retval(2) = 3*x + 2**y -z**3 + 1; - retval(3) = x + y + z - 5; - -end - -[x, info] = fsolve ("f", [ 0.5, 2.0, 2.5 ]); - -val = f (x); - -info_bad = (info != 1); -solution_bad = sum (abs (x - x_opt) > tol); -value_bad = sum (abs (val) > tol); - -if (info_bad) - printf ("info bad\n"); -else - printf ("info good\n"); -endif - -if (solution_bad) - printf ("solution bad\n"); -else - printf ("solution good\n"); -endif - -if (value_bad) - printf ("value bad\n"); -else - printf ("value good\n"); -endif
deleted file mode 100644 --- a/test/octave.test/fsolve/fsolve-2.m +++ /dev/null @@ -1,48 +0,0 @@ -x_opt = [ -0.767297326653401; - 0.590671081117440; - 1.47190018629642; - -1.52719341133957 ]; - -tol = 1.0e-5; - -function retval = f (p) - - x = p(1); - y = p(2); - z = p(3); - w = p(4); - - retval = zeros (4, 1); - - retval(1) = 3*x + 4*y + exp (z + w) - 1.007; - retval(2) = 6*x - 4*y + exp (3*z + w) - 11; - retval(3) = x^4 - 4*y^2 + 6*z - 8*w - 20; - retval(4) = x^2 + 2*y^3 + z - w - 4; - -end - -[x, info] = fsolve ("f", [-1, 1, 2, -1]); - -val = f (x); - -info_bad = (info != 1); -solution_bad = sum (abs (x - x_opt) > tol); -value_bad = sum (abs (val) > tol); - -if (info_bad) - printf ("info bad\n"); -else - printf ("info good\n"); -endif - -if (solution_bad) - printf ("solution bad\n"); -else - printf ("solution good\n"); -endif - -if (value_bad) - printf ("value bad\n"); -else - printf ("value good\n"); -endif