1 | // Copyright (C) 2009-2010 Conrad Sanderson |
---|
2 | // Copyright (C) 2009-2010 NICTA (www.nicta.com.au) |
---|
3 | // Copyright (C) 2009-2010 Dimitrios Bouzas |
---|
4 | // |
---|
5 | // This Source Code Form is subject to the terms of the Mozilla Public |
---|
6 | // License, v. 2.0. If a copy of the MPL was not distributed with this |
---|
7 | // file, You can obtain one at http://mozilla.org/MPL/2.0/. |
---|
8 | |
---|
9 | |
---|
10 | //! \addtogroup fn_cor |
---|
11 | //! @{ |
---|
12 | |
---|
13 | |
---|
14 | |
---|
15 | template<typename T1> |
---|
16 | inline |
---|
17 | const Op<T1, op_cor> |
---|
18 | cor(const Base<typename T1::elem_type,T1>& X, const uword norm_type = 0) |
---|
19 | { |
---|
20 | arma_extra_debug_sigprint(); |
---|
21 | |
---|
22 | arma_debug_check( (norm_type > 1), "cor(): norm_type must be 0 or 1"); |
---|
23 | |
---|
24 | return Op<T1, op_cor>(X.get_ref(), norm_type, 0); |
---|
25 | } |
---|
26 | |
---|
27 | |
---|
28 | |
---|
29 | template<typename T1, typename T2> |
---|
30 | inline |
---|
31 | const Glue<T1,T2,glue_cor> |
---|
32 | cor(const Base<typename T1::elem_type,T1>& A, const Base<typename T1::elem_type,T2>& B, const uword norm_type = 0) |
---|
33 | { |
---|
34 | arma_extra_debug_sigprint(); |
---|
35 | |
---|
36 | arma_debug_check( (norm_type > 1), "cor(): norm_type must be 0 or 1"); |
---|
37 | |
---|
38 | return Glue<T1, T2, glue_cor>(A.get_ref(), B.get_ref(), norm_type); |
---|
39 | } |
---|
40 | |
---|
41 | |
---|
42 | |
---|
43 | //! @} |
---|