Mercurial > octave

comparison scripts/deprecated/luinc.m @ 21575:bc9aa534bc29

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
maint: Clean up BIST tests so they don't produce warnings. * data.cc (Fhorzcat): Temporarily disable "num-to-str" warning for BIST tests. * luinc.cc (__luinc__): Move BIST tests to luinc.m. * luinc.m: Add BIST tests for luinc. * regexp.cc (Fregexp): Temporarily disable "regexp-lookbehind-limit" for BIST tests. * sqrtm.cc (Fsqrtm): Temporarily disable "sqrtm:SingularMatrix" for BIST tests. * __eigs__.cc, __init_fltk__.cc, __init_gnuplot__.cc: Add 'assert (1)' BIST test to mark internal functions as tested. * ov-range.cc (Fallow_noninteger_range_as_index: Temporarily disable "deprecated-syntax" for BIST tests. * quadv.m: Temporarily disable "divide-by-zero" warning for BIST tests. * imfinfo.m: Temporarily disable "GraphicsMagic-Quantum-Depth" for BIST tests.
author Rik <rik@octave.org>
date Fri, 01 Apr 2016 13:56:09 -0700
parents 516bb87ea72e
children 1c840b2fd337
comparison
equal deleted inserted replaced
21574:ae4d7dfea337 21575:bc9aa534bc29
90 90
91 [L, U, P, Q] = __luinc__ (varargin{:}); 91 [L, U, P, Q] = __luinc__ (varargin{:});
92 92
93 endfunction 93 endfunction
94 94
95
96 %!testif HAVE_UMFPACK
97 %! a = sparse ([1,2,0,0;0,1,2,0;1e-14,0,3,0;0,0,0,1]);
98 %! [l,u] = luinc (a, 1e-10);
99 %! assert (l*u, sparse ([1,2,0,0;0,1,2,0;0,0,3,0;0,0,0,1]), 1e-10);
100 %! opts.droptol = 1e-10;
101 %! [l,u] = luinc (a, opts);
102 %! assert (l*u, sparse ([1,2,0,0;0,1,2,0;0,0,3,0;0,0,0,1]), 1e-10);
103
104 %!testif HAVE_UMFPACK
105 %! a = sparse ([1i,2,0,0;0,1,2,0;1e-14,0,3,0;0,0,0,1]);
106 %! [l,u] = luinc (a, 1e-10);
107 %! assert (l*u, sparse ([1i,2,0,0;0,1,2,0;0,0,3,0;0,0,0,1]), 1e-10);
108 %! opts.droptol = 1e-10;
109 %! [l,u] = luinc (a, opts);
110 %! assert (l*u, sparse ([1i,2,0,0;0,1,2,0;0,0,3,0;0,0,0,1]), 1e-10);
111