Math::GSL::Eigen(3pm) | User Contributed Perl Documentation | Math::GSL::Eigen(3pm) |
Math::GSL::Eigen - Functions for computing eigenvalues and eigenvectors of matrices
use Math::GSL::Eigen qw/:all/;
Here is a list of all the functions included in this module :
This module also includes these constants :
For more information on the functions, we refer you to the GSL offcial documentation: <http://www.gnu.org/software/gsl/manual/html_node/>
This example shows how to use the gsl_eigen_symmv functions to find the eigenvalues and eigenvectors of a matrix.
use Math::GSL::Vector qw/:all/; use Math::GSL::Matrix qw/:all/; use Math::GSL::Eigen qw/:all/; my $w = gsl_eigen_symmv_alloc(2); my $m = gsl_matrix_alloc(2,2); gsl_matrix_set($m, 0, 0, 2); gsl_matrix_set($m, 0, 1, 1); gsl_matrix_set($m, 1, 0, 1); gsl_matrix_set($m, 1, 1, 2); my $eval = gsl_vector_alloc(2); my $evec = gsl_matrix_alloc(2,2); gsl_eigen_symmv($m, $eval, $evec, $w); gsl_eigen_gensymmv_sort($eval, $evec, $GSL_EIGEN_SORT_ABS_ASC); print "The first eigenvalue is : " . gsl_vector_get($eval, 0) . "\n"; print "The second eigenvalue is : " . gsl_vector_get($eval, 1) . "\n"; my $x = gsl_matrix_get($evec, 0, 0); my $y = gsl_matrix_get($evec, 0, 1); print "The first eigenvector is [$x, $y] \n"; $x = gsl_matrix_get($evec, 1, 0); $y = gsl_matrix_get($evec, 1, 1); print "The second eigenvector is [$x, $y] \n";
Jonathan "Duke" Leto <jonathan@leto.net> and Thierry Moisan <thierry.moisan@gmail.com>
Copyright (C) 2008-2011 Jonathan "Duke" Leto and Thierry Moisan
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
2019-02-23 | perl v5.28.1 |