1
Download Sky Vision: Final Design
Transcript
December 7, 2010
[SKY VISION: FINAL DESIGN]
% Transmissibility Curves
w_wn = 0:0.01:3;
z = [0.05;0.10;0.15;0.25;0.50;1];
for i = 1:length(z);
for j = 1:length(w_wn)
x(i,j) = (1 + (2*z(i)*w_wn(j))^2)^0.5./sqrt((1 - w_wn(j)^2)^2 + ...
(2*z(i)*w_wn(j))^2);
end
end
plot(w_wn,x)
title('Transmissibility','Fontsize',14)
xlabel(texlabel('omega/omega_n'),'Fontsize',14)
ylabel(texlabel(' |X(jw)|/A , F_tr/F_0'),'Fontsize',14)
125
