annotate armadillo-3.900.4/include/armadillo_bits/fn_lu.hpp @ 84:55a047986812 tip

Update library URI so as not to be document-local
author Chris Cannam
date Wed, 22 Apr 2020 14:21:57 +0100
parents 1ec0e2823891
children
rev   line source
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 //! @}