horzcat_Pattern

Source: tests/sparse/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/intRange.h>
#include <myramath/sparse/SparseMatrix.h>
#include <myramath/sparse/SparseMatrixRange.h>
#include <myramath/sparse/Pattern.h>
#include <myramath/sparse/PatternRange.h>

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

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

using namespace myra;

namespace {

// SparseMatrix/SparseMatrixRange

// Test horzcat(A,B)
template<class Number> void test1(typename ReflectPrecision<Number>::type tolerance)
  {
  typedef typename ReflectPrecision<Number>::type Precision;
  auto A = SparseMatrix<Number>::random(20,20,50);
  auto B = horzcat( A.left(10), A.right(10) );  
  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 = SparseMatrix<Number>::random(20,20,50);
  auto B = horzcat( A.add_const().columns({10,5,5}) );
  Precision error = frobenius(A-B);
  myra::out() << "  |A - horzcat(...)| = " << error << std::endl;
  REQUIRE(error < tolerance);
  }

#endif

// Pattern/PatternRange

// Test horzcat(A,B)
void test3()
  {
  auto A = Pattern::random(20,20,50);
  auto B = horzcat( A.left(10), A.right(10) );  
  bool equal = (A==B);
  myra::out() << "  A == horzcat(a,a) : " << (equal?"true":"false") << std::endl;
  REQUIRE(equal);
  }


#ifdef MYRAMATH_ENABLE_CPP11

// Test horzcat({A,B,C})
void test4()
  {
  auto A = Pattern::random(20,20,50);
  auto B = horzcat( A.columns({10,5,5}) );
  bool equal = (A==B);
  myra::out() << "  A == horzcat(...) : " << (equal?"true":"false") << std::endl;
  REQUIRE(equal);
  }

#endif

} // namespace

ADD_TEST("horzcat_SparseMatrix","[sparse]")
  {
  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_SparseMatrix_cpp11","[sparse]")
  {
  test2<NumberS>(1.0e-5f);
  test2<NumberD>(1.0e-10);
  test2<NumberC>(1.0e-5f);  
  test2<NumberZ>(1.0e-10);
  }

#endif

ADD_TEST("horzcat_Pattern","[sparse]")
  { test3(); }

#ifdef MYRAMATH_ENABLE_CPP11

ADD_TEST("horzcat_Pattern_cpp11","[sparse]")
  { test4(); }

#endif

Results: [PASS]

  A == horzcat(a,a) : true

Go back to Summary of /test programs.