% Diagrame de Bode d'un réseau RLC série, fonction de tranfert tension de
% la source de tension --> courant dans le circuit

% Trois diagrames de bode sont tracés pour 3 valeurs du factuer de qualité
% l'execution de ce script nécessite le toolbox "Control Systems"

% paramètres 1 
C=1e-6; L=1e-6; Q=100; R=sqrt(1/L/C)*L/Q;
sys=tf([1 0],[L R 1/C]);
figure(1)
grid on
hold on
bode(sys)

%paramètres 2
Q=5; R=sqrt(1/L/C)*L/Q;
sys=tf([1 0],[C R 1/L]);
bode(sys)
%paramètres 3

Q=1; R=sqrt(1/L/C)*L/Q;
sys=tf([1 0],[C R 1/L]);
bode(sys)
%ajuster l'épaisseur des lignes
h = findobj(gcf,'type','line');
set(h,'linewidth',3);

% Tracé de la tension sur l'inductance
figure(2)
Q=5; R=sqrt(1/L/C)*L/Q;
sys1=tf([L 0 0],[C R 1/L]);
bode(sys1)
grid on

% Tracé de la tension sur la capacité
figure(3)
Q=5; R=sqrt(1/L/C)*L/Q;
sys2=tf([ 1/C],[C R 1/L]);
bode(sys2)
grid on

% Les 3 diagrames sur la même source 

figure(4)
hold on
bode(sys)
bode(sys1)
bode(sys2)

