clc
clear all
%Llr=L'lr
%r'r=rr
%X'rr=Xrr;
P=4;rs=0.087;Xls=0.302;XM=13.08;Xlr=0.302;rr=0.228;wr=1705;
f=60;
v_as=460;
we1=120*f/P;
we=2*pi*60;
s=(we1-wr)/we1;
wb=we;
Xss=Xls+XM;
Xrr=Xlr+XM;
G=(((we/wb)^-2*rs^2+Xss^2)/((XM^2-Xss*Xrr)^2*(we/wb)^2+rs^2*Xrr^2))^0.5;
%G=-1*G; % Pour fonctionement generatrice
stmax=rr*G;
A=3*(P/2)*(we/wb)*(XM^2/wb)*G*(v_as^2);
B=(rs+G*(we/wb)^2*(XM^2-Xss*Xrr))^2+(we/wb)^2*(Xss+G*rs*Xrr)^2;
Temax=A/B;