% 
%  Analog Resonanz, Daten werden von der Tastatur gelesen 
% 
function  ResonanzInput( )
   k = input( 'Federkontante k [N/m] = ' );
   m = input( 'Masse m [kg] = ' );
   d = input( 'Abklingskoeff. d [Hz] = ' );

   w = sqrt( k / m );
   fres = sqrt( w^2 - 2*d^2 ) / (2 * pi); 
   
   fprintf( '\nFür k=%g N/m, m=%g kg, d=%g Hz ist \n', k,m,d );
   fprintf( '  fres = %g Hz \n', fres );
