summaryrefslogtreecommitdiff
path: root/22/CH5/EX5.10/ch5ex10.sce
blob: 64826371422579c534e1b7b9f83c636a6985ad04 (plain)
1
2
3
4
5
6
7
8
9
10
omega= linspace(-%pi,%pi,106);
H= syslin('c',(s/(s-0.8)));
H_omega= squeeze(calfrq(H,0.01,10));
size(H_omega)
subplot(2,1,1); plot2d(omega, abs(H_omega));
//xlabel('\omega');
//ylabel('|H[e^{j\omega}]|');
subplot(2,1,2); plot2d(omega,atan(imag(H_omega),real(H_omega))*180/%pi);
//xlabel('\omega');
//ylabel('\angle H[e^{j \omega}] [deg]');