Добавил:
Nadya_Bobr
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:УТС для Давыдова / Резонанс / rez
.m for i = 1:2:5
M = 10;
Ks = 1e5;
Kr = 70*i;
A = [-Kr/M -Ks/M; 1 0];
B = [Ks/M; 0]; C = [0 1];
D = 0;
Wss = ss(A,B,C,D);
Wtf = tf(Wss)
%step(Wss,0:0.0001:1);
bodemag(Wss);
hold on
end
grid
%legend('Mx1','Mx3','Mx5')
%legend('Ksx1','Ksx3','Ksx5')
legend('Krx1','Krx3','Krx5')
M = 10;
Ks = 1e5;
Kr = 70*i;
A = [-Kr/M -Ks/M; 1 0];
B = [Ks/M; 0]; C = [0 1];
D = 0;
Wss = ss(A,B,C,D);
Wtf = tf(Wss)
%step(Wss,0:0.0001:1);
bodemag(Wss);
hold on
end
grid
%legend('Mx1','Mx3','Mx5')
%legend('Ksx1','Ksx3','Ksx5')
legend('Krx1','Krx3','Krx5')