summaryrefslogtreecommitdiff
path: root/620/CH25/EX25.4/example25_4.sce
blob: c6704dbb619b4fbb0e91251e57158de7f4266c41 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
z1=4+%i*2;
z2=6-%i*4;
zl=3.2+%i*0.2;
v1=24;
v2=36*(cos(40*%pi/180)+%i*sin(40*%pi/180));
in=v1/z1+v2/z2;
zn=z1*z2/(z1+z2);
il=in*zn/(zn+zl);
disp("the load current (in A) has a magnitude of"); disp(sqrt(real(il)^2)+imag(il)^2);
disp("with a phase angle (in deg) of"); disp((atan(imag(il)/real(il)))*180/%pi);
p=(real(il)^2+imag(il)^2)*real(zl);
disp("the load power (in W) is"); disp(p);