1 files changed, 23 insertions, 0 deletions
diff --git a/608/CH23/EX23.06/23_06.sce b/608/CH23/EX23.06/23_06.sce
new file mode 100755
index 000000000..5f5e3a34b
--- /dev/null
+++ b/608/CH23/EX23.06/23_06.sce
@@ -0,0 +1,23 @@
+//Problem 23.06: Two impedances in an electrical network are given by Z1 = (4.7,35°) and Z2 = (7.3, -48)°. Determine in polar form the total impedance ZT given that ZT = Z1*Z2/(Z1 + Z2)
+
+//initializing the variables:
+r1 = 4.7; // magnitude
+theta1 = 35; // in degree
+r2 = 7.3; // magnitude
+theta2 = -48; // in degree
+
+//calculation:
+x1 = r1*cos(theta1*%pi/180)
+y1 = r1*sin(theta1*%pi/180)
+z1 = x1+%i*y1
+x2 = r2*cos(theta2*%pi/180)
+y2 = r2*sin(theta2*%pi/180)
+z2 = x2+%i*y2
+z3 = z1*z2/(z1 + z2)
+x3 = real(z3)
+y3 = imag(z3)
+r3 = (x3^2 + y3^2)^0.5
+theta3 = atan(y3/x3)*180/%pi
+
+printf("\n\n Result \n\n")
+printf("\n ZT is (%.2f/_%.2f°)", r3,theta3)
+\ No newline at end of file