q519.m

matlab在电子信息中的应用和实例中的源代码

%《MATLAB及在电子信息课程中的应用》第五章例5.19程序q519
% 阻抗匹配网络的计算
% 电子工业出版社出版  陈怀琛 吴大正 高西全合著 2001年10月初版，2003年7月第二版
%
clear,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			% 求负载功率