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
output = wavedata;
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 output
samplingrate=8000
bitprosample=16
wavwrite(output,samplingrate,bitprosample,outstringname)
%
%Anmerkung: wenn direkt der Filename hallo genutzt werden soll:
%wavwrite(y,samplingrate,16,'hallo')
%
%('weiter ==> beliebige Taste');
pause
close