summaryrefslogtreecommitdiff
path: root/620/CH25/EX25.14/example25_14.sce
blob: 1508bef280a28424ef6c2d52c90da4f71a23404d (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
z1=20+%i*50;
z2=10+%i*(-20);
a1=real(z1);
b1=imag(z1);
a2=real(z2);
b2=imag(z2);
c1=real(z1+z2);
c2=imag(z1+z2);
m1=sqrt(a1^2+b1^2);
m2=sqrt(a2^2+b2^2);
deg1=atan(b1/a1)*180/%pi;
deg2=atan(b2/a2)*180/%pi;
m_1=m1*m2;
deg_1=deg1+deg2;
m_2=sqrt(c1^2+c2^2);
deg_2=atan(c2/c1)*180/%pi;
m=m_1/m_2;
deg=deg_1-deg_2;
disp("the total impedance (in Ω) has a magnitude of"); disp(m);
disp("with a phase angle (in degrees) of"); disp(deg);