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
|
%% Tracé de la FRF
% Initialisation
clear all
close all
clc
% Définition numérique des paramètres
m=1; k=10^6; c=10;
% mass matrix
M = [m 0; 0 m] ;
% damping matrix
C = [2*c -c; -c c];
% stiffness matrix
K = [2*k -k; -k k];
Df = 400/800;
freq = [Df:Df:400];
omega = freq*2*pi;
for i = 1:length(omega)
MDK = K+1i*omega(i)*C-omega(i)^2*M ;
MDKi = inv(MDK) ;
H11(i) = MDKi(1,1);
H21(i) = MDKi(1,1);
end
figure
subplot(2,2,1)
plot(freq,abs(H11))
xlabel('Frequency [Hz]')
ylabel('H_{11}')
grid on
subplot(2,2,2)
plot(freq,abs(H21))
xlabel('Frequency [Hz]')
ylabel('H_{21}')
grid on
subplot(2,2,3)
plot(freq,unwrap(angle(H11)))
ylabel('Phase [rad]')
xlabel('Frequency [Hz]')
grid on
subplot(2,2,4)
plot(freq,unwrap(angle(H21)))
ylabel('Phase [rad]')
xlabel('Frequency [Hz]')
grid on |
Partager