%% 2007-2008
%% TP INSTRUMENTATION 3
%% Question préliminaire
%% http://jonaphy.free.fr/TP_INSTRUMENTATION

clear all
close all

%% Déclaration des variables%%
r=10;
R=100;
alpha= r/R;
Q=32;
x=0.1:0.1:10;
logx=log10(x);
%%

%% Calculs %%
H=(i*alpha*Q*x)./(1-x.^2+i*(alpha*Q+1/Q)*x);
MH=abs(H);
logMH=20*log10(MH);
%%

%% Affichage %%
plot(logx,logMH);
axis([-(max(logx)+0.2*max(logx)) (max(logx)+0.2*max(logx)) min(logMH)+0.2*min(logMH) 0.5]);
xlabel('log x');
ylabel('log |H(jw)|')
%%