%《MATLAB及其在理工課程中的應用指南》(十一五規劃版)第八章例8－1－3程序
% 交流電路的穩態計算
% 西安電子科技大學出版社出版  陳懷琛編著 2007年7月
%
z1=3*j;z2=5;z3=5/j;uc=10;
z23=z2*z3/(z2+z3);z=z1+z23;
Ic=uc/z3,Ir=uc/z2,I=Ic+Ir,ul=I*z1,us=I*z
disp('  	  Ir        Ic         I         ul         us  ')
disp('幅值'),disp(abs([Ir,Ic,I,ul,us]))
disp('相角'),disp(angle([Ir,Ic,I,ul,us])*180/pi)
% compass是MATLAB中繪制復數相量圖的命令，用它畫相量圖特別方便。
ha=compass([Ir,Ic,I,ul,us]);
set(ha,'linewidth',3)
set(gcf,'color','w')