horzcat_cpp11

Source: tests/dense/horzcat.cpp

// ========================================================================= //
// This file is part of MyraMath, copyright (c) 2014-2019 by Ryan A Chilton  //
// and distributed by MyraCore, LLC. See LICENSE.txt for license terms.      //
// ========================================================================= //

// Containers.
#include <myramath/utility/Array1.h>
#include <myramath/dense/Matrix.h>
#include <myramath/dense/MatrixRange.h>
#include <myramath/dense/intRange.h>

// Algorithms.
#include <myramath/dense/horzcat.h>
#include <myramath/dense/frobenius.h>

// Reporting.
#include <tests/myratest.h>

using namespace myra;

namespace {

// Test horzcat(A,B)
template<class Number> void test1(typename ReflectPrecision<Number>::type tolerance)
  {
  typedef typename ReflectPrecision<Number>::type Precision;
  auto A = Matrix<Number>::random(6,6);
  auto B = horzcat( A.left(2), A.right(4) );  
  Precision error = frobenius(A-B);
  myra::out() << "  |A - horzcat(a,a)| = " << error << std::endl;
  REQUIRE(error < tolerance);
  }

#ifdef MYRAMATH_ENABLE_CPP11

// Test horzcat({A,B,C})
template<class Number> void test2(typename ReflectPrecision<Number>::type tolerance)
  {
  typedef typename ReflectPrecision<Number>::type Precision;
  auto A = Matrix<Number>::random(7,7);
  auto B = horzcat( A.add_const().columns({2,3,2}) );
  Precision error = frobenius(A-B);
  myra::out() << "  |A - horzcat(...)| = " << error << std::endl;
  REQUIRE(error < tolerance);
  }

#endif

} // namespace

ADD_TEST("horzcat","[dense]")
  {
  test1<NumberS>(1.0e-5f);
  test1<NumberD>(1.0e-10);
  test1<NumberC>(1.0e-5f);  
  test1<NumberZ>(1.0e-10);
  }

#ifdef MYRAMATH_ENABLE_CPP11

ADD_TEST("horzcat_cpp11","[dense]")
  {
  test2<NumberS>(1.0e-5f);
  test2<NumberD>(1.0e-10);
  test2<NumberC>(1.0e-5f);  
  test2<NumberZ>(1.0e-10);
  }

#endif

Results: [PASS]

  |A - horzcat(...)| = 0
  |A - horzcat(...)| = 0
  |A - horzcat(...)| = 0
  |A - horzcat(...)| = 0

Go back to Summary of /test programs.