% Functon-File zur Prüfung SS 1999 Aufgabe 4
%
% INPUT : m,n : integer
% OUTPUT: Matrix, Kondition 
%
% Aufrufen mit SS99_4f(m,n)
%
function [Matrix, Kondition]=SS99_4f(m,n)
%
disp(' Prüfung SS 1999 Aufgabe 4 ');
%
if (nargin==1),
    n=m;
end;
%
Matrix=ones(m,n);
for r=1:1:m;
   for s=1:1:n;
      Matrix(r,s)=1./(2.*r+2.*s+1);
   end
end
%
Kondition=cond(Matrix);
%
% Kondition = eine Zahl
% Verlust   = wern schon ein paar Stellen sein