3 files changed, 112 insertions, 0 deletions
diff --git a/Working_Examples/293/CH16/EX16.1/eg16_1.sce b/Working_Examples/293/CH16/EX16.1/eg16_1.sce
new file mode 100755
index 0000000..dde1653
--- /dev/null
+++ b/Working_Examples/293/CH16/EX16.1/eg16_1.sce
@@ -0,0 +1,56 @@
+//a
+V1 = 1100; //higher voltage
+V2 = 220; //lower voltage 
+a = V1/V2; //turns ratio 
+r1 = 0.1; //high voltage winding resistance(in ohms)
+x1 = 0.3; //high voltage leakage reactance(in ohms)
+r2 = 0.004; //low voltage winding resistance(in ohms)
+x2 = 0.012; //low voltage leakage reactance(in ohms)
+
+Re1 = r1 + (a^2)*r2 ; //equivalent winding resistance referred to the     primary side 
+Xe1 = x1 + (a^2)*x2 ; //equivalent leakage reactance referred to the      primary side 
+Re2 = (r1/a^2) + r2 ; //equivalent winding resistance referred to the     secondary side 
+Xe2 = (x1/a^2) + x2 ; //equivalent leakage reactance referred to the     secondary side 
+
+disp("a")
+disp(Re1,"equivalent winding resistance referred to the primary side")
+disp(Xe1,"equivalent leakage reactance referred to the primary side")
+disp(Re2,"equivalent winding resistance referred to the secondary side")
+disp(Xe2,"equivalent leakage reactance referred to the secondary side")
+
+//b
+P = 100; //power (in kVA)
+I21 = P*1000/V1; //primary winding current rating 
+Vre1 = I21*Re1; //equivalent resistance drop (in volts)
+VperR1 = Vre1*100/V1 ; // % equivalent resistance drop 
+
+Vxe1 = I21*Xe1; //equivalent reactance drop (in volts)
+VperX1 = Vxe1*100/V1; // % equivalent reactance drop 
+
+disp("b")
+disp(Vre1,"equivalent resistance drop expressed in terms of primary quantities(in volts) = ")
+disp(VperR1,"% equivalent resistance drop expressed in terms of primary  quantities = ")
+disp(Vxe1,"equivalent reactance drop expressed in terms of primary quantities(in volts) =")
+disp(VperX1,"% equivalent reactance drop expressed in terms of primary  quantities = ")
+ 
+//c
+I2 = a*I21; // secondary winding current rating 
+Vre2 = I2*Re2; //equivalent resistance drop (in volts)
+VperR2 = Vre2*100/V2 ; // % equivalent resistance drop 
+
+Vxe2 = I2*Xe2; //equivalent reactance drop (in volts)
+VperX2 = Vxe2*100/V2; // % equivalent reactance drop 
+
+disp("c")
+disp(Vre2,"equivalent resistance drop expressed in terms of secondary quantities(in volts) = ")
+disp(VperR2,"% equivalent resistance drop expressed in terms of secondary  quantities = ")
+disp(Vxe2,"equivalent reactance drop expressed in terms of secondary quantities(in volts) =")
+disp(VperX2,"% equivalent reactance drop expressed in terms of secondary  quantities = ")
+
+//d
+Ze1 = complex(Re1,Xe1); //equivalent leakage impedance referred to the  primary
+Ze2 = Ze1/a ; //equivalent leakage impedance referred to the  secondary 
+
+disp("d")
+disp(Ze1,"equivalent leakage impedance referred to the  primary = ")
+disp(Ze2,"equivalent leakage impedance referred to the  secondary = ")
+\ No newline at end of file
diff --git a/Working_Examples/293/CH16/EX16.2/eg16_2.sce b/Working_Examples/293/CH16/EX16.2/eg16_2.sce
new file mode 100755
index 0000000..978e1e7
--- /dev/null
+++ b/Working_Examples/293/CH16/EX16.2/eg16_2.sce
@@ -0,0 +1,31 @@
+Pl = 396; //wattmeter reading on open circuit test 
+Vl = 120; //voltmeter reading on open circuit test 
+Il = 9.65; //ammeter reading o open circuit test 
+a = 2400/120; //turns ratio 
+
+theata = acos(Pl/(Vl*Il)); //phase difference between voltage and current 
+Irl = Il*cos(theata); //resistive part of Im 
+Ixl = Il*sin(theata); //reactive part of Im
+
+rl = Vl/Irl; //low voltage winding resistance 
+rh = (a^2)*rl; //rl on the high side 
+xl = Vl/Ixl; //magnetizing reactance referred to the lower side 
+xh = (a^2)*xl; //corresponding high side value 
+
+Ph = 810; //wattmeter reading on short circuit test 
+Vh = 92; //voltmeter reading on short circuit test 
+Ih = 20.8; //ammeter reading on short circuit test 
+
+Zeh = Vh/Ih; //equivalent impeadance referred to the higher side 
+Zel = Zeh/(a^2); //equivalent impedance referred to the lower side
+Reh = Ph/(Ih^2); //equivalent resistance referred to the higher side
+Rel = Reh/(a^2); //equivalent resistance referred to the lower side
+Xeh = sqrt((Zeh^2) - (Reh^2)); //equivalent reactance referred to the   higher side
+Xel = Xeh/(a^2); //equivalent reactance referred to the lower side
+
+disp(Zeh,"equivalent impeadance referred to the higher side  = ")
+disp(Zel,"equivalent impedance referred to the lower side = ")
+disp(Reh,"equivalent resistance referred to the higher side = ")
+disp(Rel,"equivalent resistance referred to the lower side = ")
+disp(Xeh,"equivalent reactance referred to the   higher side = ")
+disp(Xel,"equivalent reactance referred to the lower side = ")
diff --git a/Working_Examples/293/CH16/EX16.3/eg16_3.sce b/Working_Examples/293/CH16/EX16.3/eg16_3.sce
new file mode 100755
index 0000000..fb5fa91
--- /dev/null
+++ b/Working_Examples/293/CH16/EX16.3/eg16_3.sce
@@ -0,0 +1,25 @@
+//a
+P = 50; //power rating (in kVA)
+Ph = 810; //wattmeter reading on short circuit test
+Pl = 396; //wattmeter reading on open circuit test 
+Ih = 20.8; //ammeter reading on short circuit test
+pf = 0.8; //power factor = 0.8 lagging
+
+losses = (Ph + Pl)/1000; //losses in kW
+outputP = P*pf; //output power
+inputP = outputP + losses ; //input power
+
+efficiency = outputP/inputP ; 
+disp("a")
+disp(efficiency,"efficiency = ")
+
+//b
+Xeh = 4; //equivalent reactance referred to the higher side
+Reh = 1.87; //equivalent resistance referred to the higher side
+Zeh = complex(Reh, Xeh); //equivalent impedance referred to the higher  side
+ih = complex(Ih*pf, -Ih*sqrt(1 - (pf^2))); 
+V1 = 2400 + Zeh*ih ; //primary voltage 
+
+voltageRegulation = (real(V1)-2400)*100/2400;//percent voltage regulation
+disp("b")
+disp(voltageRegulation,"percent voltage regulaton = ")  
+\ No newline at end of file