s10fig11.m

Industrial Mathematics

% exercise 10.29 Bode Plots
%
Q=4;
fmin = 5;           % min freq (in Hz) to view
fmax = 20;           % max freq (in Hz) to view
df=0.01;             % step size
f=fmin:df:fmax;     % frequency vector
w = 2*pi*f;         % radian freq vector
s = w*i;            %  
N= 20*pi*s/Q;           
D = s.*s  + 20*pi*s/Q + 400*pi*pi;
L = N./D ;       % left
N= 30*pi*s/Q;
D = s.*s  + 30*pi*s/Q + 900*pi*pi;  
R= N./D;            % right
H= 3.3*L.*R;
r = abs(H);         % gain at freq w
phi = angle(H);     % phase lead
 plot(f,r,'k-')    % gain vs freq in Hz
%plot(f,phi*180/pi,'k-')    %for phase plot in degrees
%plot(f,20*log10(r),'k-')     %  for decibels 
% replace with   plot(w,r) for       gain vs radian freq