From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001
From: priyanka
Date: Wed, 24 Jun 2015 15:03:17 +0530
Subject: initial commit / add all books

---
 1055/CH13/EX13.5/ch13_5.sce | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)
 create mode 100755 1055/CH13/EX13.5/ch13_5.sce

(limited to '1055/CH13/EX13.5')

diff --git a/1055/CH13/EX13.5/ch13_5.sce b/1055/CH13/EX13.5/ch13_5.sce
new file mode 100755
index 000000000..fa47cb0ca
--- /dev/null
+++ b/1055/CH13/EX13.5/ch13_5.sce
@@ -0,0 +1,28 @@
+// determine the fault current and line to line voltages at the fault 
+clear
+clc;
+Ea=1+ 0*%i;
+Zo=%i*.1;
+Z1=%i*.25;
+Z2=%i*.35;
+Ia1=Ea/(Z1+(Zo*Z2/(Zo+Z2)));
+Va1=Ea-Ia1*Z1;
+Va2=Va1;
+Vao=Va2;
+Ia2=-Va2/Z2;
+Iao=-Vao/Zo;
+I=Ia2+Iao;
+If=3*Iao;// fault current
+Ib=1093;// base current
+Ifl=abs(If*Ib);
+disp(Ifl,"Fault current(amps) =");//Answer don't match due to difference in rounding off of digits
+Va=3*Va1
+Vb=0;
+Vc=0;
+Vab=abs(Va)*13.2/sqrt(3);
+Vac=abs(Va)*13.2/sqrt(3);
+Vbc=abs(Vb)*13.2/sqrt(3);
+mprintf("Vab=%.3f kV\n",Vab);
+mprintf("Vac=%.3f kV\n",Vac);
+mprintf("Vbc=%.3f kV\n",Vbc);
+
-- 
cgit