void
test_eigen_nonsymm_matrix(const gsl_matrix * m, size_t count,
const char * desc,
gsl_eigen_nonsymmv_workspace *w)
{
const size_t N = m->size1;
gsl_matrix * A = gsl_matrix_alloc(N, N);
gsl_matrix * Z = gsl_matrix_alloc(N, N);
gsl_matrix_complex * evec = gsl_matrix_complex_alloc(N, N);
gsl_vector_complex * eval = gsl_vector_complex_alloc(N);
/*
* calculate eigenvalues and eigenvectors - it is sufficient to
* test gsl_eigen_nonsymmv() since that function calls
* gsl_eigen_nonsymm() for the eigenvalues
*/
gsl_matrix_memcpy(A, m);
gsl_eigen_nonsymmv(A, eval, evec, w);
test_eigen_nonsymm_results (m, eval, evec, count, desc, "unsorted");
/* test sort routines */
gsl_eigen_nonsymmv_sort (eval, evec, GSL_EIGEN_SORT_ABS_ASC);
test_eigen_nonsymm_results (m, eval, evec, count, desc, "abs/asc");
gsl_eigen_nonsymmv_sort (eval, evec, GSL_EIGEN_SORT_ABS_DESC);
test_eigen_nonsymm_results (m, eval, evec, count, desc, "abs/desc");
/* test Schur vectors */
gsl_matrix_memcpy(A, m);
gsl_eigen_nonsymmv_Z(A, eval, evec, Z, w);
gsl_linalg_hessenberg_set_zero(A);
test_eigen_schur(m, A, Z, Z, count, "nonsymm", desc);
/* test if Z is an orthogonal matrix */
if (w->nonsymm_workspace_p->do_balance == 0)
test_eigen_orthog(Z, count, "nonsymm", desc);
gsl_matrix_free(A);
gsl_matrix_free(Z);
gsl_matrix_complex_free(evec);
gsl_vector_complex_free(eval);
}
/**
* C++ version of gsl_linalg_hessenberg_set_zero().
* @param H An upper Hessenberg matrix
* @return Error code on failure
*/
inline int hessenberg_set_zero( matrix& H ){ return gsl_linalg_hessenberg_set_zero( H.get() ); }
