aggiunto note, piccoli fix a eigenvalues, aggiunto polinomio di chebyshev

2014-12-17 19:33:04 +01:00
parent 436bc12ec0
commit b8e4ff7203
9 changed files with 201 additions and 22 deletions
--- a/functions/eigenvalues_qr.m
+++ b/functions/eigenvalues_qr.m
@@ -0,0 +1,12 @@
+function [ values, err, A ] = eigenvalues_qr( A, ite, toll )
+
+i=0;
+err = inf;
+while (i < ite) && (err > toll)
+    [q,r] = qr(A);
+    A1= r * q;
+    err = norm(diag(A1) - diag(A),inf) / norm (diag(A1),inf);
+    A = A1;
+    i=i+1;
+end
+values = diag(A);