%輸入基本數據(equ_jisuan)
SN=10e3;U1N=380;U2N=220;r1=0.14;r2=0.035;x1=0.22;x2=0.055;rm=30;xm=310;ZL=4+j*3;
%1 首先計算額定電流和變比
I1N=SN/U1N;
I2N=SN/U2N;
k=U1N/U2N;
% 計算T型等效電路中的未知參數
Z1=r1+j*x1;
rr2=k^2*r2;xx2=k^2*x2;
ZZ2=rr2+j*xx2;
ZZL=k^2*ZL;
Zm=rm+j*xm;
Zd=Z1+1/(1/Zm+1/(ZZ2+ZZL));
%計算電流和電壓
U1I=U1N;
I1I=U1I/Zd;
E1I=-(U1I-I1I*Z1);
I22I=E1I/(ZZ2+ZZL);
I2I=k*I22I;
U22I=I22I*ZZL;
U2I=U22I/k;
%功率因數、功率和效率
cospsi1=cos(angle(Zd));
cospsi2=cos(angle(ZL));
P1=abs(U1I)*abs(I1I)*cospsi1;
P2=abs(U2I)*abs(I2I)*cospsi2;
eta=P2/P1;
%損耗
ImI=-E1I/Zm;
pFe=abs(ImI)^2*rm;
pcu1=abs(I1I)^2*r1;
pcu2=abs(I2I)^2*r2;
%數據輸出
disp('原邊電流＝'),disp(abs(I1I))
disp('副邊電流＝'),disp(abs(I2I))
disp('副邊電壓＝'),disp(abs(U2I))
disp('原邊功率因數＝'),disp(cospsi1)
disp('原邊功率＝'),disp(P1)
disp('副邊功率因數＝'),disp(cospsi2)
disp('副邊功率＝'),disp(P2)
disp('效率＝'),disp(eta)
disp('激磁電流＝'),disp(abs(ImI))
disp('鐵損耗＝'),disp(pFe)
disp('原邊銅損耗＝'),disp(pcu1)
disp('副邊銅損耗＝'),disp(pcu2)