1 files changed, 27 insertions, 0 deletions
diff --git a/3760/CH1/EX1.14/Ex1_14.sce b/3760/CH1/EX1.14/Ex1_14.sce
new file mode 100644
index 000000000..29d40e4b3
--- /dev/null
+++ b/3760/CH1/EX1.14/Ex1_14.sce
@@ -0,0 +1,27 @@
+clc;
+p=20000; // rated power of transformer
+vbh=2500; // base voltage in volts for h. v. side
+vbl=250; // base voltage in volts for l. v. side
+ibh=p/vbh; // base current in Ampere for h. v. side
+zbh=vbh/ibh; // base impedance in ohm
+ze=2.6+4.3*%i; // equivalent leakage impedance referred to h. v. side in ohm
+zepu=ze/zbh; // per unit value in ohm 
+disp('Per unit value of equivalent leakage impedance referred to h. v. side is');
+disp(zepu);
+k=vbl/vbh; // turn's ratio
+zel=ze*k^2; //  equivalent leakage impedance referred to l. v. side in ohm
+ibl=p/vbl; //  base current in Ampere for l. v. side
+zbl=vbl/ibl; // base impedance for l. v. side
+zelpu=zel/zbl; // per unit value in ohm
+disp('Per unit value of equivalent leakage impedance referred to l. v. side is');
+disp(zelpu);
+zepum=abs(zepu); // magnitude of per unit impedance
+vhl=zepum*vbh; // total leakage impedace drop on h. v. side
+vbl=zepum*vbl; // total leakage impedace drop on l. v. side
+printf('Total leakage impedance drop on h. v. side and l. v. side are %f V and %f V respectively\n',vhl,vbl);
+Ieh=4.8; // exciting current in Ampere
+Iepu=Ieh/ibh; // p u value of exciting current referred to h. v. side
+printf('Per unit value of exciting current referred to h. v. side is %f p.u. \n',Iepu);
+Iel=Ieh/k;  // exciting current referred to l. v. side 
+Ielpu=Iel/ibl; // p u value of exciting current referred to l. v. side
+printf('Per unit value of exciting current referred to l. v. side is %f p.u. \n',Ielpu);