%
% Berechnung des Typs einer Feder-Schwingung
%   k : Federkonstante, m = Masse, d = Abklingkoeff. 
% 
%   >> GedSchwingung( 10, .1, .1 )
%   >> GedSchwingung( 10, .1, 10 )
%   >> GedSchwingung( 10, .1, 100 )
%
function  GedSchwingung( k, m, d )
   w = sqrt( k / m ); 
   diff = abs( w - d );
   
   if( diff < eps )
     fprintf( 'Aperiodischer Grenzfall: w = %g = d = %d \n', w, d );
   elseif( w > d )
     fprintf( 'Schwingfall: w = %g > d = %d \n', w, d );
   else
     fprintf( 'Kriechfall: w = %g < d = %d \n', w, d );
   end 
