clc
clear all
%Llr=L'lr
%r'r=rr;
P=4;rs=0.3;Lls=1e-3;LM=30e-3;Llr=1e-3;rr=0.2;wr=360;we=377;
f=60;
I_ar=100*cos(60*pi/180)+j*100*sin(60*pi/180);
we1=120*f/P;
we=2*pi*60;
s=(we-wr)/we;
wb=we;
Xls=we*Lls;
Xlr=we*Llr;
XM=we*LM;
Xss=Xls+XM;
Xrr=Xlr+XM;
I_as=-1*I_ar*((rr/s)+j*(we/wb)*Xrr)/(j*(we/wb)*XM);
A=3*(P/2)*(we/wb)*(XM^2/wb)*(rr/s)*(abs(I_as)^2);
B=(rr/s)^2+(we/wb)^2*Xrr^2; 
Temax=A/B;
% On sait que sqrt(Ias)
Iqs_e=sqrt(2)*real(I_as);