q512.m

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

%《MATLAB及在电子信息课程中的应用》第五章例5.12程序q512
% 稳态交流电路：求未知参数
% 电子工业出版社出版  陈怀琛 吴大正 高西全合著 2001年10月初版，2003年7月第二版
%
clear,format compact
XL1=1250;Xc2=750;				% 设定元件参数
Us=100;I=.100;P=6;			% 设定信号源参数
Z1=j*XL1;Z2=-j*Xc2;			% 求两已知支路的阻抗
R=P/I^2;absZ=Us/I;			% 求电路的总阻抗的模
absX=sqrt(absZ^2-R^2);	% 求电路的总电抗
Z=R+j*absX;					% 求电路的总阻抗
Z23=Z-Z1;						% 求2，3支路并联的阻抗
Y3=1/Z23-1/Z2;Z3=1/Y3		% 求2支路的阻抗
R3=real(Z3), XL3=imag(Z3)	% 求2支路的电阻和电抗