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')
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