AnalysisSystemForRadionucli.../include/armadillo_bits/fn_pinv.hpp

70 lines
1.6 KiB
C++
Raw Normal View History

2024-06-04 15:25:02 +08:00
// Copyright (C) 2009-2013 National ICT Australia (NICTA)
//
// This Source Code Form is subject to the terms of the Mozilla Public
// License, v. 2.0. If a copy of the MPL was not distributed with this
// file, You can obtain one at http://mozilla.org/MPL/2.0/.
// -------------------------------------------------------------------
//
// Written by Conrad Sanderson - http://conradsanderson.id.au
// Written by Dimitrios Bouzas
//! \addtogroup fn_pinv
//! @{
template<typename T1>
inline
const Op<T1, op_pinv>
pinv
(
const Base<typename T1::elem_type,T1>& X,
const typename T1::elem_type tol = 0.0,
const char* method = "dc",
const typename arma_blas_type_only<typename T1::elem_type>::result* junk = 0
)
{
arma_extra_debug_sigprint();
arma_ignore(junk);
const char sig = (method != NULL) ? method[0] : char(0);
arma_debug_check( ((sig != 's') && (sig != 'd')), "pinv(): unknown method specified" );
return (sig == 'd') ? Op<T1, op_pinv>(X.get_ref(), tol, 1, 0) : Op<T1, op_pinv>(X.get_ref(), tol, 0, 0);
}
template<typename T1>
inline
bool
pinv
(
Mat<typename T1::elem_type>& out,
const Base<typename T1::elem_type,T1>& X,
const typename T1::elem_type tol = 0.0,
const char* method = "dc",
const typename arma_blas_type_only<typename T1::elem_type>::result* junk = 0
)
{
arma_extra_debug_sigprint();
arma_ignore(junk);
try
{
out = pinv(X, tol, method);
}
catch(std::runtime_error&)
{
return false;
}
return true;
}
//! @}