clear all
close all
m_real=10;
c_real=1;
k_real=1000;
Areal=[0 1;
-k_real/m_real -c_real/m_real];
Breal=[0;
1/m_real];
Creal=[1 0];
Dreal=[0];
Preal=ss(Areal,Breal,Creal,Dreal);
t=0:0.01:20;
h=impulse(Preal,t);
figure
plot(t,h)
N=length(h);
H_fft=fft(h,N);
f=(0:N-1)/20;
figure
plot(f,abs(H_fft))
w=(0:0.05:100)*2*pi;
H_w=freqresp(Preal,w);
for ii=1:length(w)
H_omega(ii)=H_w(:,:,ii);
end
H_omega=H_omega.';
figure
plot(w/(2*pi),abs(H_omega)) |