function spektrum(x, fs)
%  spektrum(x, fs): Zeichnet das Amplitudenspektrum des Signals x mit
%                   Sampling-Frequenz fs (Default fs = 8192 Hz)
%
%                   Typische Anwendung:
%                   >> t = linspace(0,1,8192);
%                   >> x = 0.5*sin(2*pi*440*t)+0.3*sin(2*pi*600*t);
%                   >> sound(x)
%                   >> spektrum(x)
if nargin==1, fs = 8192; end
n = length(x);
c = fft(x)/n;
amp = 2*abs(c);
amp(1) = amp(1)/2;
m = floor(n/2);
plot(linspace(0,(m-1)*fs/n,m), amp(1:m))
title('Amplitudenspektrum')
xlabel('Frequenz')
ylabel('Amplitude')
