mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2025-05-25 02:42:28 -04:00
470 lines
16 KiB
C++
470 lines
16 KiB
C++
|
//
|
||
|
// Copyright (c) 2000-2002
|
||
|
// Joerg Walter, Mathias Koch
|
||
|
//
|
||
|
// Distributed under the Boost Software License, Version 1.0. (See
|
||
|
// accompanying file LICENSE_1_0.txt or copy at
|
||
|
// http://www.boost.org/LICENSE_1_0.txt)
|
||
|
//
|
||
|
// The authors gratefully acknowledge the support of
|
||
|
// GeNeSys mbH & Co. KG in producing this work.
|
||
|
//
|
||
|
|
||
|
#include "bench2.hpp"
|
||
|
|
||
|
template<class T, int N>
|
||
|
struct bench_c_outer_prod {
|
||
|
typedef T value_type;
|
||
|
|
||
|
void operator () (int runs) const {
|
||
|
try {
|
||
|
static typename c_matrix_traits<T, N, N>::type m;
|
||
|
static typename c_vector_traits<T, N>::type v1, v2;
|
||
|
initialize_c_vector<T, N> () (v1);
|
||
|
initialize_c_vector<T, N> () (v2);
|
||
|
boost::timer t;
|
||
|
for (int i = 0; i < runs; ++ i) {
|
||
|
for (int j = 0; j < N; ++ j) {
|
||
|
for (int k = 0; k < N; ++ k) {
|
||
|
m [j] [k] = - v1 [j] * v2 [k];
|
||
|
}
|
||
|
}
|
||
|
// sink_c_matrix<T, N, N> () (m);
|
||
|
BOOST_UBLAS_NOT_USED(m);
|
||
|
}
|
||
|
footer<value_type> () (N * N, N * N, runs, t.elapsed ());
|
||
|
}
|
||
|
catch (std::exception &e) {
|
||
|
std::cout << e.what () << std::endl;
|
||
|
}
|
||
|
}
|
||
|
};
|
||
|
template<class M, class V, int N>
|
||
|
struct bench_my_outer_prod {
|
||
|
typedef typename M::value_type value_type;
|
||
|
|
||
|
void operator () (int runs, safe_tag) const {
|
||
|
try {
|
||
|
static M m (N, N, N * N);
|
||
|
static V v1 (N, N), v2 (N, N);
|
||
|
initialize_vector (v1);
|
||
|
initialize_vector (v2);
|
||
|
boost::timer t;
|
||
|
for (int i = 0; i < runs; ++ i) {
|
||
|
m = - ublas::outer_prod (v1, v2);
|
||
|
// sink_matrix (m);
|
||
|
BOOST_UBLAS_NOT_USED(m);
|
||
|
}
|
||
|
footer<value_type> () (N * N, N * N, runs, t.elapsed ());
|
||
|
}
|
||
|
catch (std::exception &e) {
|
||
|
std::cout << e.what () << std::endl;
|
||
|
}
|
||
|
}
|
||
|
void operator () (int runs, fast_tag) const {
|
||
|
try {
|
||
|
static M m (N, N, N * N);
|
||
|
static V v1 (N, N), v2 (N, N);
|
||
|
initialize_vector (v1);
|
||
|
initialize_vector (v2);
|
||
|
boost::timer t;
|
||
|
for (int i = 0; i < runs; ++ i) {
|
||
|
m.assign (- ublas::outer_prod (v1, v2));
|
||
|
// sink_matrix (m);
|
||
|
BOOST_UBLAS_NOT_USED(m);
|
||
|
}
|
||
|
footer<value_type> () (N * N, N * N, runs, t.elapsed ());
|
||
|
}
|
||
|
catch (std::exception &e) {
|
||
|
std::cout << e.what () << std::endl;
|
||
|
}
|
||
|
}
|
||
|
};
|
||
|
template<class M, class V, int N>
|
||
|
struct bench_cpp_outer_prod {
|
||
|
typedef typename M::value_type value_type;
|
||
|
|
||
|
void operator () (int runs) const {
|
||
|
try {
|
||
|
static M m (N * N);
|
||
|
static V v1 (N), v2 (N);
|
||
|
initialize_vector (v1);
|
||
|
initialize_vector (v2);
|
||
|
boost::timer t;
|
||
|
for (int i = 0; i < runs; ++ i) {
|
||
|
for (int j = 0; j < N; ++ j) {
|
||
|
for (int k = 0; k < N; ++ k) {
|
||
|
m [N * j + k] = - v1 [j] * v2 [k];
|
||
|
}
|
||
|
}
|
||
|
// sink_vector (m);
|
||
|
}
|
||
|
footer<value_type> () (N * N, N * N, runs, t.elapsed ());
|
||
|
}
|
||
|
catch (std::exception &e) {
|
||
|
std::cout << e.what () << std::endl;
|
||
|
}
|
||
|
}
|
||
|
};
|
||
|
|
||
|
template<class T, int N>
|
||
|
struct bench_c_matrix_vector_prod {
|
||
|
typedef T value_type;
|
||
|
|
||
|
void operator () (int runs) const {
|
||
|
try {
|
||
|
static typename c_matrix_traits<T, N, N>::type m;
|
||
|
static typename c_vector_traits<T, N>::type v1, v2;
|
||
|
initialize_c_matrix<T, N, N> () (m);
|
||
|
initialize_c_vector<T, N> () (v1);
|
||
|
boost::timer t;
|
||
|
for (int i = 0; i < runs; ++ i) {
|
||
|
for (int j = 0; j < N; ++ j) {
|
||
|
v2 [j] = 0;
|
||
|
for (int k = 0; k < N; ++ k) {
|
||
|
v2 [j] += m [j] [k] * v1 [k];
|
||
|
}
|
||
|
}
|
||
|
// sink_c_vector<T, N> () (v2);
|
||
|
}
|
||
|
footer<value_type> () (N * N, N * (N - 1), runs, t.elapsed ());
|
||
|
}
|
||
|
catch (std::exception &e) {
|
||
|
std::cout << e.what () << std::endl;
|
||
|
}
|
||
|
}
|
||
|
};
|
||
|
template<class M, class V, int N>
|
||
|
struct bench_my_matrix_vector_prod {
|
||
|
typedef typename M::value_type value_type;
|
||
|
|
||
|
void operator () (int runs, safe_tag) const {
|
||
|
try {
|
||
|
static M m (N, N, N * N);
|
||
|
static V v1 (N, N), v2 (N, N);
|
||
|
initialize_matrix (m);
|
||
|
initialize_vector (v1);
|
||
|
boost::timer t;
|
||
|
for (int i = 0; i < runs; ++ i) {
|
||
|
v2 = ublas::prod (m, v1);
|
||
|
// sink_vector (v2);
|
||
|
}
|
||
|
footer<value_type> () (N * N, N * (N - 1), runs, t.elapsed ());
|
||
|
}
|
||
|
catch (std::exception &e) {
|
||
|
std::cout << e.what () << std::endl;
|
||
|
}
|
||
|
}
|
||
|
void operator () (int runs, fast_tag) const {
|
||
|
try {
|
||
|
static M m (N, N, N * N);
|
||
|
static V v1 (N, N), v2 (N, N);
|
||
|
initialize_matrix (m);
|
||
|
initialize_vector (v1);
|
||
|
boost::timer t;
|
||
|
for (int i = 0; i < runs; ++ i) {
|
||
|
v2.assign (ublas::prod (m, v1));
|
||
|
// sink_vector (v2);
|
||
|
}
|
||
|
footer<value_type> () (N * N, N * (N - 1), runs, t.elapsed ());
|
||
|
}
|
||
|
catch (std::exception &e) {
|
||
|
std::cout << e.what () << std::endl;
|
||
|
}
|
||
|
}
|
||
|
};
|
||
|
template<class M, class V, int N>
|
||
|
struct bench_cpp_matrix_vector_prod {
|
||
|
typedef typename M::value_type value_type;
|
||
|
|
||
|
void operator () (int runs) const {
|
||
|
try {
|
||
|
static M m (N * N);
|
||
|
static V v1 (N), v2 (N);
|
||
|
initialize_vector (m);
|
||
|
initialize_vector (v1);
|
||
|
boost::timer t;
|
||
|
for (int i = 0; i < runs; ++ i) {
|
||
|
for (int j = 0; j < N; ++ j) {
|
||
|
std::valarray<value_type> row (m [std::slice (N * j, N, 1)]);
|
||
|
v2 [j] = (row * v1).sum ();
|
||
|
}
|
||
|
// sink_vector (v2);
|
||
|
}
|
||
|
footer<value_type> () (N * N, N * (N - 1), runs, t.elapsed ());
|
||
|
}
|
||
|
catch (std::exception &e) {
|
||
|
std::cout << e.what () << std::endl;
|
||
|
}
|
||
|
}
|
||
|
};
|
||
|
|
||
|
template<class T, int N>
|
||
|
struct bench_c_matrix_add {
|
||
|
typedef T value_type;
|
||
|
|
||
|
void operator () (int runs) const {
|
||
|
try {
|
||
|
static typename c_matrix_traits<T, N, N>::type m1, m2, m3;
|
||
|
initialize_c_matrix<T, N, N> () (m1);
|
||
|
initialize_c_matrix<T, N, N> () (m2);
|
||
|
boost::timer t;
|
||
|
for (int i = 0; i < runs; ++ i) {
|
||
|
for (int j = 0; j < N; ++ j) {
|
||
|
for (int k = 0; k < N; ++ k) {
|
||
|
m3 [j] [k] = - (m1 [j] [k] + m2 [j] [k]);
|
||
|
}
|
||
|
}
|
||
|
// sink_c_matrix<T, N, N> () (m3);
|
||
|
BOOST_UBLAS_NOT_USED(m3);
|
||
|
}
|
||
|
footer<value_type> () (0, 2 * N * N, runs, t.elapsed ());
|
||
|
}
|
||
|
catch (std::exception &e) {
|
||
|
std::cout << e.what () << std::endl;
|
||
|
}
|
||
|
}
|
||
|
};
|
||
|
template<class M, int N>
|
||
|
struct bench_my_matrix_add {
|
||
|
typedef typename M::value_type value_type;
|
||
|
|
||
|
void operator () (int runs, safe_tag) const {
|
||
|
try {
|
||
|
static M m1 (N, N, N * N), m2 (N, N, N * N), m3 (N, N, N * N);
|
||
|
initialize_matrix (m1);
|
||
|
initialize_matrix (m2);
|
||
|
boost::timer t;
|
||
|
for (int i = 0; i < runs; ++ i) {
|
||
|
m3 = - (m1 + m2);
|
||
|
// sink_matrix (m3);
|
||
|
}
|
||
|
footer<value_type> () (0, 2 * N * N, runs, t.elapsed ());
|
||
|
}
|
||
|
catch (std::exception &e) {
|
||
|
std::cout << e.what () << std::endl;
|
||
|
}
|
||
|
}
|
||
|
void operator () (int runs, fast_tag) const {
|
||
|
try {
|
||
|
static M m1 (N, N, N * N), m2 (N, N, N * N), m3 (N, N, N * N);
|
||
|
initialize_matrix (m1);
|
||
|
initialize_matrix (m2);
|
||
|
boost::timer t;
|
||
|
for (int i = 0; i < runs; ++ i) {
|
||
|
m3.assign (- (m1 + m2));
|
||
|
// sink_matrix (m3);
|
||
|
}
|
||
|
footer<value_type> () (0, 2 * N * N, runs, t.elapsed ());
|
||
|
}
|
||
|
catch (std::exception &e) {
|
||
|
std::cout << e.what () << std::endl;
|
||
|
}
|
||
|
}
|
||
|
};
|
||
|
template<class M, int N>
|
||
|
struct bench_cpp_matrix_add {
|
||
|
typedef typename M::value_type value_type;
|
||
|
|
||
|
void operator () (int runs) const {
|
||
|
try {
|
||
|
static M m1 (N * N), m2 (N * N), m3 (N * N);
|
||
|
initialize_vector (m1);
|
||
|
initialize_vector (m2);
|
||
|
boost::timer t;
|
||
|
for (int i = 0; i < runs; ++ i) {
|
||
|
m3 = - (m1 + m2);
|
||
|
// sink_vector (m3);
|
||
|
}
|
||
|
footer<value_type> () (0, 2 * N * N, runs, t.elapsed ());
|
||
|
}
|
||
|
catch (std::exception &e) {
|
||
|
std::cout << e.what () << std::endl;
|
||
|
}
|
||
|
}
|
||
|
};
|
||
|
|
||
|
// Benchmark O (n ^ 2)
|
||
|
template<class T, int N>
|
||
|
void bench_2<T, N>::operator () (int runs) {
|
||
|
header ("bench_2");
|
||
|
|
||
|
header ("outer_prod");
|
||
|
|
||
|
header ("C array");
|
||
|
bench_c_outer_prod<T, N> () (runs);
|
||
|
|
||
|
#ifdef USE_SPARSE_MATRIX
|
||
|
#ifdef USE_MAP_ARRAY
|
||
|
header ("sparse_matrix<map_array>, sparse_vector<map_array> safe");
|
||
|
bench_my_outer_prod<ublas::sparse_matrix<T, ublas::row_major, ublas::map_array<std::size_t, T> >,
|
||
|
ublas::sparse_vector<T, ublas::map_array<std::size_t, T> >, N> () (runs, safe_tag ());
|
||
|
|
||
|
header ("sparse_matrix<map_array>, sparse_vector<map_array> fast");
|
||
|
bench_my_outer_prod<ublas::sparse_matrix<T, ublas::row_major, ublas::map_array<std::size_t, T> >,
|
||
|
ublas::sparse_vector<T, ublas::map_array<std::size_t, T> >, N> () (runs, fast_tag ());
|
||
|
#endif
|
||
|
|
||
|
#ifdef USE_STD_MAP
|
||
|
header ("sparse_matrix<std::map>, sparse_vector<std::map> safe");
|
||
|
bench_my_outer_prod<ublas::sparse_matrix<T, ublas::row_major, std::map<std::size_t, T> >,
|
||
|
ublas::sparse_vector<T, std::map<std::size_t, T> >, N> () (runs, safe_tag ());
|
||
|
|
||
|
header ("sparse_matrix<std::map>, sparse_vector<std::map> fast");
|
||
|
bench_my_outer_prod<ublas::sparse_matrix<T, ublas::row_major, std::map<std::size_t, T> >,
|
||
|
ublas::sparse_vector<T, std::map<std::size_t, T> >, N> () (runs, fast_tag ());
|
||
|
#endif
|
||
|
#endif
|
||
|
|
||
|
#ifdef USE_COMPRESSED_MATRIX
|
||
|
header ("compressed_matrix, compressed_vector safe");
|
||
|
bench_my_outer_prod<ublas::compressed_matrix<T, ublas::row_major>,
|
||
|
ublas::compressed_vector<T>, N> () (runs, safe_tag ());
|
||
|
|
||
|
header ("compressed_matrix, compressed_vector fast");
|
||
|
bench_my_outer_prod<ublas::compressed_matrix<T, ublas::row_major>,
|
||
|
ublas::compressed_vector<T>, N> () (runs, fast_tag ());
|
||
|
#endif
|
||
|
|
||
|
#ifdef USE_COORDINATE_MATRIX
|
||
|
header ("coordinate_matrix, coordinate_vector safe");
|
||
|
bench_my_outer_prod<ublas::coordinate_matrix<T, ublas::row_major>,
|
||
|
ublas::coordinate_vector<T>, N> () (runs, safe_tag ());
|
||
|
|
||
|
header ("coordinate_matrix, coordinate_vector fast");
|
||
|
bench_my_outer_prod<ublas::coordinate_matrix<T, ublas::row_major>,
|
||
|
ublas::coordinate_vector<T>, N> () (runs, fast_tag ());
|
||
|
#endif
|
||
|
|
||
|
#ifdef USE_STD_VALARRAY
|
||
|
header ("std::valarray");
|
||
|
bench_cpp_outer_prod<std::valarray<T>, std::valarray<T>, N> () (runs);
|
||
|
#endif
|
||
|
|
||
|
header ("prod (matrix, vector)");
|
||
|
|
||
|
header ("C array");
|
||
|
bench_c_matrix_vector_prod<T, N> () (runs);
|
||
|
|
||
|
#ifdef USE_SPARSE_MATRIX
|
||
|
#ifdef USE_MAP_ARRAY
|
||
|
header ("sparse_matrix<map_array>, sparse_vector<map_array> safe");
|
||
|
bench_my_matrix_vector_prod<ublas::sparse_matrix<T, ublas::row_major, ublas::map_array<std::size_t, T> >,
|
||
|
ublas::sparse_vector<T, ublas::map_array<std::size_t, T> >, N> () (runs, safe_tag ());
|
||
|
|
||
|
header ("sparse_matrix<map_array>, sparse_vector<map_array> fast");
|
||
|
bench_my_matrix_vector_prod<ublas::sparse_matrix<T, ublas::row_major, ublas::map_array<std::size_t, T> >,
|
||
|
ublas::sparse_vector<T, ublas::map_array<std::size_t, T> >, N> () (runs, fast_tag ());
|
||
|
#endif
|
||
|
|
||
|
#ifdef USE_STD_MAP
|
||
|
header ("sparse_matrix<std::map>, sparse_vector<std::map> safe");
|
||
|
bench_my_matrix_vector_prod<ublas::sparse_matrix<T, ublas::row_major, std::map<std::size_t, T> >,
|
||
|
ublas::sparse_vector<T, std::map<std::size_t, T> >, N> () (runs, safe_tag ());
|
||
|
|
||
|
header ("sparse_matrix<std::map>, sparse_vector<std::map> fast");
|
||
|
bench_my_matrix_vector_prod<ublas::sparse_matrix<T, ublas::row_major, std::map<std::size_t, T> >,
|
||
|
ublas::sparse_vector<T, std::map<std::size_t, T> >, N> () (runs, fast_tag ());
|
||
|
#endif
|
||
|
#endif
|
||
|
|
||
|
#ifdef USE_COMPRESSED_MATRIX
|
||
|
header ("compressed_matrix, compressed_vector safe");
|
||
|
bench_my_matrix_vector_prod<ublas::compressed_matrix<T, ublas::row_major>,
|
||
|
ublas::compressed_vector<T>, N> () (runs, safe_tag ());
|
||
|
|
||
|
header ("compressed_matrix, compressed_vector fast");
|
||
|
bench_my_matrix_vector_prod<ublas::compressed_matrix<T, ublas::row_major>,
|
||
|
ublas::compressed_vector<T>, N> () (runs, fast_tag ());
|
||
|
#endif
|
||
|
|
||
|
#ifdef USE_COORDINATE_MATRIX
|
||
|
header ("coordinate_matrix, coordinate_vector safe");
|
||
|
bench_my_matrix_vector_prod<ublas::coordinate_matrix<T, ublas::row_major>,
|
||
|
ublas::coordinate_vector<T>, N> () (runs, safe_tag ());
|
||
|
|
||
|
header ("coordinate_matrix, coordinate_vector fast");
|
||
|
bench_my_matrix_vector_prod<ublas::coordinate_matrix<T, ublas::row_major>,
|
||
|
ublas::coordinate_vector<T>, N> () (runs, fast_tag ());
|
||
|
#endif
|
||
|
|
||
|
#ifdef USE_STD_VALARRAY
|
||
|
header ("std::valarray");
|
||
|
bench_cpp_matrix_vector_prod<std::valarray<T>, std::valarray<T>, N> () (runs);
|
||
|
#endif
|
||
|
|
||
|
header ("matrix + matrix");
|
||
|
|
||
|
header ("C array");
|
||
|
bench_c_matrix_add<T, N> () (runs);
|
||
|
|
||
|
#ifdef USE_SPARSE_MATRIX
|
||
|
#ifdef USE_MAP_ARRAY
|
||
|
header ("sparse_matrix<map_array> safe");
|
||
|
bench_my_matrix_add<ublas::sparse_matrix<T, ublas::row_major, ublas::map_array<std::size_t, T> >, N> () (runs, safe_tag ());
|
||
|
|
||
|
header ("sparse_matrix<map_array> fast");
|
||
|
bench_my_matrix_add<ublas::sparse_matrix<T, ublas::row_major, ublas::map_array<std::size_t, T> >, N> () (runs, fast_tag ());
|
||
|
#endif
|
||
|
|
||
|
#ifdef USE_STD_MAP
|
||
|
header ("sparse_matrix<std::map> safe");
|
||
|
bench_my_matrix_add<ublas::sparse_matrix<T, ublas::row_major, std::map<std::size_t, T> >, N> () (runs, safe_tag ());
|
||
|
|
||
|
header ("sparse_matrix<std::map> fast");
|
||
|
bench_my_matrix_add<ublas::sparse_matrix<T, ublas::row_major, std::map<std::size_t, T> >, N> () (runs, fast_tag ());
|
||
|
#endif
|
||
|
#endif
|
||
|
|
||
|
#ifdef USE_COMPRESSED_MATRIX
|
||
|
header ("compressed_matrix safe");
|
||
|
bench_my_matrix_add<ublas::compressed_matrix<T, ublas::row_major>, N> () (runs, safe_tag ());
|
||
|
|
||
|
header ("compressed_matrix fast");
|
||
|
bench_my_matrix_add<ublas::compressed_matrix<T, ublas::row_major>, N> () (runs, fast_tag ());
|
||
|
#endif
|
||
|
|
||
|
#ifdef USE_COORDINATE_MATRIX
|
||
|
header ("coordinate_matrix safe");
|
||
|
bench_my_matrix_add<ublas::coordinate_matrix<T, ublas::row_major>, N> () (runs, safe_tag ());
|
||
|
|
||
|
header ("coordinate_matrix fast");
|
||
|
bench_my_matrix_add<ublas::coordinate_matrix<T, ublas::row_major>, N> () (runs, fast_tag ());
|
||
|
#endif
|
||
|
|
||
|
#ifdef USE_STD_VALARRAY
|
||
|
header ("std::valarray");
|
||
|
bench_cpp_matrix_add<std::valarray<T>, N> () (runs);
|
||
|
#endif
|
||
|
}
|
||
|
|
||
|
#ifdef USE_FLOAT
|
||
|
template struct bench_2<float, 3>;
|
||
|
template struct bench_2<float, 10>;
|
||
|
template struct bench_2<float, 30>;
|
||
|
template struct bench_2<float, 100>;
|
||
|
#endif
|
||
|
|
||
|
#ifdef USE_DOUBLE
|
||
|
template struct bench_2<double, 3>;
|
||
|
template struct bench_2<double, 10>;
|
||
|
template struct bench_2<double, 30>;
|
||
|
template struct bench_2<double, 100>;
|
||
|
#endif
|
||
|
|
||
|
#ifdef USE_STD_COMPLEX
|
||
|
#ifdef USE_FLOAT
|
||
|
template struct bench_2<std::complex<float>, 3>;
|
||
|
template struct bench_2<std::complex<float>, 10>;
|
||
|
template struct bench_2<std::complex<float>, 30>;
|
||
|
template struct bench_2<std::complex<float>, 100>;
|
||
|
#endif
|
||
|
|
||
|
#ifdef USE_DOUBLE
|
||
|
template struct bench_2<std::complex<double>, 3>;
|
||
|
template struct bench_2<std::complex<double>, 10>;
|
||
|
template struct bench_2<std::complex<double>, 30>;
|
||
|
template struct bench_2<std::complex<double>, 100>;
|
||
|
#endif
|
||
|
#endif
|