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

---
 503/CH3/EX3.25/ch3_25.sci | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)
 create mode 100755 503/CH3/EX3.25/ch3_25.sci

(limited to '503/CH3/EX3.25/ch3_25.sci')

diff --git a/503/CH3/EX3.25/ch3_25.sci b/503/CH3/EX3.25/ch3_25.sci
new file mode 100755
index 000000000..1531c53ed
--- /dev/null
+++ b/503/CH3/EX3.25/ch3_25.sci
@@ -0,0 +1,32 @@
+//find pu value of the equivalent ckt,steady state short ckt current and voltages
+
+clc;
+r=5;        //MVA rating
+V_Bp=6.35;    //for primary
+I_Bp=r*1000/V_Bp;
+V_Bs=1.91;    //for secondary
+I_Bs=r*1000/V_Bs;
+//from resp tests
+V1=.0787;
+I1=.5;
+V2=.1417;
+I2=.5;
+V3=.1212;
+I3=.5;
+X12=V1/I1;
+X13=V2/I2;
+X23=V3/I3;
+X1=I1*(X12+X13-X23);
+X2=I2*(X23+X12-X13);
+X3=I3*(X13+X23-X12);
+disp(X1,'X1(pu)');
+disp(X2,'X2(pu)');
+disp(X3,'X3(pu)');
+
+V1=1;
+I_sc=V1/X13;
+I_scp=I_sc*I_Bp;    disp(I_scp,'sc current primary side(A)');
+I_sct=I_sc*r*1000*1000/(400/sqrt(3));    disp(I_sct,'sc current tertiary side(A)');
+V_A=I_sc*X3;
+V_Aact=V_A*1.91*sqrt(3);
+disp(V_Aact,'V_A(actual) line to line(kV)');
\ No newline at end of file
-- 
cgit