ViennaCL - The Vienna Computing Library: lanczos.cpp

ViennaCL - The Vienna Computing Library 1.7.1 Free open-source GPU-accelerated linear algebra and solver library. |

All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Macros Pages
lanczos.cpp

This tutorial shows how to calculate the largest eigenvalues of a matrix using Lanczos' method.

The Lanczos method is particularly attractive for use with large, sparse matrices, since the only requirement on the matrix is to provide a matrix-vector product. Although less common, the method is sometimes also used with dense matrices.

We start with including the necessary headers:

// include necessary system headers
#include <iostream>
//include basic scalar and vector types of ViennaCL
#include "viennacl/scalar.hpp"
#include "viennacl/vector.hpp"
#include "viennacl/matrix.hpp"
#include "viennacl/matrix_proxy.hpp"
#include "viennacl/compressed_matrix.hpp"
#include "viennacl/linalg/lanczos.hpp"
#include "viennacl/io/matrix_market.hpp"
// Some helper functions for this tutorial:
#include <iostream>
#include <string>
#include <iomanip>

We read a sparse matrix from a matrix-market file, then run the Lanczos method. Finally, the computed eigenvalues are printed.

int main()
{
// If you GPU does not support double precision, use `float` instead of `double`:
typedef double ScalarType;

Create the sparse matrix and read data from a Matrix-Market file:

std::vector< std::map<unsigned int, ScalarType> > host_A;
if (!viennacl::io::read_matrix_market_file(host_A, "../examples/testdata/mat65k.mtx"))
{
std::cout << "Error reading Matrix file" << std::endl;
return EXIT_FAILURE;
}
viennacl::compressed_matrix<ScalarType> A;
viennacl::copy(host_A, A);

Create the configuration for the Lanczos method. All constructor arguments are optional, so feel free to use default settings.

viennacl::linalg::lanczos_tag ltag(0.75, // Select a power of 0.75 as the tolerance for the machine precision.
10, // Compute (approximations to) the 10 largest eigenvalues
viennacl::linalg::lanczos_tag::partial_reorthogonalization, // use partial reorthogonalization
30); // Maximum size of the Krylov space

Run the Lanczos method for computing eigenvalues by passing the tag to the routine viennacl::linalg::eig().

std::cout << "Running Lanczos algorithm (eigenvalues only). This might take a while..." << std::endl;
std::vector<ScalarType> lanczos_eigenvalues = viennacl::linalg::eig(A, ltag);

Re-run the Lanczos method, this time also computing eigenvectors. To do so, we pass a dense matrix for which each column will ultimately hold the computed eigenvectors.

std::cout << "Running Lanczos algorithm (with eigenvectors). This might take a while..." << std::endl;
viennacl::matrix<ScalarType> approx_eigenvectors_A(A. size1(), ltag.num_eigenvalues());
lanczos_eigenvalues = viennacl::linalg::eig(A, approx_eigenvectors_A, ltag);

Print the computed eigenvalues and exit:

for (std::size_t i = 0; i< lanczos_eigenvalues.size(); i++)
{
std::cout << "Approx. eigenvalue " << std::setprecision(7) << lanczos_eigenvalues[i];
// test approximated eigenvector by computing A*v:
viennacl::vector<ScalarType> approx_eigenvector = viennacl::column(approx_eigenvectors_A, static_cast<unsigned int>(i));
viennacl::vector<ScalarType> Aq = viennacl::linalg::prod(A, approx_eigenvector);
std::cout << " (" << viennacl::linalg::inner_prod(Aq, approx_eigenvector) << " for <Av,v> with approx. eigenvector v)" << std::endl;
}
return EXIT_SUCCESS;
}

## Full Example Code

/* =========================================================================
Copyright (c) 2010-2016, Institute for Microelectronics,
Institute for Analysis and Scientific Computing,
TU Wien.
Portions of this software are copyright by UChicago Argonne, LLC.
-----------------
ViennaCL - The Vienna Computing Library
-----------------
Project Head: Karl Rupp rupp@iue.tuwien.ac.at
(A list of authors and contributors can be found in the PDF manual)
License: MIT (X11), see file LICENSE in the base directory
============================================================================= */
// include necessary system headers
#include <iostream>
//include basic scalar and vector types of ViennaCL
#include "viennacl/scalar.hpp"
#include "viennacl/vector.hpp"
#include "viennacl/matrix.hpp"
#include "viennacl/matrix_proxy.hpp"
#include "viennacl/compressed_matrix.hpp"
#include "viennacl/linalg/lanczos.hpp"
#include "viennacl/io/matrix_market.hpp"
// Some helper functions for this tutorial:
#include <iostream>
#include <string>
#include <iomanip>
int main()
{
// If you GPU does not support double precision, use `float` instead of `double`:
typedef double ScalarType;
std::vector< std::map<unsigned int, ScalarType> > host_A;
if (!viennacl::io::read_matrix_market_file(host_A, "../examples/testdata/mat65k.mtx"))
{
std::cout << "Error reading Matrix file" << std::endl;
return EXIT_FAILURE;
}
viennacl::compressed_matrix<ScalarType> A;
viennacl::copy(host_A, A);
viennacl::linalg::lanczos_tag ltag(0.75, // Select a power of 0.75 as the tolerance for the machine precision.
10, // Compute (approximations to) the 10 largest eigenvalues
viennacl::linalg::lanczos_tag::partial_reorthogonalization, // use partial reorthogonalization
30); // Maximum size of the Krylov space
std::cout << "Running Lanczos algorithm (eigenvalues only). This might take a while..." << std::endl;
std::vector<ScalarType> lanczos_eigenvalues = viennacl::linalg::eig(A, ltag);
std::cout << "Running Lanczos algorithm (with eigenvectors). This might take a while..." << std::endl;
viennacl::matrix<ScalarType> approx_eigenvectors_A(A.size1(), ltag. num_eigenvalues());
lanczos_eigenvalues = viennacl::linalg::eig(A, approx_eigenvectors_A, ltag);
for (std::size_t i = 0; i< lanczos_eigenvalues.size(); i++)
{
std::cout << "Approx. eigenvalue " << std::setprecision(7) << lanczos_eigenvalues[i];
// test approximated eigenvector by computing A*v:
viennacl::vector<ScalarType> approx_eigenvector = viennacl::column(approx_eigenvectors_A, static_cast<unsigned int>(i));
viennacl::vector<ScalarType> Aq = viennacl::linalg::prod(A, approx_eigenvector);
std::cout << " (" << viennacl::linalg::inner_prod(Aq, approx_eigenvector) << " for <Av,v> with approx. eigenvector v)" << std::endl;
}
return EXIT_SUCCESS;
}