%
% Musterl"osung: Serie 03, Aufgabe 1
%

clear;

% initialisiere n
n= -1;

% An dieser Stelle reicht es aus, wenn die Studenten 
% nur nach n<1 abfragen.
% Die zweite Abfrage ist die Ganzzahligkeit. Diese wurde
% in der Vorlesung nicht behandelt, kann aber in den "Ubungen
% thematisiert werden.
while (n<1) || (n~=floor(n))
  n = input('Geben Sie eine natürliche Zahl ein: ');
end

% belegt einen Spaltenvektor der L"ange n
% Zeilenvektor geht auch
% der input-Befehl wird bereits im File eingabe.m verwendet
% Man kann das sch"oner mit dem sprintf-Befehl machen, siehe
% help (wurde in der Vorlesung nicht behandelt).
for i=1:n
    disp(i);
    a(i,1) = input('Geben Sie die zugehörige Vektorkomponente an : ');
end    

% Ausgabe des Vektors
a

% Dimension des Vektors a
[n,m] = size(a);
% Alternative:  n = length(a);
disp('Dimension des Vektors (Anzahl der Komponenten):' )
disp(n)
% ist a ein Zeilenvektor, dann disp(m)

% Transponierte des Vektors a (zugeh"origer Zeilenvektor)
disp('transponierter Vektor')
b = a'

% Euklidische Norm des Vektors a
disp('Euklidische Norm (Länge) des Vektors')
norm(a)

% Die Aufgabe mit der Maximumnorm entf"allt
% Skalarprodukt des Vektors A mit sich selbst
disp('Skalarprodukt des Vektors mit sich selbst:')
a'*a
% ist a ein Zeilenvektor, dann a*a'
