1 files changed, 20 insertions, 0 deletions
diff --git a/620/CH25/EX25.14/example25_14.sce b/620/CH25/EX25.14/example25_14.sce
new file mode 100644
index 000000000..1508bef28
--- /dev/null
+++ b/620/CH25/EX25.14/example25_14.sce
@@ -0,0 +1,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);
+\ No newline at end of file