2 net 1000 A 99 44 Solutionk 1000 m 10 wn sqrtkm w 1 3 5

Solution

k = 1000;
m = 10;
wn = sqrt(k/m);
w = [1 3 5 9 9.99 11];
fo = 1000 ;
xo = 0.1;
t = 0:0.01:10;
for i =1:length(w)
    for j=1:length(t)
        x(i,j) = (xo - fo/(wn^2-w(i)^2))*cos(wn*t(j))+fo/(wn^2-w(i)^2)*cos(w(i)*t(j));
    end
end
hold all
plot(t,x(1,:));
plot(t,x(2,:),\'r\');
plot(t,x(3,:),\'y\');
plot(t,x(4,:),\'c\');
plot(t,x(5,:),\'m\');
plot(t,x(6,:),\'g\');
legend(\'w = 1\',\'w = 3\',\'w = 5\',\'w = 9\',\'w = 9.99\',\'w = 11\');