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

20. Anhang 223
end
end
end
if terz_fig ~ 0
%- Terzspektrum plotten
amp_terz_spek = tabelle(:,10);
amp_terz_spek((length(amp_terz_spek)+1)) = ↵
tabelle(length(tabelle),10);
terz_string = ['Terzmittelfrequenzen [', ↵
num2str(tabelle(1,1)), '; ', ↵
num2str(tabelle(length(tabelle),1)), ']']; ↵
gp_terz_dB = 10*log10( sum( 10.^(tabelle(:,10)./10)));
figure(3);
set(gcf,'name', dateiname);
stairs(log_f_stairs, amp_terz_spek, farben(k));
title(['Unbewertetes Terzspektrum; Kanal: ', kanal, ';AVG ↵
= ', num2str(mittelungsanzahl,3), '; GP: ', ↵
num2str(gp_terz_dB,'%5.1f'), ' dB; ', terz_string]); ↵
xlabel('f [Hz]');
ylabel('Lp [dB]');
set(gca, 'xlim', [log_f_stairs(1), ↵
log10(tabelle(length(tabelle),6))]);
set(gca, 'xscale', 'linear');
set(gca, 'xtick', log_f_mn);
set(gca, 'xticklabel', oktav_m);
set(gca, 'fontsize', 10);
set(gca, 'xgrid', 'on');
set(gca, 'ygrid', 'on');
hold on
end
m_2 = menu('Weitere MAT-Datei ?', 'JA', 'NEIN', ↵
'Vergleichsplot');
end
hold off;
figure(1);
if m_2 == 3
%- Einlesen eines Terzspektrums zum Vergleich
%- Das Terzspektrum muss in einer 2-spaltigen Textdatei vorliegen
%- Dezimaltrennzeichen : "." !!!!
%- Spalte 1 muss die Terzmittenfrquenzen enthalten (nach Norm)
%- Spalte 2 muss die zugehörigen Terzpegel enthalten
%- Der Terzbereich der Textdatei muss mit dem aus der "tabelle"
%- übereinstimmen.
%- Es findet diesbezüglich keine Überprüfung statt.
end
[text_dateiname, text_pfad] = uigetfile('*.TXT', ' Textdatei');
textdatei_string = strcat(text_pfad, text_dateiname);
[fm_terz, lp_terz] = textread(textdatei_string,'%u\t%f');
i_f1_a = find(tabelle(:,1) == fm_terz(1));
i_f1_e = find(tabelle(:,1) == fm_terz(length(fm_terz)));
f_1_v = tabelle(i_f1_a:i_f1_e,3);
f_1_v(length(f_1_v)+1) = tabelle(i_f1_e,6);
lp_terz(length(lp_terz)+1) = lp_terz(length(lp_terz));
log_f1_v = log10(f_1_v);
hold on;
figure(3);
stairs(log_f1_v, lp_terz, 'r');
Fachhochschule Düsseldorf Diplomarbeit 2002/03, Terence Klitz