Chris@49
|
1 // Copyright (C) 2008-2011 NICTA (www.nicta.com.au)
|
Chris@49
|
2 // Copyright (C) 2008-2011 Conrad Sanderson
|
Chris@49
|
3 //
|
Chris@49
|
4 // This Source Code Form is subject to the terms of the Mozilla Public
|
Chris@49
|
5 // License, v. 2.0. If a copy of the MPL was not distributed with this
|
Chris@49
|
6 // file, You can obtain one at http://mozilla.org/MPL/2.0/.
|
Chris@49
|
7
|
Chris@49
|
8
|
Chris@49
|
9 //! \addtogroup fn_lu
|
Chris@49
|
10 //! @{
|
Chris@49
|
11
|
Chris@49
|
12
|
Chris@49
|
13
|
Chris@49
|
14 //! immediate lower upper decomposition, permutation info is embedded into L (similar to Matlab/Octave)
|
Chris@49
|
15 template<typename T1>
|
Chris@49
|
16 inline
|
Chris@49
|
17 bool
|
Chris@49
|
18 lu
|
Chris@49
|
19 (
|
Chris@49
|
20 Mat<typename T1::elem_type>& L,
|
Chris@49
|
21 Mat<typename T1::elem_type>& U,
|
Chris@49
|
22 const Base<typename T1::elem_type,T1>& X,
|
Chris@49
|
23 const typename arma_blas_type_only<typename T1::elem_type>::result* junk = 0
|
Chris@49
|
24 )
|
Chris@49
|
25 {
|
Chris@49
|
26 arma_extra_debug_sigprint();
|
Chris@49
|
27 arma_ignore(junk);
|
Chris@49
|
28
|
Chris@49
|
29 arma_debug_check( (&L == &U), "lu(): L and U are the same object");
|
Chris@49
|
30
|
Chris@49
|
31 const bool status = auxlib::lu(L, U, X);
|
Chris@49
|
32
|
Chris@49
|
33 if(status == false)
|
Chris@49
|
34 {
|
Chris@49
|
35 L.reset();
|
Chris@49
|
36 U.reset();
|
Chris@49
|
37 arma_bad("lu(): failed to converge", false);
|
Chris@49
|
38 }
|
Chris@49
|
39
|
Chris@49
|
40 return status;
|
Chris@49
|
41 }
|
Chris@49
|
42
|
Chris@49
|
43
|
Chris@49
|
44
|
Chris@49
|
45 //! immediate lower upper decomposition, also providing the permutation matrix
|
Chris@49
|
46 template<typename T1>
|
Chris@49
|
47 inline
|
Chris@49
|
48 bool
|
Chris@49
|
49 lu
|
Chris@49
|
50 (
|
Chris@49
|
51 Mat<typename T1::elem_type>& L,
|
Chris@49
|
52 Mat<typename T1::elem_type>& U,
|
Chris@49
|
53 Mat<typename T1::elem_type>& P,
|
Chris@49
|
54 const Base<typename T1::elem_type,T1>& X,
|
Chris@49
|
55 const typename arma_blas_type_only<typename T1::elem_type>::result* junk = 0
|
Chris@49
|
56 )
|
Chris@49
|
57 {
|
Chris@49
|
58 arma_extra_debug_sigprint();
|
Chris@49
|
59 arma_ignore(junk);
|
Chris@49
|
60
|
Chris@49
|
61 arma_debug_check( ( (&L == &U) || (&L == &P) || (&U == &P) ), "lu(): two or more output objects are the same object");
|
Chris@49
|
62
|
Chris@49
|
63 const bool status = auxlib::lu(L, U, P, X);
|
Chris@49
|
64
|
Chris@49
|
65 if(status == false)
|
Chris@49
|
66 {
|
Chris@49
|
67 L.reset();
|
Chris@49
|
68 U.reset();
|
Chris@49
|
69 P.reset();
|
Chris@49
|
70 arma_bad("lu(): failed to converge", false);
|
Chris@49
|
71 }
|
Chris@49
|
72
|
Chris@49
|
73 return status;
|
Chris@49
|
74 }
|
Chris@49
|
75
|
Chris@49
|
76
|
Chris@49
|
77
|
Chris@49
|
78 //! @}
|