% Circuits couplés
% Théorie et Pratique des circuits de l'électronique et des amplificateurs
% J. Quinet - Tome 1 - 1959 - pages 190 
clear
clc
close all
L=500e-6;
R=20;
C=0.22e-9;
f=450000:10:500000;
figure(1)
hold on
for m=0.5e-5:0.5e-5:2e-5 
     k=1;
     for w=2*pi*f
          Z1=R+1i*L*w+1/(1i*C*w);
          Z2=Z1;
          A=[Z1     1i*w*m;
             1i*w*m Z2];
          B=[1;0];
          i=A\B;
          i2(k)=abs(i(2));
          k=k+1;
     end
     figure(1)
     plot(f,i2,strcat(";m=",num2str(m)," H;"));
end
legend("Location","northwest");
xlabel('Fréquence (Hz)')
ylabel('I_2 (A)')