diff armadillo-2.4.4/include/armadillo_bits/fn_inv.hpp @ 0:8b6102e2a9b0

Armadillo Library

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/armadillo-2.4.4/include/armadillo_bits/fn_inv.hpp	Wed Apr 11 09:27:06 2012 +0100
@@ -0,0 +1,120 @@
+// Copyright (C) 2008-2011 NICTA (www.nicta.com.au)
+// Copyright (C) 2008-2011 Conrad Sanderson
+// 
+// This file is part of the Armadillo C++ library.
+// It is provided without any warranty of fitness
+// for any purpose. You can redistribute this file
+// and/or modify it under the terms of the GNU
+// Lesser General Public License (LGPL) as published
+// by the Free Software Foundation, either version 3
+// of the License or (at your option) any later version.
+// (see http://www.opensource.org/licenses for more info)
+
+
+//! \addtogroup fn_inv
+//! @{
+
+
+
+//! delayed matrix inverse (general matrices)
+template<typename T1>
+arma_inline
+const Op<T1, op_inv>
+inv
+  (
+  const Base<typename T1::elem_type,T1>& X,
+  const bool slow = false,
+  const typename arma_blas_type_only<typename T1::elem_type>::result* junk = 0
+  )
+  {
+  arma_extra_debug_sigprint();
+  arma_ignore(junk);
+  
+  return Op<T1, op_inv>(X.get_ref(), ((slow == false) ? 0 : 1), 0);
+  }
+
+
+
+//! remove the inverse operation if applied twice consecutively
+template<typename T1>
+arma_inline
+const T1&
+inv(const Op<T1, op_inv>& X, const bool slow = false)
+  {
+  arma_extra_debug_sigprint();
+  arma_ignore(slow);
+  
+  return X.m;
+  }
+
+
+
+//! delayed matrix inverse (triangular matrices)
+template<typename T1>
+arma_inline
+const Op<T1, op_inv_tr>
+inv
+  (
+  const Op<T1, op_trimat>& X,
+  const bool slow = false,
+  const typename arma_blas_type_only<typename T1::elem_type>::result* junk = 0
+  )
+  {
+  arma_extra_debug_sigprint();
+  arma_ignore(slow);
+  arma_ignore(junk);
+  
+  return Op<T1, op_inv_tr>(X.m, X.aux_uword_a, 0);
+  }
+
+
+
+//! delayed matrix inverse (symmetric positive definite matrices)
+template<typename T1>
+arma_inline
+const Op<T1, op_inv_sympd>
+inv
+  (
+  const Op<T1, op_sympd>& X,
+  const bool slow = false,
+  const typename arma_blas_type_only<typename T1::elem_type>::result* junk = 0
+  )
+  {
+  arma_extra_debug_sigprint();
+  arma_ignore(slow);
+  arma_ignore(junk);
+  
+  return Op<T1, op_inv_sympd>(X.m, 0, 0);
+  }
+
+
+
+template<typename T1>
+inline
+bool
+inv
+  (
+         Mat<typename T1::elem_type>&    out,
+  const Base<typename T1::elem_type,T1>& X,
+  const bool slow = false,
+  const typename arma_blas_type_only<typename T1::elem_type>::result* junk = 0
+  )
+  {
+  arma_extra_debug_sigprint();
+  arma_ignore(junk);
+  
+  try
+    {
+    out = inv(X,slow);
+    }
+  catch(std::runtime_error&)
+    {
+    return false;
+    }
+  
+  return true;
+  }
+
+
+
+//! @}