From 7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 Mon Sep 17 00:00:00 2001 From: prashantsinalkar Date: Tue, 10 Oct 2017 12:27:19 +0530 Subject: initial commit / add all books --- 147/CH13/EX13.22/Example13_22.sce | 33 +++++++++++++++++++++++++++++++++ 1 file changed, 33 insertions(+) create mode 100644 147/CH13/EX13.22/Example13_22.sce (limited to '147/CH13/EX13.22/Example13_22.sce') diff --git a/147/CH13/EX13.22/Example13_22.sce b/147/CH13/EX13.22/Example13_22.sce new file mode 100644 index 000000000..d8009bf12 --- /dev/null +++ b/147/CH13/EX13.22/Example13_22.sce @@ -0,0 +1,33 @@ +//Rated Power Pr, Primary voltage V1, Secondary voltage V2 +//Resistance and reactance of primary winding R1 and X1 +//Resistance and reactance of secondary winding R12 and X2 +close(); +clear; +clc; +Pr = 5000;//VA +V1 = 440; +V2 = 220; +R1 = 0.25; +X1 = 0.75; +R2 = 0.06; +X2 = 0.25; +a = V1/V2; +//Resistance and reactance reffered to secondary winding 'Rs2' and 'Xs2' +Rs2 = R2 + R1/a^2; +Xs2 = X2 + X1/a^2; +//Full load current 'I' +I = Pr/V2; +//Part (i) +Pf = 0.8;//lagging +theta = acos(Pf); +V_reg1 = (I*Rs2*cos(theta)+I*Xs2*sin(theta))/V2*100; +//Part (ii): +Pf = 1; +theta = acos(Pf); +V_reg2 = (I*Rs2*cos(theta)+I*Xs2*sin(theta))/V2*100; +//Part (iii) +Pf = 0.8;//leading +theta = acos(Pf); +V_reg3 = (I*Rs2*cos(theta)-I*Xs2*sin(theta))/V2*100; +mprintf('Voltage regulation on full load at p.f of (i): 0.8 lagging = %0.3f %%\n(ii): unity = %0.4f %%\n(iii): 0.8 leading = %0.3f %%',V_reg1,V_reg2,V_reg3); + \ No newline at end of file -- cgit