| Brian Silverman | dc6866b | 2018-08-05 00:18:23 -0700 | [diff] [blame^] | 1 | // |
| 2 | // Copyright (c) 2000-2002 |
| 3 | // Joerg Walter, Mathias Koch |
| 4 | // |
| 5 | // Distributed under the Boost Software License, Version 1.0. (See |
| 6 | // accompanying file LICENSE_1_0.txt or copy at |
| 7 | // http://www.boost.org/LICENSE_1_0.txt) |
| 8 | // |
| 9 | // The authors gratefully acknowledge the support of |
| 10 | // GeNeSys mbH & Co. KG in producing this work. |
| 11 | // |
| 12 | |
| 13 | #include <boost/numeric/ublas/triangular.hpp> |
| 14 | #include <boost/numeric/ublas/io.hpp> |
| 15 | |
| 16 | int main () { |
| 17 | using namespace boost::numeric::ublas; |
| 18 | matrix<double> m (3, 3); |
| 19 | vector<double> v (3); |
| 20 | for (unsigned i = 0; i < (std::min) (m.size1 (), v.size ()); ++ i) { |
| 21 | for (unsigned j = 0; j <= i; ++ j) |
| 22 | m (i, j) = 3 * i + j + 1; |
| 23 | v (i) = i; |
| 24 | } |
| 25 | |
| 26 | std::cout << solve (m, v, lower_tag ()) << std::endl; |
| 27 | std::cout << solve (v, m, lower_tag ()) << std::endl; |
| 28 | } |
| 29 | |