Exercise A2 Multiple-Degree-Of-Freedom System: Authors: Submitted (Date) : 2019-08-30 Approved by (Name/date)
Exercise A2 Multiple-Degree-Of-Freedom System: Authors: Submitted (Date) : 2019-08-30 Approved by (Name/date)
Multiple-degree-of-freedom system
Approved by (name/date):
Grade:
m1 0 0 0 1 0 0 0 1 0 0 0
0 m2 0 0 0 1 0 0 0 1 0 0
M m 160 103 kg
0 0 m3 0 0 0 1 0 0 0 1 0
0 0 0 m4 0 0 0 1 0 0 0 1
The stiffness matrix(Calculated as rigid):
k1 k1 0 0 1 1 0 0 1 1 0 0
k k k k2 0 24 EI 1 2 1 0
K 1 1 2 3 89 106 1 2 1 0 N / m
0 k2 k 2 k3 k3 L 0 1 2 1 0 1 2 1
0 0 k3 k3 k 4 0 0 1 2 0 0 1 2
The natural frequencies with corresponding free vibration modes are calculated using matlab code, and
here are the results:
1.3028
3.7513
f Hz
5.7474
7.0502
2
Matlab Scripts
%--------------------------------------------------------------------------
% Exercise A2
% Multiple-degree-of-freedom system
% Author: Xiaoqi Wang, Shufan Ye, 2019-8-30
% -------------------------------------------------------------------------
clc,clear,close all
%% Task 2
EI = 100*10^6; % Bending stiffness /(Nm^2)
L = 3; % Column length /m
a = [1 -1 0 0;...
-1 2 -1 0;...
0 -1 2 -1;...
0 0 -1 2 ];
K = 24*EI/L^3*a; % Stiffness matrix for the system
M = 160*10^3*[1 0 0 0;...
0 1 0 0;...
0 0 1 0;...
0 0 0 1]; % Mass matrix for the system
format shortG
disp('Stiffness matrix for the system:')
for ii=1:4
disp(K(ii,:))
end % Display xstiffness matrix
disp('')
disp('Mass matrix for the system:')
for ii=1:4
disp(M(ii,:))
end % Display mass matrix
%% Task 3
[fi,w2]=eig(K,M); % Calculate the eigenvectors and eigenvalues
fi = fi./[max(abs(fi));max(abs(fi));max(abs(fi));max(abs(fi))];
% Normalize the eigenvectors
w = sqrt(w2); % Square root of w^2
w = diag(w); % Get the elements on the main diagonal of w
f = w/2/pi; % Calculate the natural frequency
format shortG
disp('')
disp('The natural frequency f:')
for ii=1:4
disp(f(ii))
end
%% Task 4
kn = diag(fi'*K*fi); % The general expression for model stiffness
p = [0 0 0 10^6]; % The external force vector
pn = fi'* p'; % The general expression for model force
qn = zeros(4,1); % Give a zeros matrix for modal amplitudes
u = zeros(4,1); % Give a zeros matrix for displacement
Rd = zeros(4,1); % Give a zeros matrix for amplification factor
omiga= 5; % The circular frequency of the added load
for i= 1:4
Rd(i,1)=1/(1-omiga^2/w(i,1)^2);
end % Calculate amplification factor
qn =pn./kn.*Rd; % Calculate modal amplitudes
u= fi*qn; % Calculate the maximum displacement
disp('')
disp('The maximum displacement u:')
3
for ii=1:4
disp(u(ii))
end
%% Task 5
p2 = [10^6 0 0 0 ]; % The external force vector
pn2 = fi'* p2'; % The general expression for model load
qn2 = zeros(4,1); % Give a zeros matrix for modal amplitudes
u2 = zeros(4,1); % Give a zeros matrix for displacement
Rd2 = zeros(4,1); % Give a zeros matrix for amplification factor
for i= 1:4
Rd2(i,1)=1/(1-omiga^2/w(i,1)^2);
end % Calculate amplification factor
qn2 =pn2./kn.*Rd2; % Calculate modal amplitudes
u2= fi*qn2; % Calculate the maximum displacement
disp('')
disp('The maximum displacement u2:')
for ii=1:4
disp(u2(ii))
end