%《MATLAB在电子信息课程中的应用》第五章例5.19程序q519
% 阻抗匹配网络的计算
% 电子工业出版社出版 陈怀琛 吴大正 高西全合著 2001年10月
clear,%fg552,
pause % 调用画线路图函数
Rs=12;RL=3;
Z1=-6j;Z2=-10j;Z3=6j;Us=24;
% 方法1 用Z方程求解
Z(1,1)=Z1+Z2;Z(1,2)=-10j; % 列出Z矩阵各分量
Z(2,1)=Z(1,2);Z(2,2)=Z2+Z3;
A=[1,0,-Z(1,1),-Z(1,2);0,1,-Z(2,1),-Z(2,2);1,0,Rs,0;0,1,0,RL]; % 系数矩阵A
B=[0;0;Us;0]; % 系数矩阵B
X=A\B
U1=X(1);U2=X(2);I1=X(3);I2=X(4); % 列出各未知数的解
P=abs(U2)^2/RL % 求负载功率
%方法2,用戴维南定理求解
Uoc=Us*Z2/(Z2+Rs+Z1) % 等效电压源开路电压
Zout=(det(Z)+Z(2,2)*Rs)/(Z(1,1)+Rs) % 等效电压源内阻
P1=abs(Uoc/(Zout+RL))^2*RL % 求负载功率