Chris@49
|
1 // Copyright (C) 2008-2012 NICTA (www.nicta.com.au)
|
Chris@49
|
2 // Copyright (C) 2008-2012 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_trans
|
Chris@49
|
10 //! @{
|
Chris@49
|
11
|
Chris@49
|
12
|
Chris@49
|
13 template<typename T1>
|
Chris@49
|
14 arma_inline
|
Chris@49
|
15 const Op<T1, op_htrans>
|
Chris@49
|
16 trans
|
Chris@49
|
17 (
|
Chris@49
|
18 const T1& X,
|
Chris@49
|
19 const typename enable_if< is_arma_type<T1>::value == true >::result* junk = 0
|
Chris@49
|
20 )
|
Chris@49
|
21 {
|
Chris@49
|
22 arma_extra_debug_sigprint();
|
Chris@49
|
23 arma_ignore(junk);
|
Chris@49
|
24
|
Chris@49
|
25 return Op<T1, op_htrans>(X);
|
Chris@49
|
26 }
|
Chris@49
|
27
|
Chris@49
|
28
|
Chris@49
|
29
|
Chris@49
|
30 template<typename T1>
|
Chris@49
|
31 arma_inline
|
Chris@49
|
32 const Op<T1, op_htrans>
|
Chris@49
|
33 htrans
|
Chris@49
|
34 (
|
Chris@49
|
35 const T1& X,
|
Chris@49
|
36 const typename enable_if< is_arma_type<T1>::value == true >::result* junk = 0
|
Chris@49
|
37 )
|
Chris@49
|
38 {
|
Chris@49
|
39 arma_extra_debug_sigprint();
|
Chris@49
|
40 arma_ignore(junk);
|
Chris@49
|
41
|
Chris@49
|
42 return Op<T1, op_htrans>(X);
|
Chris@49
|
43 }
|
Chris@49
|
44
|
Chris@49
|
45
|
Chris@49
|
46
|
Chris@49
|
47 //! two consecutive transpose operations cancel each other
|
Chris@49
|
48 template<typename T1>
|
Chris@49
|
49 arma_inline
|
Chris@49
|
50 const T1&
|
Chris@49
|
51 trans(const Op<T1, op_htrans>& X)
|
Chris@49
|
52 {
|
Chris@49
|
53 arma_extra_debug_sigprint();
|
Chris@49
|
54 arma_extra_debug_print("trans(): removing op_htrans");
|
Chris@49
|
55
|
Chris@49
|
56 return X.m;
|
Chris@49
|
57 }
|
Chris@49
|
58
|
Chris@49
|
59
|
Chris@49
|
60
|
Chris@49
|
61 template<typename T1>
|
Chris@49
|
62 arma_inline
|
Chris@49
|
63 const T1&
|
Chris@49
|
64 htrans(const Op<T1, op_htrans>& X)
|
Chris@49
|
65 {
|
Chris@49
|
66 arma_extra_debug_sigprint();
|
Chris@49
|
67 arma_extra_debug_print("htrans(): removing op_htrans");
|
Chris@49
|
68
|
Chris@49
|
69 return X.m;
|
Chris@49
|
70 }
|
Chris@49
|
71
|
Chris@49
|
72
|
Chris@49
|
73
|
Chris@49
|
74 //
|
Chris@49
|
75 // handling of sparse matrices
|
Chris@49
|
76
|
Chris@49
|
77
|
Chris@49
|
78 template<typename T1>
|
Chris@49
|
79 inline
|
Chris@49
|
80 typename
|
Chris@49
|
81 enable_if2
|
Chris@49
|
82 <
|
Chris@49
|
83 is_arma_sparse_type<T1>::value,
|
Chris@49
|
84 const SpOp<T1,spop_strans>
|
Chris@49
|
85 >::result
|
Chris@49
|
86 trans
|
Chris@49
|
87 (
|
Chris@49
|
88 const T1& x,
|
Chris@49
|
89 const typename arma_not_cx<typename T1::elem_type>::result* junk = 0
|
Chris@49
|
90 )
|
Chris@49
|
91 {
|
Chris@49
|
92 arma_extra_debug_sigprint();
|
Chris@49
|
93 arma_ignore(junk);
|
Chris@49
|
94
|
Chris@49
|
95 return SpOp<T1,spop_strans>(x);
|
Chris@49
|
96 }
|
Chris@49
|
97
|
Chris@49
|
98
|
Chris@49
|
99
|
Chris@49
|
100 template<typename T1>
|
Chris@49
|
101 inline
|
Chris@49
|
102 typename
|
Chris@49
|
103 enable_if2
|
Chris@49
|
104 <
|
Chris@49
|
105 is_arma_sparse_type<T1>::value,
|
Chris@49
|
106 const SpOp<T1,spop_htrans>
|
Chris@49
|
107 >::result
|
Chris@49
|
108 trans
|
Chris@49
|
109 (
|
Chris@49
|
110 const T1& x,
|
Chris@49
|
111 const typename arma_cx_only<typename T1::elem_type>::result* junk = 0
|
Chris@49
|
112 )
|
Chris@49
|
113 {
|
Chris@49
|
114 arma_extra_debug_sigprint();
|
Chris@49
|
115 arma_ignore(junk);
|
Chris@49
|
116
|
Chris@49
|
117 return SpOp<T1,spop_htrans>(x);
|
Chris@49
|
118 }
|
Chris@49
|
119
|
Chris@49
|
120
|
Chris@49
|
121
|
Chris@49
|
122 template<typename T1>
|
Chris@49
|
123 inline
|
Chris@49
|
124 typename
|
Chris@49
|
125 enable_if2
|
Chris@49
|
126 <
|
Chris@49
|
127 is_arma_sparse_type<T1>::value,
|
Chris@49
|
128 const SpOp<T1,spop_strans>
|
Chris@49
|
129 >::result
|
Chris@49
|
130 htrans
|
Chris@49
|
131 (
|
Chris@49
|
132 const T1& x,
|
Chris@49
|
133 const typename arma_not_cx<typename T1::elem_type>::result* junk = 0
|
Chris@49
|
134 )
|
Chris@49
|
135 {
|
Chris@49
|
136 arma_extra_debug_sigprint();
|
Chris@49
|
137 arma_ignore(junk);
|
Chris@49
|
138
|
Chris@49
|
139 return SpOp<T1,spop_strans>(x);
|
Chris@49
|
140 }
|
Chris@49
|
141
|
Chris@49
|
142
|
Chris@49
|
143
|
Chris@49
|
144 template<typename T1>
|
Chris@49
|
145 inline
|
Chris@49
|
146 typename
|
Chris@49
|
147 enable_if2
|
Chris@49
|
148 <
|
Chris@49
|
149 is_arma_sparse_type<T1>::value,
|
Chris@49
|
150 const SpOp<T1,spop_htrans>
|
Chris@49
|
151 >::result
|
Chris@49
|
152 htrans
|
Chris@49
|
153 (
|
Chris@49
|
154 const T1& x,
|
Chris@49
|
155 const typename arma_cx_only<typename T1::elem_type>::result* junk = 0
|
Chris@49
|
156 )
|
Chris@49
|
157 {
|
Chris@49
|
158 arma_extra_debug_sigprint();
|
Chris@49
|
159 arma_ignore(junk);
|
Chris@49
|
160
|
Chris@49
|
161 return SpOp<T1,spop_htrans>(x);
|
Chris@49
|
162 }
|
Chris@49
|
163
|
Chris@49
|
164
|
Chris@49
|
165
|
Chris@49
|
166 //! @}
|