bothcat

Source: tests/dense/bothcat.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/Array2.h>
#include <myramath/dense/Matrix.h>
#include <myramath/dense/MatrixRange.h>
#include <myramath/dense/intRange.h>

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

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

using namespace myra;

namespace {

// Test bothcat(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 = bothcat( A.top(2).left(2), A.top(2).right(4), A.bottom(4).left(2), A.bottom(4).right(4) );
  Precision error = frobenius(A-B);
  myra::out() << "  |A - bothcat(a,a,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 = bothcat( A.add_const().windows({2,3,2},{3,1,3}) );
  Precision error = frobenius(A-B);
  myra::out() << "  |A - bothcat(...)| = " << error << std::endl;
  REQUIRE(error < tolerance);
  }

#endif

} // namespace

ADD_TEST("bothcat","[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("bothcat_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 - bothcat(a,a,a,a)| = 0
  |A - bothcat(a,a,a,a)| = 0
  |A - bothcat(a,a,a,a)| = 0
  |A - bothcat(a,a,a,a)| = 0

Go back to Summary of /test programs.