1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
|
function c = cheap_condest (d, fail_if_singular)
%CHEAP_CONDEST checks the diagonal of a triangular matrix
% Factorize, Copyright (c) 2011-2012, Timothy A Davis. All Rights Reserved.
% SPDX-License-Identifier: BSD-3-clause
if (isempty (d))
dmin = 1 ;
dmax = 1 ;
else
d = abs (d) ;
dmin = min (d) ;
dmax = max (d) ;
end
if (dmin == 0)
if (fail_if_singular)
error ('MATLAB:singularMatrix', ...
'Matrix is singular to working precision.');
else
warning ('MATLAB:singularMatrix', ...
'Matrix is singular to working precision.');
end
elseif (dmin < 2 * eps * (dmax))
% MATLAB treats this as a warning, but it is treated here as an error
% so that F=factorize(A) will abandon this factorization and use a
% better one, in its default strategy.
if (fail_if_singular)
error ('MATLAB:nearlySingularMatrix', ...
['Matrix is close to singular or badly scaled.\n' ...
' Results may be inaccurate. RCOND = %g'], dmin / dmax) ;
else
warning ('MATLAB:nearlySingularMatrix', ...
['Matrix is close to singular or badly scaled.\n' ...
' Results may be inaccurate. RCOND = %g'], dmin / dmax) ;
end
end
if (dmin == 0)
c = inf ;
else
c = dmax / dmin ;
end
|
