transpose

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

// Algorithms.
#include <myramath/sparse/transpose.h>
#include <myramath/dense/transpose.h>
#include <myramath/dense/frobenius.h>

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

using namespace myra;

namespace {

template<class Number> void test(int I, int J, int N, typename ReflectPrecision<Number>::type tolerance)
  {
  myra::out() << typestring<Number>() << std::endl;    
  typedef typename ReflectPrecision<Number>::type Precision;
  // Make random SparseMatrix A.
  auto A = SparseMatrix<Number>::random(I,J,N);
  // Compare sparse transpose() against dense transpose()
  Precision error = frobenius( transpose(A).make_Matrix() - transpose(A.make_Matrix()) );
  myra::out() << "|A'(sparse) - A'(dense)| = " << error << std::endl;
  REQUIRE(error < tolerance);
  }

} // namespace

ADD_TEST("transpose","[sparse]")
  {
  test<NumberS>(20,30,150,1.0e-4f);
  test<NumberD>(20,30,150,1.0e-12);
  test<NumberC>(20,30,150,1.0e-4f);
  test<NumberZ>(20,30,150,1.0e-12);
  }

ADD_TEST("transpose_Pattern","[sparse]")
  {
  auto A = Pattern::random(20,30,150);
  auto At = transpose(A);
  bool ok = true;
  for (auto iterator = A.begin(); iterator != A.end(); ++iterator)
    {
    int i = iterator.i();
    int j = iterator.j();
    if (!At.test(j,i))
      ok = false;
    }
  REQUIRE(ok);
  }

Results: [PASS]

float
|A'(sparse) - A'(dense)| = 0
double
|A'(sparse) - A'(dense)| = 0
std::complex<float>
|A'(sparse) - A'(dense)| = 0
std::complex<double>
|A'(sparse) - A'(dense)| = 0

Go back to Summary of /test programs.