view src/armadillo-test.cpp @ 4734:80461a9e516c

override default xerbla with version from Octave * mingw-blas-1-xerbla.patch, blas.mk: Build default libxerbla lib. * mingw-lapack-1-xerbla.patch, lapack.mk: Use external libxerbla. * mingw-openblas-1-xerbla.patch, openblas.mk: Likewise. * src/qrupdate-1-fixes.patch: Likewise. * default-octave.mk: Also install libxerbla.dll as libxerbla-octave.dll.
author John W. Eaton <jwe@octave.org>
date Thu, 21 Jun 2018 01:32:10 -0400
parents 82d1044a4434
children
line wrap: on
line source

/*
 * This file is part of MXE.
 * See index.html for further information.
 */

#include <armadillo>

using namespace arma;

int main()
{
	mat A = randu<mat>(50,50);
	mat B = trans(A)*A;  // generate a symmetric matrix
	
	vec eigval;
	mat eigvec;
	
	// use standard algorithm by default
	eig_sym(eigval, eigvec, B);
	
	// use divide & conquer algorithm
	eig_sym(eigval, eigvec, B, "dc");
	return 0;
}