diff --git a/CMakeLists.txt b/CMakeLists.txt index 117c4ff..7e67606 100644 --- a/CMakeLists.txt +++ b/CMakeLists.txt @@ -70,6 +70,7 @@ endmacro() if(GCTL_FOUND) add_example(core array_ex ON OFF OFF OFF) add_example(core matrix_ex ON OFF OFF OFF) + add_example(core linear_algebra_ex ON OFF OFF OFF) add_example(core autodiff_ex ON OFF OFF OFF) add_example(core ceemdan_ex ON OFF OFF OFF) add_example(core cliplot_ex ON OFF OFF OFF) diff --git a/src/core/linear_algebra_ex.cpp b/src/core/linear_algebra_ex.cpp new file mode 100644 index 0000000..977649a --- /dev/null +++ b/src/core/linear_algebra_ex.cpp @@ -0,0 +1,77 @@ +/******************************************************** + * ██████╗ ██████╗████████╗██╗ + * ██╔════╝ ██╔════╝╚══██╔══╝██║ + * ██║ ███╗██║ ██║ ██║ + * ██║ ██║██║ ██║ ██║ + * ╚██████╔╝╚██████╗ ██║ ███████╗ + * ╚═════╝ ╚═════╝ ╚═╝ ╚══════╝ + * Geophysical Computational Tools & Library (GCTL) + * + * Copyright (c) 2023 Yi Zhang (yizhang-geo@zju.edu.cn) + * + * GCTL is distributed under a dual licensing scheme. You can redistribute + * it and/or modify it under the terms of the GNU Lesser General Public + * License as published by the Free Software Foundation, either version 2 + * of the License, or (at your option) any later version. You should have + * received a copy of the GNU Lesser General Public License along with this + * program. If not, see . + * + * If the terms and conditions of the LGPL v.2. would prevent you from using + * the GCTL, please consider the option to obtain a commercial license for a + * fee. These licenses are offered by the GCTL's original author. As a rule, + * licenses are provided "as-is", unlimited in time for a one time fee. Please + * send corresponding requests to: yizhang-geo@zju.edu.cn. Please do not forget + * to include some description of your company and the realm of its activities. + * Also add information on how to contact you by electronic and paper mail. + ******************************************************/ + +#include "gctl/math/linear_algebra.h" + +using namespace gctl; + +int main(int argc, char const *argv[]) +{ + _1d_array a(10, 1.0, 0.1); + _1d_array b(10, 1.0); + + _1d_array c(10); + veccpy(c, a, 2.0); + c.show(); + + vecadd(c, a, b, 1.0, 0.5); + c.show(); + + vecdiff(c, a, b, 1.0, 0.5); + c.show(); + + vecscale(c, 2.0); + c.show(); + + vecapp(c, a, 2.0); + c.show(); + + vecsub(c, a, 2.0); + c.show(); + + std::cout << vecdot(a, b) << "\n"; + + _2d_matrix m(10, 10, 1.0); + matvec(c, m, a); + c.show(); + + /* + int rows = 20000; + int cols = 20000; + _2d_matrix m(rows, cols, 1.0); + _1d_array v(cols, 2.0); + _1d_array r(rows); + + auto start = std::chrono::high_resolution_clock::now(); + matvec(r, m, v); + auto end = std::chrono::high_resolution_clock::now(); + + std::chrono::duration duration = end - start; + std::cout << "matvec execution time: " << duration.count() << " seconds" << std::endl; + */ + return 0; +}