summaryrefslogtreecommitdiff
path: root/3888/CH3/EX3.5/Ex3_5.sce
diff options
context:
space:
mode:
Diffstat (limited to '3888/CH3/EX3.5/Ex3_5.sce')
-rw-r--r--3888/CH3/EX3.5/Ex3_5.sce22
1 files changed, 22 insertions, 0 deletions
diff --git a/3888/CH3/EX3.5/Ex3_5.sce b/3888/CH3/EX3.5/Ex3_5.sce
new file mode 100644
index 000000000..26acc005b
--- /dev/null
+++ b/3888/CH3/EX3.5/Ex3_5.sce
@@ -0,0 +1,22 @@
+//Electric Power Generation, Transmission and Distribution by S.N.Singh
+//Publisher:PHI Learning Private Limited
+//Year: 2012 ; Edition - 2
+//Example 3.5
+//Scilab Version : 6.0.0 ; OS : Windows
+
+clc;
+clear;
+
+kVpry=220; //Primary voltage of Transformer in kV
+kVsec=400; //Secondary voltage of Transformer in kV
+MVAb=240; //Apparent Base power in Transformer in MVA
+Zpry=3+%i*8; //Primary Impedance of Transformer in Ohm
+Zsec=5+%i*10; //Secondary Impedance of Transformer in Ohm
+Zlv=(Zpry)+(Zsec)*(kVpry/kVsec)^2; //Impedance referred to LV side in Ohm
+Zlvpu=(Zlv)*(MVAb/(kVpry)^2); //Per unit impedance referred to LV side in p.u. Ohm
+Zhv=(Zsec)+(Zpry)*(kVsec/kVpry)^2; //Impedance referred to HV side in Ohm
+Zhvpu=(Zhv)*(MVAb/(kVsec)^2); //Per unit impedance referred to HV side in p.u. Ohm
+
+
+printf("\nPer unit impedance referred to the L.V side is %.6f + j%.6f",real (Zlvpu),imag (Zlvpu));
+printf("\nPer unit impedance referred to the H.V side is %.6f + j%.6f",real (Zhvpu),imag (Zhvpu));