%《MATLAB及在電子信息課程中的應(yīng)用》第五章例5.19程序q519
% 阻抗匹配網(wǎng)絡(luò)的計算
% 電子工業(yè)出版社出版  陳懷琛 吳大正 高西全合著 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];	% 系數(shù)矩陣A
B=[0;0;Us;0];						% 系數(shù)矩陣B
X=A\B
U1=X(1);U2=X(2);I1=X(3);I2=X(4);	% 列出各未知數(shù)的解
P=abs(U2)^2/RL						% 求負(fù)載功率
%方法2，用戴維南定理求解
Uoc=Us*Z2/(Z2+Rs+Z1)				% 等效電壓源開路電壓
Zout=(det(Z)+Z(2,2)*Rs)/(Z(1,1)+Rs)	% 等效電壓源內(nèi)阻
P1=abs(Uoc/(Zout+RL))^2*RL			% 求負(fù)載功率