None.
Open in the MATLAB editor: f08gc_example
function f08gc_example fprintf('f08gc example results\n\n'); % A is symmetric matrix stored in symmetric (Lower) packed format uplo = 'L'; n = int64(4); ap = [1; 2; 3; 4; 2; 3; 4; 3; 4; 4]; % Eigenvalues and vectors of A job = 'Vectors'; [apf, w, z, info] = f08gc( ... job, uplo, n, ap); disp('Eigenvalues'); disp(w'); % Normalize eigenvectors: largest element positive for j = 1:n [~,k] = max(abs(z(:,j))); if z(k,j) < 0; z(:,j) = -z(:,j); end end disp('Eigenvectors'); disp(z);
f08gc example results Eigenvalues -2.0531 -0.5146 -0.2943 12.8621 Eigenvectors 0.7003 -0.5144 -0.2767 0.4103 0.3592 0.4851 0.6634 0.4422 -0.1569 0.5420 -0.6504 0.5085 -0.5965 -0.4543 0.2457 0.6144