%《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			% 求負載功率