Mercurial > octave-nkf
view test/octave.test/nonlin/fsolve-1.m @ 4720:e759d01692db ss-2-1-53
[project @ 2004-01-23 04:13:37 by jwe]
author | jwe |
---|---|
date | Fri, 23 Jan 2004 04:13:37 +0000 |
parents | 4d964afd8d57 |
children |
line wrap: on
line source
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