1 files changed, 20 insertions, 0 deletions
diff --git a/1076/CH16/EX16.9/16_9.sce b/1076/CH16/EX16.9/16_9.sce
new file mode 100755
index 000000000..a47357512
--- /dev/null
+++ b/1076/CH16/EX16.9/16_9.sce
@@ -0,0 +1,20 @@
+clear
+clc
+
+Vb=240
+
+Ib=100* exp(%i *-1* acos (.8))
+Ia=100* exp(%i *-1* acos (.6))
+
+z=complex(.2, .3)
+
+Va=round((Vb + (Ib * z/2)))
+Isa = (Ia * exp(%i * 1 * atan(imag(Va)/real(Va)))) + Ib
+//Isa=Isa*%i
+
+Vs=Va + (Isa * z/2)
+Vs=round(Vs*100)/100
+vs=abs(Vs)
+phi=atand(imag(Vs)/real(Vs))
+
+mprintf("|Vs| = %.2f A, phase angle between Vs & Vb = %.2f deg", fix(vs*100)/100, phi)