clc
%('Einlesen von Daten aus einem WAV-File');

testin=input('Welches Wav-File (ohne .wav) soll eingelesen werden? ','s');
%Einlesen im WAV-Format wavedata enthält die Audiodaten, Fs die Abtastfrequenz
[wavedata,Fs]=wavread(testin);

samplingrate=Fs
plot(wavedata),grid,title('Eingelesene Wav-Daten');

%('weiter ==> beliebige Taste');

pause
close


clc
%('Abspeichern von Sinusdaten y in ein WAV-File');

outstringname=input('Wie soll das Wav-File heissen (ohne .wav) ?   ','s');

%Speichern als wav-File unter dem Namen in String outstringname
% Audiodaten im Vektor y
samplingrate=8000
bitprosample=16
wavwrite(y,samplingrate,bitprosample,outstringname)
%
%Anmerkung: wenn direkt der Filename hallo genutzt werden soll:
%wavwrite(y,samplingrate,16,'hallo')
%

%('weiter ==> beliebige Taste');
pause
close