Mercurial > hg > octave-lyh

view test/octave.test/quad/quad-2.m @ 3576:168277402d7c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2000-02-04 11:09:38 by jwe]
author jwe
date Fri, 04 Feb 2000 11:12:34 +0000
parents 97f36e0a4459
children ef883684e58e
line wrap: on
line source

function y = f (x)
  y = x .* sin (1 ./ x) .* sqrt (abs (1 - x));
endfunction
[v, ier, nfun, err] = quad ("f", 0, 3);
(ier == 0 || ier == 1) && v - 1.98194122455795 < sqrt (eps) && nfun > 0