Chris@49: // Copyright (C) 2008-2012 NICTA (www.nicta.com.au)
Chris@49: // Copyright (C) 2008-2012 Conrad Sanderson
Chris@49: // 
Chris@49: // This Source Code Form is subject to the terms of the Mozilla Public
Chris@49: // License, v. 2.0. If a copy of the MPL was not distributed with this
Chris@49: // file, You can obtain one at http://mozilla.org/MPL/2.0/.
Chris@49: 
Chris@49: 
Chris@49: //! \addtogroup fn_diagmat
Chris@49: //! @{
Chris@49: 
Chris@49: 
Chris@49: //! interpret a matrix or a vector as a diagonal matrix (i.e. off-diagonal entries are zero)
Chris@49: template<typename T1>
Chris@49: arma_inline
Chris@49: typename
Chris@49: enable_if2
Chris@49:   <
Chris@49:   is_arma_type<T1>::value,
Chris@49:   const Op<T1, op_diagmat>
Chris@49:   >::result
Chris@49: diagmat(const T1& X)
Chris@49:   {
Chris@49:   arma_extra_debug_sigprint();
Chris@49:   
Chris@49:   return Op<T1, op_diagmat>(X);
Chris@49:   }
Chris@49: 
Chris@49: 
Chris@49: 
Chris@49: // TODO:
Chris@49: // create "op_diagmat2", to allow placement of vector onto a sub- or super- diagonal.
Chris@49: // op_diagmat2 is required, as other code assumes that op_diagmat indicates only the main diagonal)
Chris@49: 
Chris@49: 
Chris@49: 
Chris@49: //! @}