Dokument [PDF, 9,1 MB] - FB 4 Allgemein - Fachhochschule ...

20. Anhang 198
kanal = 'rechts';
vergleich = 0;
%---------------------------------------------------------------------
%- Programmschleife
%---------------------------------------------------------------------
for i = 1:2 %- Es werden nur zwei Dateien analysiert.
%- Dateiwahlschleife
if i == 1 % Erster Durchlauf: rechten Kanal wählen
while vergleich == 0
%---------------------------------------------------------------------
%- Einlesen der Wav-Datei
%---------------------------------------------------------------------
fenstertitel = strcat('WAV-Datei laden, Kanal: ', kanal);
[dateiname, pfad] = uigetfile('*.wav', fenstertitel);
datei_string = strcat(pfad, dateiname);
[zeitdaten_roh, abtastrate, bits] = wavread(datei_string);
%- Namensergänzung für den rechten Kanal
str_er = '_re';
%- Länge der Kanal-Namenserweiterung
l_str = length(str_er);
laenge_dateiname = length(dateiname);
%- Position der Kanal-Namenserweiterung im Dateinamen ('_re' oder '_li')
%- Dies geht, da hinter der Namensergänzung im Namen nichts mehr steht.
pos_str = laenge_dateiname - 6;
v_str = dateiname(pos_str:(pos_str+l_str-1));
%- Entnahme eines Teilstrings aus dem Dateinamen, der Länge l_str.
%- Dieser Teilstring wird mit den erwarteten Namenserweiterungen
%- verglichen, wonach der gewählte Kanal ermittelt wird.
%- Ergibt: '_re' oder '_li'.
if strcmp(v_str, str_er)
vergleich = 1;
elseif strcmp(v_str, str_er)
vergleich = 0;
display('Falscher Kanal oder Dateinamenfehler');
end %- if-Anweisung
end %- while-Anweisung
elseif i==2 %- zweiter Durchlauf: linken Kanal wählen
datei_string = strcat(pfad, dateiname(1:(laenge_dateiname - 6)), ↵
'li', '.wav')
[zeitdaten_roh, abtastrate, bits] = wavread(datei_string);
end
%- Anzeige der analysierten Datei
datei_string
%---------------------------------------------------------------------
%- Textdatei für den Kalibrierfaktor vorbereiten
%- [Stammname]_Kalibrierfaktor.TXT.
%---------------------------------------------------------------------
if i==1
Fachhochschule Düsseldorf Diplomarbeit 2002/03, Terence Klitz