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.23/ch3_23.sci | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)
 create mode 100755 503/CH3/EX3.23/ch3_23.sci

(limited to '503/CH3/EX3.23/ch3_23.sci')

diff --git a/503/CH3/EX3.23/ch3_23.sci b/503/CH3/EX3.23/ch3_23.sci
new file mode 100755
index 000000000..8994386dc
--- /dev/null
+++ b/503/CH3/EX3.23/ch3_23.sci
@@ -0,0 +1,30 @@
+// to calculate (a)reactance in ohms(b)line voltage,kva rating,series reactance for Y/Y   and Y/D conn
+
+clc;
+Xpu=0.12;    // of 1-ph transformer
+
+function [X]=Xohm(kv,MVA)
+    X=(Xpu*kv^2)/MVA;
+endfunction
+
+disp('(a)');
+MVAa=75*10^-3;
+Vhv=6.6;    
+Vlv=.4;
+Xhv=Xohm(Vhv,MVAa);     disp(Xhv,'X(ohm)of hv side');
+Xlv=Xohm(Vlv,MVAa);     disp(Xlv,'X(ohm)of lv side');
+
+disp('(b)');
+disp('Y/Y');
+MVAb=MVAa*3;
+Vhv=6.6*sqrt(3);    disp(Vhv,'V_hv(kV)');
+Vlv=.4*sqrt(3);     disp(Vlv,'V_lv(kV)');
+Xhv=Xohm(Vhv,MVAb);     disp(Xhv,'X(ohm)of hv side');
+Xlv=Xohm(Vlv,MVAb);     disp(Xlv,'X(ohm)of lv side');
+
+disp('Y/D');
+MVAb=MVAa*3;
+Vhv=6.6*sqrt(3);    disp(Vhv,'V_hv(kV)');
+Vlv=.4;             disp(Vlv,'V_lv(kV)');
+Xhv=Xohm(Vhv,MVAb);     disp(Xhv,'X(ohm)of hv side');
+Xlv=Xohm(Vlv,MVAb);     disp(Xlv,'X(ohm)of lv side');
-- 
cgit