Squashed 'third_party/boostorg/ublas/' content from commit e8607b3
Change-Id: Ia06afd642157a24e17fa9ddea28fb8601810b78e
git-subtree-dir: third_party/boostorg/ublas
git-subtree-split: e8607b3eea238e590eca93bfe498c21f470155c1
diff --git a/benchmarks/bench1/bench12.cpp b/benchmarks/bench1/bench12.cpp
new file mode 100644
index 0000000..439188f
--- /dev/null
+++ b/benchmarks/bench1/bench12.cpp
@@ -0,0 +1,491 @@
+//
+// 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 "bench1.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);
+ static V v1 (N), v2 (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);
+ }
+ 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);
+ static V v1 (N), v2 (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);
+ }
+ 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);
+ static V v1 (N), v2 (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);
+ static V v1 (N), v2 (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), m2 (N, N), m3 (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), m2 (N, N), m3 (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_C_ARRAY
+ header ("c_matrix, c_vector safe");
+ bench_my_outer_prod<ublas::c_matrix<T, N, N>,
+ ublas::c_vector<T, N>, N> () (runs, safe_tag ());
+
+ header ("c_matrix, c_vector fast");
+ bench_my_outer_prod<ublas::c_matrix<T, N, N>,
+ ublas::c_vector<T, N>, N> () (runs, fast_tag ());
+#endif
+
+#ifdef USE_BOUNDED_ARRAY
+ header ("matrix<bounded_array>, vector<bounded_array> safe");
+ bench_my_outer_prod<ublas::matrix<T, ublas::row_major, ublas::bounded_array<T, N * N> >,
+ ublas::vector<T, ublas::bounded_array<T, N> >, N> () (runs, safe_tag ());
+
+ header ("matrix<bounded_array>, vector<bounded_array> fast");
+ bench_my_outer_prod<ublas::matrix<T, ublas::row_major, ublas::bounded_array<T, N * N> >,
+ ublas::vector<T, ublas::bounded_array<T, N> >, N> () (runs, fast_tag ());
+#endif
+
+#ifdef USE_UNBOUNDED_ARRAY
+ header ("matrix<unbounded_array>, vector<unbounded_array> safe");
+ bench_my_outer_prod<ublas::matrix<T, ublas::row_major, ublas::unbounded_array<T> >,
+ ublas::vector<T, ublas::unbounded_array<T> >, N> () (runs, safe_tag ());
+
+ header ("matrix<unbounded_array>, vector<unbounded_array> fast");
+ bench_my_outer_prod<ublas::matrix<T, ublas::row_major, ublas::unbounded_array<T> >,
+ ublas::vector<T, ublas::unbounded_array<T> >, N> () (runs, fast_tag ());
+#endif
+
+#ifdef USE_STD_VALARRAY
+ header ("matrix<std::valarray>, vector<std::valarray> safe");
+ bench_my_outer_prod<ublas::matrix<T, ublas::row_major, std::valarray<T> >,
+ ublas::vector<T, std::valarray<T> >, N> () (runs, safe_tag ());
+
+ header ("matrix<std::valarray>, vector<std::valarray> fast");
+ bench_my_outer_prod<ublas::matrix<T, ublas::row_major, std::valarray<T> >,
+ ublas::vector<T, std::valarray<T> >, N> () (runs, fast_tag ());
+#endif
+
+#ifdef USE_STD_VECTOR
+ header ("matrix<std::vector>, vector<std::vector> safe");
+ bench_my_outer_prod<ublas::matrix<T, ublas::row_major, std::vector<T> >,
+ ublas::vector<T, std::vector<T> >, N> () (runs, safe_tag ());
+
+ header ("matrix<std::vector>, vector<std::vector> fast");
+ bench_my_outer_prod<ublas::matrix<T, ublas::row_major, std::vector<T> >,
+ ublas::vector<T, std::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_C_ARRAY
+ header ("c_matrix, c_vector safe");
+ bench_my_matrix_vector_prod<ublas::c_matrix<T, N, N>,
+ ublas::c_vector<T, N>, N> () (runs, safe_tag ());
+
+ header ("c_matrix, c_vector fast");
+ bench_my_matrix_vector_prod<ublas::c_matrix<T, N, N>,
+ ublas::c_vector<T, N>, N> () (runs, fast_tag ());
+#endif
+
+#ifdef USE_BOUNDED_ARRAY
+ header ("matrix<bounded_array>, vector<bounded_array> safe");
+ bench_my_matrix_vector_prod<ublas::matrix<T, ublas::row_major, ublas::bounded_array<T, N * N> >,
+ ublas::vector<T, ublas::bounded_array<T, N> >, N> () (runs, safe_tag ());
+
+ header ("matrix<bounded_array>, vector<bounded_array> fast");
+ bench_my_matrix_vector_prod<ublas::matrix<T, ublas::row_major, ublas::bounded_array<T, N * N> >,
+ ublas::vector<T, ublas::bounded_array<T, N> >, N> () (runs, fast_tag ());
+#endif
+
+#ifdef USE_UNBOUNDED_ARRAY
+ header ("matrix<unbounded_array>, vector<unbounded_array> safe");
+ bench_my_matrix_vector_prod<ublas::matrix<T, ublas::row_major, ublas::unbounded_array<T> >,
+ ublas::vector<T, ublas::unbounded_array<T> >, N> () (runs, safe_tag ());
+
+ header ("matrix<unbounded_array>, vector<unbounded_array> fast");
+ bench_my_matrix_vector_prod<ublas::matrix<T, ublas::row_major, ublas::unbounded_array<T> >,
+ ublas::vector<T, ublas::unbounded_array<T> >, N> () (runs, fast_tag ());
+#endif
+
+#ifdef USE_STD_VALARRAY
+ header ("matrix<std::valarray>, vector<std::valarray> safe");
+ bench_my_matrix_vector_prod<ublas::matrix<T, ublas::row_major, std::valarray<T> >,
+ ublas::vector<T, std::valarray<T> >, N> () (runs, safe_tag ());
+
+ header ("matrix<std::valarray>, vector<std::valarray> fast");
+ bench_my_matrix_vector_prod<ublas::matrix<T, ublas::row_major, std::valarray<T> >,
+ ublas::vector<T, std::valarray<T> >, N> () (runs, fast_tag ());
+#endif
+
+#ifdef USE_STD_VECTOR
+ header ("matrix<std::vector>, vector<std::vector> safe");
+ bench_my_matrix_vector_prod<ublas::matrix<T, ublas::row_major, std::vector<T> >,
+ ublas::vector<T, std::vector<T> >, N> () (runs, safe_tag ());
+
+ header ("matrix<std::vector>, vector<std::vector> fast");
+ bench_my_matrix_vector_prod<ublas::matrix<T, ublas::row_major, std::vector<T> >,
+ ublas::vector<T, std::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_C_ARRAY
+ header ("c_matrix safe");
+ bench_my_matrix_add<ublas::c_matrix<T, N, N>, N> () (runs, safe_tag ());
+
+ header ("c_matrix fast");
+ bench_my_matrix_add<ublas::c_matrix<T, N, N>, N> () (runs, fast_tag ());
+#endif
+
+#ifdef USE_BOUNDED_ARRAY
+ header ("matrix<bounded_array> safe");
+ bench_my_matrix_add<ublas::matrix<T, ublas::row_major, ublas::bounded_array<T, N * N> >, N> () (runs, safe_tag ());
+
+ header ("matrix<bounded_array> fast");
+ bench_my_matrix_add<ublas::matrix<T, ublas::row_major, ublas::bounded_array<T, N * N> >, N> () (runs, fast_tag ());
+#endif
+
+#ifdef USE_UNBOUNDED_ARRAY
+ header ("matrix<unbounded_array> safe");
+ bench_my_matrix_add<ublas::matrix<T, ublas::row_major, ublas::unbounded_array<T> >, N> () (runs, safe_tag ());
+
+ header ("matrix<unbounded_array> fast");
+ bench_my_matrix_add<ublas::matrix<T, ublas::row_major, ublas::unbounded_array<T> >, N> () (runs, fast_tag ());
+#endif
+
+#ifdef USE_STD_VALARRAY
+ header ("matrix<std::valarray> safe");
+ bench_my_matrix_add<ublas::matrix<T, ublas::row_major, std::valarray<T> >, N> () (runs, safe_tag ());
+
+ header ("matrix<std::valarray> fast");
+ bench_my_matrix_add<ublas::matrix<T, ublas::row_major, std::valarray<T> >, N> () (runs, fast_tag ());
+#endif
+
+#ifdef USE_STD_VECTOR
+ header ("matrix<std::vector> safe");
+ bench_my_matrix_add<ublas::matrix<T, ublas::row_major, std::vector<T> >, N> () (runs, safe_tag ());
+
+ header ("matrix<std::vector> fast");
+ bench_my_matrix_add<ublas::matrix<T, ublas::row_major, std::vector<T> >, 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