%
% Aufgabe 4.7.1: Eigenwert-Berechnung
%    eigenwerte()
function  eigenwerte()

   A1 = [ 1 0 0; 0 5 0; 0 0 -3 ];
   berechneEig( A1 );
   A2 = [ 1 2 3; 0 5 6; 0 0 -3 ];
   berechneEig( A2 );
   A3 = [ 1 2; 1 1 ];
   berechneEig( A3 );
   A4 = [ 1 2 3; 1 1 1; 5 4 3 ];
   berechneEig( A4 );
   A5 = [ 1 1; 1 1 ];
   berechneEig( A5 );
   A6 = [ sqrt(2), sqrt(2); - sqrt(2), sqrt(2) ];
   berechneEig( A6 );
end

% Unterfunktion
function berechneEig( A )

   % Ausgabe der Matrix
   fprintf( 'Matrix: ' );
   A
   
   % Eigenwerte
   fprintf( 'Eigenwerte: ' );
   w = eig(A)
   % Eigenwerte und Eigenvektoren
   fprintf( 'Eigenwerte und Eigenvektoren: ' );
   [v,ew] = eig(A)
end