1 files changed, 31 insertions, 0 deletions
diff --git a/1076/CH16/EX16.6/16_6.sce b/1076/CH16/EX16.6/16_6.sce
new file mode 100755
index 000000000..243119169
--- /dev/null
+++ b/1076/CH16/EX16.6/16_6.sce
@@ -0,0 +1,31 @@
+clear
+clc
+
+l1=100
+l2=250
+l3=400
+r=.25/1000
+l=.125/1000
+
+I1=100
+I2=120
+I3=80
+
+pf1=.7
+pf2=1
+pf3=.8
+
+phi1=acos(pf1)
+phi2=acos(pf2)
+phi3=acos(pf3)
+
+Z1=l1 * ((r*cos(phi1))+(l*sin(phi1)))
+Z2=l2 * ((r*cos(phi2))+(l*sin(phi2)))
+Z3=l3 * ((r*cos(phi3))+(l*sin(phi3)))
+
+V=240
+
+dv=(Z1*I1)+(Z2*I2)+(Z3*I3)
+Ve=V-dv
+
+mprintf("\nVoltage at end is %.2f V, drop = %.2f V", Ve, dv)