25 lines
562 B
Mathematica
25 lines
562 B
Mathematica
|
load('mat/T_S_meas_Dz_3m_hac_svd_iff.mat', 't', 'de', 'Vs', 'u', 'Va', 'Rx', 'Kiff', 'Khac_iff_struts');
|
||
|
|
|
||
|
|
Ts = (t(end) - t(1))/(length(t)-1);
|
||
|
|
Fs = 1/Ts;
|
||
|
|
|
||
|
|
win = hanning(ceil(10*Fs)); % Hannning Windows
|
||
|
|
|
||
|
|
load('mat/jacobian.mat', 'J');
|
||
|
|
|
||
|
|
y = (inv(J)*de')';
|
||
|
|
|
||
|
|
[T, f] = tfestimate(Rx(:,3), y(:,3), win, [], [], 1/Ts);
|
||
|
|
[S, ~] = tfestimate(Rx(:,3), Rx(:,3)-y(:,3), win, [], [], 1/Ts);
|
||
|
|
|
||
|
|
figure;
|
||
|
|
hold on;
|
||
|
|
plot(f, abs(T));
|
||
|
|
plot(f, abs(S));
|
||
|
|
hold off;
|
||
|
|
set(gca, 'XScale', 'log'); set(gca, 'YScale', 'log');
|
||
|
|
xlabel('Frequency [Hz]'); ylabel('Amplitude');
|
||
|
|
grid;
|
||
|
|
xlim([1, 2e3]);
|
||
|
|
|