• Home
  • Line#
  • Scopes#
  • Navigate#
  • Raw
  • Download
1 // This file is part of Eigen, a lightweight C++ template library
2 // for linear algebra.
3 //
4 // Copyright (C) 2010 Gael Guennebaud <gael.guennebaud@inria.fr>
5 //
6 // This Source Code Form is subject to the terms of the Mozilla
7 // Public License v. 2.0. If a copy of the MPL was not distributed
8 // with this file, You can obtain one at http://mozilla.org/MPL/2.0/.
9 
10 #include "main.h"
11 
12 #define CHECK_MMTR(DEST, TRI, OP) {                   \
13     ref2 = ref1 = DEST;                               \
14     DEST.template triangularView<TRI>() OP;           \
15     ref1 OP;                                          \
16     ref2.template triangularView<TRI>() = ref1;       \
17     VERIFY_IS_APPROX(DEST,ref2);                      \
18   }
19 
mmtr(int size)20 template<typename Scalar> void mmtr(int size)
21 {
22   typedef Matrix<Scalar,Dynamic,Dynamic,ColMajor> MatrixColMaj;
23   typedef Matrix<Scalar,Dynamic,Dynamic,RowMajor> MatrixRowMaj;
24 
25   DenseIndex othersize = internal::random<DenseIndex>(1,200);
26 
27   MatrixColMaj matc(size, size);
28   MatrixRowMaj matr(size, size);
29   MatrixColMaj ref1(size, size), ref2(size, size);
30 
31   MatrixColMaj soc(size,othersize); soc.setRandom();
32   MatrixColMaj osc(othersize,size); osc.setRandom();
33   MatrixRowMaj sor(size,othersize); sor.setRandom();
34   MatrixRowMaj osr(othersize,size); osr.setRandom();
35 
36   Scalar s = internal::random<Scalar>();
37 
38   CHECK_MMTR(matc, Lower, = s*soc*sor.adjoint());
39   CHECK_MMTR(matc, Upper, = s*(soc*soc.adjoint()));
40   CHECK_MMTR(matr, Lower, = s*soc*soc.adjoint());
41   CHECK_MMTR(matr, Upper, = soc*(s*sor.adjoint()));
42 
43   CHECK_MMTR(matc, Lower, += s*soc*soc.adjoint());
44   CHECK_MMTR(matc, Upper, += s*(soc*sor.transpose()));
45   CHECK_MMTR(matr, Lower, += s*sor*soc.adjoint());
46   CHECK_MMTR(matr, Upper, += soc*(s*soc.adjoint()));
47 
48   CHECK_MMTR(matc, Lower, -= s*soc*soc.adjoint());
49   CHECK_MMTR(matc, Upper, -= s*(osc.transpose()*osc.conjugate()));
50   CHECK_MMTR(matr, Lower, -= s*soc*soc.adjoint());
51   CHECK_MMTR(matr, Upper, -= soc*(s*soc.adjoint()));
52 }
53 
test_product_mmtr()54 void test_product_mmtr()
55 {
56   for(int i = 0; i < g_repeat ; i++)
57   {
58     CALL_SUBTEST_1((mmtr<float>(internal::random<int>(1,EIGEN_TEST_MAX_SIZE))));
59     CALL_SUBTEST_2((mmtr<double>(internal::random<int>(1,EIGEN_TEST_MAX_SIZE))));
60     CALL_SUBTEST_3((mmtr<std::complex<float> >(internal::random<int>(1,EIGEN_TEST_MAX_SIZE/2))));
61     CALL_SUBTEST_4((mmtr<std::complex<double> >(internal::random<int>(1,EIGEN_TEST_MAX_SIZE/2))));
62   }
63 }
64