Mercurial > octave-nkf
view test/bug-38576.tst @ 20641:c3c052b9192a
Improve performance and error reporting of betainv, gaminv (bug #34363).
* betainv.m: Replace for loop with do-until loop. Shorten max loop cycles to
40, rather than 10,000. Issue warning if algorithm fails.
* gaminv.m: Replace for loop with do-until loop. Shorten max loop cycles to
40, rather than 100. Issue warning if algorithm fails.
author | Rik <rik@octave.org> |
---|---|
date | Sun, 11 Oct 2015 16:55:17 -0700 |
parents | 730bc06134f9 |
children |
line wrap: on
line source
%!function r = f1 () %! ls = svd (1); %! r = eval ("ls -1;"); %!endfunction %!function r = f2 () %! [u,ls,v] = svd (1); %! r = eval ("ls -1;"); %!endfunction %!function r = f3 (ls) %! r = eval ("ls -1;"); %!endfunction %!test %! ## Windows systems can't run "ls -1" %! if (! ispc ()) %! assert (f1 (), 0); %! assert (f2 (), 0); %! assert (ischar (f3 ()), true); %! assert (f3 (1), 0); %! endif