ita_demo_messtechnik_exercise.m 1.37 KB
Newer Older
Johannes Klein's avatar
Johannes Klein committed
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68
%% Akustische Messtechnik exercise
% _2016 JCK, ROP
%
% WARNING: This script contains blanks to be filled
%
%% Block A - Anechoic Chamber
%% A4 - Loudspeaker Transfer Function
% Measurement Setup
MS = itaMSTF;
MS.inputChannels    = %%
MS.outputChannels   = %%
MS.fftDegree        = %%
MS.repeats          = %%

% Calibrate
MS.calibrate;

% Measurement
result = MS.run;

% Plot result
result.pt
result.ptd
result.pf

% Window
result_win = ita_time_window(result, [], 'time');

% Plot windowed result
result_win.pt
result_win.ptd
result_win.pf

% Normalize result
% Watts
Loudspeaker_Impedance = %%
Loudspeaker_Voltage = MS.excitation.rms * MS.outputMeasurementChain.sensitivity;
Loudpseaker_Watts = Loudspeaker_Voltage^2/Loudspeaker_Impedance;
% Distance
Loudspeaker_Distance = %%
Floor = % 1 = no floor reflection, 2 = floor reflection
Loudspeaker_Sensitivity = result_win/Loudpseaker_Watts/Loudspeaker_Distance/Floor;


%% A6 - Sound Power
MS = itaMSRecord;
MS.inputChannels    = %%
MS.outputChannels   = %%
MS.fftDegree        = %%
MS.repeats          = %%

% Calibrate
MS.calibrate;

% Measurement
L_distance = %
L_result_1 = MS.run;

% Apply weighting
L_weight_1 = %
L_result_1_rms_weighted = L_result_1.rms * L_weight_1;

% Merge all results
L_result = (result_1_rms_weighted + ) / (weight_1 + );
L_L = 20*log10(L_result/2e-5);
Lw = L_L + 20*log10(L_distance) + 11;

%% Block B - Reverberation Chamber