1 files changed, 29 insertions, 0 deletions
diff --git a/3556/CH9/EX9.13/Ex9_13.sce b/3556/CH9/EX9.13/Ex9_13.sce
new file mode 100644
index 000000000..c680b52d0
--- /dev/null
+++ b/3556/CH9/EX9.13/Ex9_13.sce
@@ -0,0 +1,29 @@
+clc
+// Fundamental of Electric Circuit 
+// Charles K. Alexander and  Matthew N.O Sadiku  
+// Mc Graw Hill of New York 
+// 5th Edition 
+
+// Part 2     :  AC Circuits 
+// Chapter 9  :  Sinusoids and Phasors
+// Example 9 - 12
+
+clear; clc; close; 
+//
+// Given data
+Z1  = complex(20.0000,-20.0000);
+Z2  = complex(20.0000,0.0000);
+Z3  = complex(0.0000,-20.0000);
+// Calculations Zp
+Zp = (Z1*Z2)/(Z1+Z2);
+// Calculations V1
+Ztot = Zp + Z3;
+V1   = (Zp/(Zp+Z3))
+// Calculations Vo 
+Vo = (complex(20.0000,0.0000)/Z1)*V1;
+Vo_mag = norm(Vo);
+Vo_angle = atand(imag(Vo),real(Vo));
+//
+disp("Example 9-13 Solution : ");
+printf(" \n Vo_mag   = Magnitude of Vo       = %.3f Volt",Vo_mag)
+printf(" \n Vo_angle = Angle of Vo          = %.3f degree",Vo_angle)