Macaulay2 Engine
Loading...
Searching...
No Matches

◆ eigenvectors_hermitian() [4/4]

bool EigenM2::eigenvectors_hermitian ( const LMatrixRRR * A,
LMatrixRRR * eigenvals,
LMatrixRRR * eigenvecs )

Definition at line 528 of file eigen.cpp.

528 {
529 auto old_prec = Real::get_default_prec();
530 Real::set_default_prec(A->ring().get_precision());
531
532 MatrixXmpRRR AXmp(A->numRows(), A->numColumns());
533 fill_to_MatrixXmp(*A, AXmp);
534
535 Eigen::SelfAdjointEigenSolver<MatrixXmpRRR> es(AXmp);
536 fill_from_MatrixXmp(es.eigenvalues(), *eigenvals);
537 fill_from_MatrixXmp(es.eigenvectors(), *eigenvecs);
538
539 Real::set_default_prec(old_prec);
540 return true;
541}
size_t numRows() const
Definition dmat.hpp:144
const ACoeffRing & ring() const
Definition dmat.hpp:143
size_t numColumns() const
Definition dmat.hpp:145
unsigned long get_precision() const
Definition aring-RRR.hpp:82
Eigen::Matrix< Real, Eigen::Dynamic, Eigen::Dynamic > MatrixXmpRRR
Definition eigen.cpp:25
void fill_to_MatrixXmp(const LMatrixRRR &orig, MatrixXmpRRR &result)
Definition eigen.cpp:313
void fill_from_MatrixXmp(const MatrixXmpRRR &orig, LMatrixRRR &result)
Definition eigen.cpp:327

References fill_from_MatrixXmp(), fill_to_MatrixXmp(), M2::ARingRRR::get_precision(), DMat< ACoeffRing >::numColumns(), DMat< ACoeffRing >::numRows(), and DMat< ACoeffRing >::ring().

Referenced by MatrixOps::eigenvectorsHermitian(), MatrixOps::eigenvectorsHermitian(), MatrixOps::eigenvectorsHermitian(), and MatrixOps::eigenvectorsHermitian().