diff options
Diffstat (limited to '1445')
233 files changed, 8244 insertions, 0 deletions
diff --git a/1445/CH1/EX1.1/ch1_ex_1.sce b/1445/CH1/EX1.1/ch1_ex_1.sce new file mode 100644 index 000000000..cd58dd7a7 --- /dev/null +++ b/1445/CH1/EX1.1/ch1_ex_1.sce @@ -0,0 +1,15 @@ +//CHAPTER 1- D.C. CIRCUIT ANALYSIS AND NETWORK THEOREMS +//Example 1 + +disp("CHAPTER 1"); +disp("EXAMPLE 1"); + +//VARIABLE INITIALIZATION +nob=14; //number of branches +non=8; //number of nodes + +//SOLUTION +nole=nob-non+1; //number of loop equations +disp(sprintf("The total number of independent loop equations are %d",nole)); + +//END diff --git a/1445/CH1/EX1.10/ch1_ex_10.sce b/1445/CH1/EX1.10/ch1_ex_10.sce new file mode 100644 index 000000000..4bd8f0826 --- /dev/null +++ b/1445/CH1/EX1.10/ch1_ex_10.sce @@ -0,0 +1,21 @@ +//CHAPTER 1- D.C. CIRCUIT ANALYSIS AND NETWORK THEOREMS +//Example 10 + +disp("CHAPTER 1"); +disp("EXAMPLE 10"); + +//VARIABLE INITIALIZATION +v=10; //voltage source in Volts +I=5; //current source in Amperes +r1=2; //in Ohms +r2=2; //in Ohms +r3=4; //in Ohms + +//SOLUTION +res=I+(v/r1); +v1=res/((1/r1)+(1/r2)+(1/r3)); +I1=v1/r3; +disp(sprintf("By Nodal analysis, the current through resistor R3 is %d A",I1)); + +//END + diff --git a/1445/CH1/EX1.11/ch1_ex_11.sce b/1445/CH1/EX1.11/ch1_ex_11.sce new file mode 100644 index 000000000..177535763 --- /dev/null +++ b/1445/CH1/EX1.11/ch1_ex_11.sce @@ -0,0 +1,25 @@ +//CHAPTER 1- D.C. CIRCUIT ANALYSIS AND NETWORK THEOREMS +//Example 11 + +disp("CHAPTER 1"); +disp("EXAMPLE 11"); + +//VARIABLE INITIALIZATION +I3=-5; //in Amperes + +//SOLUTION + +//(4)I1+(-2)I2=10...........eq (1) +//(-2)I1+(6)I2=-20..........eq (2) +//solving the equations using matrix method + +A=[4 -2; -2 6]; +b=[10;-20]; +x=inv(A)*b; +I1=x(1,:); //to access 1st element of 2X1 matrix +I2=x(2,:); //to access 2nd element of 2X1 matrix +I=I2-I3; +disp(sprintf("By Mesh analysis, the current through resistor R3 is %d A",I)); + +//END + diff --git a/1445/CH1/EX1.12/ch1_ex_12.sce b/1445/CH1/EX1.12/ch1_ex_12.sce new file mode 100644 index 000000000..9f1ee4388 --- /dev/null +++ b/1445/CH1/EX1.12/ch1_ex_12.sce @@ -0,0 +1,27 @@ +//CHAPTER 1- D.C. CIRCUIT ANALYSIS AND NETWORK THEOREMS +//Example 12 + +disp("CHAPTER 1"); +disp("EXAMPLE 12"); + +//VARIABLE INITIALIZATION +v=10; //voltage source in Volts +I=5; //current source in Amperes +r1=2; //in Ohms +r2=2; //in Ohms +r3=4; //in Ohms + +//SOLUTION + +//deactivating current source +v1=(v/r1)/((1/r1)+(1/r2)+(1/r3)); +I1=v1/r3; + +//deactivating voltage source +v2=I/((1/r1)+(1/r2)+(1/r3)); +I2=v2/r3; +I_tot=I1+I2; //since I1 and I2 are in same direction + +disp(sprintf("By Superposition Theorem, the current through resistor R3 is %d A",I_tot)); + +//END diff --git a/1445/CH1/EX1.13/ch1_ex_13.sce b/1445/CH1/EX1.13/ch1_ex_13.sce new file mode 100644 index 000000000..b0d4535b1 --- /dev/null +++ b/1445/CH1/EX1.13/ch1_ex_13.sce @@ -0,0 +1,25 @@ +//CHAPTER 1- D.C. CIRCUIT ANALYSIS AND NETWORK THEOREMS +//Example 13 + +disp("CHAPTER 1"); +disp("EXAMPLE 13"); + +//VARIABLE INITIALIZATION +v=10; //voltage source in Volts +I=5; //current source in Amperes +r1=2; //in Ohms +r2=2; //in Ohms +r3=4; //in Ohms + +//SOLUTION +res=I+(v/r1); +vth=res/((1/r1)+(1/r2)); //by nodal analysis +rth=(r1*r2)/(r1+r2); +Ith=vth/(rth+r3); +disp(sprintf("By Thevenin Theorem, the current through resistor R3 is %d A",Ith)); + +//END + + + + diff --git a/1445/CH1/EX1.14/ch1_ex_14.sce b/1445/CH1/EX1.14/ch1_ex_14.sce new file mode 100644 index 000000000..dc2c6f076 --- /dev/null +++ b/1445/CH1/EX1.14/ch1_ex_14.sce @@ -0,0 +1,30 @@ +//CHAPTER 1- D.C. CIRCUIT ANALYSIS AND NETWORK THEOREMS +//Example 14 + +disp("CHAPTER 1"); +disp("EXAMPLE 14"); + +//VARIABLE INITIALIZATION +v=10; //voltage source in Volts +I3=-5; //current source in Amperes +r1=2; //in Ohms +r2=2; //in Ohms +r3=4; //in Ohms + +//SOLUTION +//by loop analysis +//(1)I1+(-1)I2=0.........eq (1) +//(4)I1+(-2)I2=10........eq (2) +//solving the equations by matrix method +A=[1 -1;4 -2]; +b=[0;10]; +x=inv(A)*b; +I1=x(1,:); //to access 1st element of 2X1 matrix +I2=x(2,:); //to access 2nd element of 2X1 matrix +In=I2-I3; +rn=(r1*r2)/(r1+r2); +I=(rn*In)/(rn+r3); +disp(sprintf("By Norton Theorem, the current through resistor R3 is %d A",I)); + +//END + diff --git a/1445/CH1/EX1.15/ch1_ex_15.sce b/1445/CH1/EX1.15/ch1_ex_15.sce new file mode 100644 index 000000000..38a123382 --- /dev/null +++ b/1445/CH1/EX1.15/ch1_ex_15.sce @@ -0,0 +1,26 @@ +//CHAPTER 1- D.C. CIRCUIT ANALYSIS AND NETWORK THEOREMS +//Example 15 + +disp("CHAPTER 1"); +disp("EXAMPLE 15"); + +//VARIABLE INITIALIZATION +v=7; //voltage source in Volts +I=7; //current source in Amperes +r3=1; //in Ohms + +//SOLUTION +//(1)I1+(-4)I2+(4)I3=7............eq (1) +//(-1)I1+(6)I2+(-3)I3=0...........eq (2) +//(1)I1+(0)I2+(-1)I3=7............eq (3) +//solving the equations by matrix method +A=[1 -4 4;-1 6 -3;1 0 -1]; +b=[7;0;7]; +x=inv(A)*b; +I1=x(1,:); //to access the 1st element of 3X1 matrix +I2=x(2,:); //to access the 2nd element of 3X1 matrix +I3=x(3,:); //to access the 3rd element of 3X1 matrix +vx=-(I3*r3); +disp(sprintf("By Mesh analysis, the value of V_x is %d V",vx)); + +//END diff --git a/1445/CH1/EX1.16/ch1_ex_16.sce b/1445/CH1/EX1.16/ch1_ex_16.sce new file mode 100644 index 000000000..f56a73cc7 --- /dev/null +++ b/1445/CH1/EX1.16/ch1_ex_16.sce @@ -0,0 +1,28 @@ +//CHAPTER 1- D.C. CIRCUIT ANALYSIS AND NETWORK THEOREMS +//Example 16 + +disp("CHAPTER 1"); +disp("EXAMPLE 16"); + +//VARIABLE INITIALIZATION +v=7; //voltage source in Volts +I=7; //current source in Amperes +r1=1; //in Ohms +r2=2; //in Ohms +r3=1; //in Ohms +r4=2; //in Ohms +r5=3; //in Ohms + +//SOLUTION +//(4)vb+(-1)vc=0........eq (1) +//(-2)vb+(11)vc=21......eq (2) +//solving the equations by matrix method +A=[4 -1;-2 11]; +b=[0;21]; +x=inv(A)*b; +vb=x(1,:); //to access the 1st element of 2X1 matrix +vc=x(2,:); //to access the 2nd element of 2X1 matrix +vx=-vc; +disp(sprintf("By Nodal analysis, the value of V_x is %d V",vx)); + +//END diff --git a/1445/CH1/EX1.17/ch1_ex_17.sce b/1445/CH1/EX1.17/ch1_ex_17.sce new file mode 100644 index 000000000..aa103caef --- /dev/null +++ b/1445/CH1/EX1.17/ch1_ex_17.sce @@ -0,0 +1,36 @@ +//CHAPTER 1- D.C. CIRCUIT ANALYSIS AND NETWORK THEOREMS +//Example 17 + +disp("CHAPTER 1"); +disp("EXAMPLE 17"); + +//VARIABLE INITIALIZATION +v=7; //voltage source in Volts +I=7; //current source in Amperes +r1=1; //in Ohms +r2=2; //in Ohms +r3=1; //in Ohms +r4=2; //in Ohms +r5=3; //in Ohms + +//SOLUTION + +//deactivating the current source +res=(v/4)+(v/2); +vc=res/((1/4)+(1/r1)+(1/r2)); +vx1=-vc; + +//deactivating voltage source +//(4)va+(-1)vb=-21........eq (1) +//(2)va+(-11)vb=0.........eq (2) +//solving the equations by matrix method +A=[4 -1;2 -11]; +b=[-21;0]; +x=inv(A)*b; +va=x(1,:); //to access 1st element of 2X1 matrix +vb=x(2,:); //to access 2nd element of 2X1 matrix +vx2=-vb; +vx=vx1+vx2; +disp(sprintf("By Superposition Theorem, the value of V_x is %d V",vx)); + +//END diff --git a/1445/CH1/EX1.18/ch1_ex_18.sce b/1445/CH1/EX1.18/ch1_ex_18.sce new file mode 100644 index 000000000..54afee149 --- /dev/null +++ b/1445/CH1/EX1.18/ch1_ex_18.sce @@ -0,0 +1,27 @@ +//CHAPTER 1- D.C. CIRCUIT ANALYSIS AND NETWORK THEOREMS +//Example 18 + +disp("CHAPTER 1"); +disp("EXAMPLE 18"); + +//VARIABLE INITIALIZATION +v=7; //voltage source in Volts +I=7; //current source in Amperes +r1=1; //in Ohms +r2=2; //in Ohms +r3=1; //in Ohms +r4=2; //in Ohms +r5=3; //in Ohms + +//SOLUTION +I2=0; //since mesh 2 is open +I1=v-I2; +I3=I1/6; //from the equation +vth=-(r2*I3)+v; +r=r1+r5; +rth=(r*r4)/(r+r4); +I=vth/(rth+r3); +vx=-I*r3; +disp(sprintf("By Thevenin Theorem, the value of V_x is %d V",vx)); + +//END diff --git a/1445/CH1/EX1.19/ch1_ex_19.sce b/1445/CH1/EX1.19/ch1_ex_19.sce new file mode 100644 index 000000000..d4f3660e6 --- /dev/null +++ b/1445/CH1/EX1.19/ch1_ex_19.sce @@ -0,0 +1,33 @@ +//CHAPTER 1- D.C. CIRCUIT ANALYSIS AND NETWORK THEOREMS +//Example 19 + +disp("CHAPTER 1"); +disp("EXAMPLE 19"); + +//VARIABLE INITIALIZATION +v=7; //voltage source in Volts +I=7; //current source in Amperes +r1=1; //in Ohms +r2=2; //in Ohms +r3=1; //in Ohms +r4=2; //in Ohms +r5=3; //in Ohms + +//SOLUTION +//(1)I1+(-4)I2+(3)In=7.......eq (1) +//(-1)I1+(6)I1+(-3)In=0......eq (2) +//(0)I1+(1)I2+(-1)In=0.......eq (3) +//solving the equations by matrix method +A=[1 -4 3;-1 6 -3;0 1 -1]; +b=[7;0;0]; +x=inv(A)*b; +I1=x(1,:); //to access the 1st element of 3X1 matrix +I2=x(2,:); //to access the 2nd element of 3X1 matrix +In=x(3,:); //to access the 3rd element of 3X1 matrix +r=r1+r5; +rn=(r*r4)/(r+r4); +I=(rn*In)/(rn+r3); +vx=-I*r3; +disp(sprintf("By Norton Theorem, the value of V_x is %d V",vx)); + +//END diff --git a/1445/CH1/EX1.2/ch1_ex_2.sce b/1445/CH1/EX1.2/ch1_ex_2.sce new file mode 100644 index 000000000..28ef5e3aa --- /dev/null +++ b/1445/CH1/EX1.2/ch1_ex_2.sce @@ -0,0 +1,30 @@ +//CHAPTER 1- D.C. CIRCUIT ANALYSIS AND NETWORK THEOREMS +//Example 2 + +disp("CHAPTER 1"); +disp("EXAMPLE 2"); + +//VARIABLE INITIALIZATION +//converting star with points A, C and D into delta ACD +//star values +ra=2; +rc=4; +rd=3; + +//SOLUTION +//delta values +r=(ra*rc)+(rc*rd)+(rd*ra); +rac=r/rd; +rcd=r/ra; +rad=r/rc; +req1=(5*rad)/(5+rad); //equivalent resistance between A and D +req2=(4*rcd)/(4+rcd); //equivalent resistance between C and D +req3=req1+req2; //req1 and req2 are in series +req4=(req3*rac)/(req3+rac); //req3 and rac are in parallel +req5=req4+6; +req6=(req5*7)/(req5+7); +disp(sprintf("The eqivalent resistance between points A and B is %f Ω",req6)); + +//END + + diff --git a/1445/CH1/EX1.20/ch1_ex_20.sce b/1445/CH1/EX1.20/ch1_ex_20.sce new file mode 100644 index 000000000..8eb5d8390 --- /dev/null +++ b/1445/CH1/EX1.20/ch1_ex_20.sce @@ -0,0 +1,32 @@ +//CHAPTER 1- D.C. CIRCUIT ANALYSIS AND NETWORK THEOREMS +//Example 20 + +disp("CHAPTER 1"); +disp("EXAMPLE 20"); + +//VARIABLE INITIALIZATION +I=20; //current source in Amperes +v1=10; //voltage source in Volts +v2=40; //voltage source in Volts +r1=8; //in Ohms +r2=5; //in Ohms +r3=4; //in Ohms +r4=12; //in Ohms + +//SOLUTION +req=r1+r2; +rn=(req*r3)/(req+r3); +//finding In by mesh analysis +//(17)I2+(-4)I3=110.......eq (1) +//(1)I2+(-1)I3=-10........eq (2) +//solving the equations by matrix mehod +A=[17 -4;1 -1]; +b=[110;-10]; +x=inv(A)*b; +I2=x(1,:); //to access the 1st element of 2X1 matrix +I3=x(2,:); //to access the 2nd element of 2X1 matrix +In=I3; +I=(rn*In)/(rn+r4); +disp(sprintf("By Norton Theorem, the value of I is %f A",I)); + +//END diff --git a/1445/CH1/EX1.21/ch1_ex_21.sce b/1445/CH1/EX1.21/ch1_ex_21.sce new file mode 100644 index 000000000..cbdae252a --- /dev/null +++ b/1445/CH1/EX1.21/ch1_ex_21.sce @@ -0,0 +1,32 @@ +//CHAPTER 1- D.C. CIRCUIT ANALYSIS AND NETWORK THEOREMS +//Example 21 + +disp("CHAPTER 1"); +disp("EXAMPLE 21"); + +//VARIABLE INITIALIZATION +I=20; //current source in Amperes +v1=10; //voltage source in Volts +v2=40; //voltage source in Volts +r1=8; //in Ohms +r2=5; //in Ohms +r3=4; //in Ohms +r4=12; //in Ohms + +//SOLUTION +req=r1+r2; +rth=(req*r3)/(req+r3); +//finding vth by nodal analysis +//(13)v1+(-8)v2=750.......eq (1) +//(-4)v1+(9)v2=200........eq (2) +//solving the equations by matrix mehod +A=[13 -8;-4 9]; +b=[750;200]; +x=inv(A)*b; +v1=x(1,:); //to access the 1st element of 2X1 matrix +v2=x(2,:); //to access the 2nd element of 2X1 matrix +vth=v2; +I=vth/(rth+r4); +disp(sprintf("By Thevenin Theorem, the value of I is %f A",I)); + +//END diff --git a/1445/CH1/EX1.22/ch1_ex_22.sce b/1445/CH1/EX1.22/ch1_ex_22.sce new file mode 100644 index 000000000..1b11450df --- /dev/null +++ b/1445/CH1/EX1.22/ch1_ex_22.sce @@ -0,0 +1,28 @@ +//CHAPTER 1- D.C. CIRCUIT ANALYSIS AND NETWORK THEOREMS +//Example 22 + +disp("CHAPTER 1"); +disp("EXAMPLE 22"); + +//VARIABLE INITIALIZATION +I1=20; //current source in Amperes +v1=10; //voltage source in Volts +v2=40; //voltage source in Volts +r1=8; //in Ohms +r2=5; //in Ohms +r3=4; //in Ohms +r4=12; //in Ohms + +//SOLUTION +//(17)I2+(-4)I3=110.......eq (1) +//(-1)I2+(4)I3=10.........eq (2) +//solving the equations by matrix mehod +A=[17 -4;-1 4]; +b=[110;10]; +x=inv(A)*b; +I2=x(1,:); //to access the 1st element of 2X1 matrix +I3=x(2,:); //to access the 2nd element of 2X1 matrix +I=I3; +disp(sprintf("By Mesh analysis, the value of I is %f A",I)); + +//END diff --git a/1445/CH1/EX1.23/ch1_ex_23.sce b/1445/CH1/EX1.23/ch1_ex_23.sce new file mode 100644 index 000000000..6fc15f4c2 --- /dev/null +++ b/1445/CH1/EX1.23/ch1_ex_23.sce @@ -0,0 +1,27 @@ +//CHAPTER 1- D.C. CIRCUIT ANALYSIS AND NETWORK THEOREMS +//Example 23 + +disp("CHAPTER 1"); +disp("EXAMPLE 23"); + +//VARIABLE INITIALIZATION +I1=20; //current source in Amperes +v1=10; //voltage source in Volts +v2=40; //voltage source in Volts +r1=8; //in Ohms +r2=5; //in Ohms +r3=4; //in Ohms +r4=12; //in Ohms + +//SOLUTION +//(17)I2+(-4)I3=110.......eq (1) +//(-4)v1+(16)I3=40........eq (2) +//solving the equations by matrix mehod +A=[17 -4;-4 16]; +b=[110;40]; +x=inv(A)*b; +I2=x(1,:); //to access the 1st element of 2X1 matrix +I3=x(2,:); //to access the 2nd element of 2X1 matrix +disp(sprintf("By Nodal analysis, the value of I is %f A",I3)); + +//END diff --git a/1445/CH1/EX1.24/ch1_ex_24.sce b/1445/CH1/EX1.24/ch1_ex_24.sce new file mode 100644 index 000000000..903627e49 --- /dev/null +++ b/1445/CH1/EX1.24/ch1_ex_24.sce @@ -0,0 +1,34 @@ +//CHAPTER 1- D.C. CIRCUIT ANALYSIS AND NETWORK THEOREMS +//Example 24 + +disp("CHAPTER 1"); +disp("EXAMPLE 24"); + +//VARIABLE INITIALIZATION +I=20; //current source in Amperes +v1=10; //voltage source in Volt +v2=40; //voltage source in Volts +r1=8; //in Ohms +r2=5; //in Ohms +r3=4; //in Ohms +r4=12; //in Ohms + +//SOLUTION + +//activating 20A current source +r=r2+((r3*r4)/(r3+r4)); +I1=(r*I)/(r+r1); +I_20=(r3*I1)/(r3+r4); + +//activating 10V battery source +req=r1+r2; +v_10=(-v1/req)/((1/req)+(1/r3)+(1/r4)); +I_10=v_10/r4; + +//activating 40V battery source +v_40=(v2/r3)/((1/req)+(1/r3)+(1/r4)); +I_40=v_40/r4; +I_tot=I_20+I_10+I_40; +disp(sprintf("By Superposition Theorem, the value of I is %f A",I_tot)); + +//END diff --git a/1445/CH1/EX1.25/ch1_ex_25.sce b/1445/CH1/EX1.25/ch1_ex_25.sce new file mode 100644 index 000000000..e1c250c68 --- /dev/null +++ b/1445/CH1/EX1.25/ch1_ex_25.sce @@ -0,0 +1,22 @@ +//CHAPTER 1- D.C. CIRCUIT ANALYSIS AND NETWORK THEOREMS +//Example 25 + +disp("CHAPTER 1"); +disp("EXAMPLE 25"); + +//SOLUTION +//(1)I1+(0)I2+(0)I3=5.............eq (1) +//(-20)I1+(50)I2+(-20)I3=0........eq (2) +//(0)I1+(1)I2+(-1)I3=5............eq (3) +//solving the equations by matrix mehod +A=[1 0 0;-20 50 -20;0 1 -1]; +b=[5;0;5]; +x=inv(A)*b; +I1=x(1,:); //to access the 1st element of 3X1 matrix +I2=x(2,:); //to access the 2nd element of 3X1 matrix +I3=x(3,:); //to access the 3rd element of 3X1 matrix +I=I2; +disp(sprintf("By Mesh analysis, the value of I is %d A",I)); + +//END + diff --git a/1445/CH1/EX1.26/ch1_ex_26.sce b/1445/CH1/EX1.26/ch1_ex_26.sce new file mode 100644 index 000000000..18b2768c4 --- /dev/null +++ b/1445/CH1/EX1.26/ch1_ex_26.sce @@ -0,0 +1,19 @@ +//CHAPTER 1- D.C. CIRCUIT ANALYSIS AND NETWORK THEOREMS +//Example 26 + +disp("CHAPTER 1"); +disp("EXAMPLE 26"); + +//VARIABLE INITIALIZATION +I1=5; //current source in Amperes +v2=100; //voltage source in Volts +r1=20; //in Ohms +r2=10; //in Ohms +r3=20; //in Ohms + +//SOLUTION +v1=(I1+(v2/r2))/((1/r1)+(1/r2)); +I=(v1-v2)/r2; +disp(sprintf("By Nodal analysis, the value of I is %d A",I)); + +//END diff --git a/1445/CH1/EX1.27/ch1_ex_27.sce b/1445/CH1/EX1.27/ch1_ex_27.sce new file mode 100644 index 000000000..910767262 --- /dev/null +++ b/1445/CH1/EX1.27/ch1_ex_27.sce @@ -0,0 +1,21 @@ +//CHAPTER 1- D.C. CIRCUIT ANALYSIS AND NETWORK THEOREMS +//Example 27 + +disp("CHAPTER 1"); +disp("EXAMPLE 27"); + +//VARIABLE INITIALIZATION +I1=5; //current source in Amperes +vb=100; //voltage source in Volts +r1=20; //in Ohms +r2=10; //in Ohms +r3=20; //in Ohms + +//SOLUTION +va=I1*r1; +vth=va-vb; //vth=vab +rth=r1+((r3*0)/(r3+0)); +I=vth/(rth+r2); +disp(sprintf("By Thevenin Theorem, the value of I is %d A",I)); + +//END diff --git a/1445/CH1/EX1.28/ch1_ex_28.sce b/1445/CH1/EX1.28/ch1_ex_28.sce new file mode 100644 index 000000000..326f81976 --- /dev/null +++ b/1445/CH1/EX1.28/ch1_ex_28.sce @@ -0,0 +1,20 @@ +//CHAPTER 1- D.C. CIRCUIT ANALYSIS AND NETWORK THEOREMS +//Example 28 + +disp("CHAPTER 1"); +disp("EXAMPLE 28"); + +//VARIABLE INITIALIZATION +I1=5; //current source in Amperes +va=100; //voltage source in Volts +r1=20; //in Ohms +r2=10; //in Ohms +r3=20; //in Ohms + +//SOLUTION +In=I1-(va/r1); //since a and b are shorted hence va=vb +rn=r1+((r3*0)/(r3+0)); +I=(rn*In)/(rn+r2); +disp(sprintf("By Norton Theorem, the value of I is %d A",I)); + +//END diff --git a/1445/CH1/EX1.29/ch1_ex_29.sce b/1445/CH1/EX1.29/ch1_ex_29.sce new file mode 100644 index 000000000..319e202f9 --- /dev/null +++ b/1445/CH1/EX1.29/ch1_ex_29.sce @@ -0,0 +1,25 @@ +//CHAPTER 1- D.C. CIRCUIT ANALYSIS AND NETWORK THEOREMS +//Example 29 + +disp("CHAPTER 1"); +disp("EXAMPLE 29"); + +//VARIABLE INITIALIZATION +I=5; //current source in Amperes +v=100; //voltage source in Volts +r1=20; //in Ohms +r2=10; //in Ohms +r3=20; //in Ohms + +//SOLUTION + +//activating current source +I1=(I*r1)/(r1+r2); //by current divider law + +//activating voltage source +I2=-(v/(r1+r2)); + +I_tot=I1+I2; +disp(sprintf("By Superposition Theorem, the value of I is %d A",I_tot)); + +//END diff --git a/1445/CH1/EX1.3/ch1_ex_3.sce b/1445/CH1/EX1.3/ch1_ex_3.sce new file mode 100644 index 000000000..ac66b8b3f --- /dev/null +++ b/1445/CH1/EX1.3/ch1_ex_3.sce @@ -0,0 +1,33 @@ +//CHAPTER 1- D.C. CIRCUIT ANALYSIS AND NETWORK THEOREMS +//Example 3 + +disp("CHAPTER 1"); +disp("EXAMPLE 3"); + +//VARIABLE INITIALIZATION +//converting star with points C, D and E into delta CDE +//star values +rc=3; +rd=7; +re=5; + +//SOLUTION +//delta values +r=(rc*rd)+(rd*re)+(re*rc); +rcd=r/re; +rde=r/rc; +rec=r/rd; +req1=(8*rec)/(8+rec); //equivalent resistance between C and E +req2=(6*rde)/(6+rde); //equivalent resistance between D and E +req3=(4*rcd)/(4+rcd); //equivalent resistance between C and D +req4=req2+req3; +req5=(req1*req4)/(req1+req4); +req6=req5+4.6; +req7=(req6*7.6)/(req6+7.6); +disp(sprintf("The equivalent resistance between points A and B is %f Ω",req7)); + +//END + + + + diff --git a/1445/CH1/EX1.30/ch1_ex_30.sce b/1445/CH1/EX1.30/ch1_ex_30.sce new file mode 100644 index 000000000..54c39d141 --- /dev/null +++ b/1445/CH1/EX1.30/ch1_ex_30.sce @@ -0,0 +1,42 @@ +//CHAPTER 1- D.C. CIRCUIT ANALYSIS AND NETWORK THEOREMS +//Example 30 + +disp("CHAPTER 1"); +disp("EXAMPLE 30"); + +//VARIABLE INITIALIZATION +I1=25; //current source in Amperes +I2=20; //current source in Amperes +v=20; //voltage source in Volts +r1=4; //LHS resistance in Ohms +r2=10; //in Ohms +r3=2; //in Ohms +r4=1; //in Ohms +r5=10; //RHS resistance in Ohms + +//SOLUTION + +//source transformation +v1=I1*r1; //current source I1 is converted to voltage source v1 +v2=I2*r3; //current source I2 is converted to voltage source v2 + +//using mesh analysis +//(8)IA+(-1)IB=30........eq (1) +//(-2)IA+(3)IB=20........eq (2) +//solving the equations by matrix method +A=[8 -1;-2 3]; +b=[30;20]; +x=inv(A)*b; +IA=x(1,:); //to access the 1st element of 2X1 matrix +IB=x(2,:); //to access the 2nd element of 2X1 matrix +disp(sprintf("By Mesh analysis I_A= %d A and I_B= %d A",IA,IB)); + +//using nodal analysis +req=r1+r2; +res=(v1/req)+(v2/r3)+(v/r4); +v3=res/((1/req)+(1/r3)+(1/r4)); +I3=(v1-v3)/req; +I4=(v2-v)/r3; //since here ((v2-v)/r3)=((v3-v)/r4) (this is only done for convinient calculation) +disp(sprintf("By Nodal analysis I_1= %d A and I_2= %d A",I3,I4)); + +//END diff --git a/1445/CH1/EX1.31/ch1_ex_31.sce b/1445/CH1/EX1.31/ch1_ex_31.sce new file mode 100644 index 000000000..f25c2ed94 --- /dev/null +++ b/1445/CH1/EX1.31/ch1_ex_31.sce @@ -0,0 +1,38 @@ +//CHAPTER 1- D.C. CIRCUIT ANALYSIS AND NETWORK THEOREMS +//Example 31 + +disp("CHAPTER 1"); +disp("EXAMPLE 31"); + +//VARIABLE INITIALIZATION +r1=6; //in Ohms +r2=4; //in Ohms +r3=4; //in Ohms +r4=4; //in Ohms +r5=6; //in Ohms +r6=6; //in Ohms +r7=6; //in Ohms +r8=8; //in Ohms +r9=4; //in Ohms +r10=10; //in Ohms +r11=10; //middle resistance in Ohms + +//SOLUTION +//converting delta cde in a star +req1=r5+r6+r7; +req2=(r6*r7)/req1; +req3=(r5*r6)/req1; +req4=(r5*r7)/req1; + +req5=r1+r2+r3; //on LHS of middle resistance +req6=r4+req2; //top LHS +req7=req4+r11; //equivalent middle resistance +req8=req3+r8+r9+r10; //top RHS + +req9=(req7*req8)/(req7+req8); //(12 || 24) +req10=req9+req6; //(12 || 24)+6 +req11=(req5*req10)/(req5+req10);//(14 || 14) + +disp(sprintf("The equivalent resistance between A and B is %d Ω",req11)); + +//END diff --git a/1445/CH1/EX1.32/ch1_ex_32.sce b/1445/CH1/EX1.32/ch1_ex_32.sce new file mode 100644 index 000000000..643552858 --- /dev/null +++ b/1445/CH1/EX1.32/ch1_ex_32.sce @@ -0,0 +1,30 @@ +//CHAPTER 1- D.C. CIRCUIT ANALYSIS AND NETWORK THEOREMS +//Example 32 + +disp("CHAPTER 1"); +disp("EXAMPLE 32"); + +//VARIABLE INITIALIZATION +I=10; //current source in Amperes +v=10; //voltage source in Volts +r1=4; //top resistance in Ohms +r1=4; //right resistance in Ohms +r3=4; //bottom resistance in Ohms +r4=6; //left resistance in Ohms +r5=1; //in Ohms + +//SOLUTION +//without converting the current source into voltage source +//(10)I1+(-4)I2+(0)I3=50........eq (1) +//(-4)I1+(9)I2+(-4)I3=0.........eq (2) +//(0)I1+(-4)I2+(8)I3=10.........eq (3) +//solving the equations by matrix method +A=[10 -4 0;-4 9 -4;0 -4 8]; +b=[50;0;10]; +x=inv(A)*b; +I2=x(2,:); //to access the 2nd element of 3X1 matrix +disp(sprintf("By Mesh analysis, the current through 1Ω resistor is %f A",I2)); + +//END + + diff --git a/1445/CH1/EX1.33/ch1_ex_33.sce b/1445/CH1/EX1.33/ch1_ex_33.sce new file mode 100644 index 000000000..35f0b1417 --- /dev/null +++ b/1445/CH1/EX1.33/ch1_ex_33.sce @@ -0,0 +1,33 @@ +//CHAPTER 1- D.C. CIRCUIT ANALYSIS AND NETWORK THEOREMS +//Example 33 + +disp("CHAPTER 1"); +disp("EXAMPLE 33"); + +//VARIABLE INITIALIZATION +I=10; //current source in Amperes +v=10; //voltage source in Volts +r1=4; //top resistance in Ohms +r1=4; //right resistance in Ohms +r3=4; //bottom resistance in Ohms +r4=6; //left resistance in Ohms +r5=1; //in Ohms + +//SOLUTION +//(17)v1+(-12)v2=150.......eq (1) +//(-4)v1+(6)v2=10..........eq (2) +//solving the equations by matrix method +A=[17 -12;-4 6]; +b=[150;10]; +x=inv(A)*b; +v1=x(1,:); //to access the 1st element of 2X1 matrix +v2=x(2,:); //to access the 1st element of 2X1 matrix +if(v1>v2) then +I=(v1-v2)/r5; +disp(sprintf("By Nodal analysis, the current through 1Ω resistor is %f A",I)); +else +I=(v2-v1)/r5; +disp(sprintf("By Nodal analysis, the current through 1Ω resistor is %f A",I)); +end; + +//END diff --git a/1445/CH1/EX1.34/ch1_ex_34.sce b/1445/CH1/EX1.34/ch1_ex_34.sce new file mode 100644 index 000000000..41b4663ab --- /dev/null +++ b/1445/CH1/EX1.34/ch1_ex_34.sce @@ -0,0 +1,51 @@ +//CHAPTER 1- D.C. CIRCUIT ANALYSIS AND NETWORK THEOREMS +//Example 34 + +disp("CHAPTER 1"); +disp("EXAMPLE 34"); + +//VARIABLE INITIALIZATION +I=10; //current source in Amperes +v=10; //voltage source in Volts +r1=4; //top resistance in Ohms +r1=4; //right resistance in Ohms +r3=4; //bottom resistance in Ohms +r4=6; //left resistance in Ohms +r5=1; //in Ohms + +//SOLUTION + +//activating the current source +//(17)v1+(-12)v2=120.......eq (1) +//(-4)v1+(6)v2=0...........eq (2) +//solving the equations by matrix method +A=[17 -12;-4 6]; +b=[120;0]; +x=inv(A)*b; +v1=x(1,:); //to access the 1st element of 2X1 matrix +v2=x(2,:); //to access the 1st element of 2X1 matrix +if(v1>v2) then +I1=(v1-v2)/r5; +else +I1=(v2-v1)/r5; +end; + +//activating the voltage source +//(17)v1+(-12)v2=30.......eq (1) +//(-4)v1+(6)v2=10...........eq (2) +//solving the equations by matrix method +A=[17 -12;-4 6]; +b=[30;10]; +x=inv(A)*b; +v3=x(1,:); //to access the 1st element of 2X1 matrix +v4=x(2,:); //to access the 1st element of 2X1 matrix +if(v3>v4) then +I2=(v3-v4)/r5; +else +I2=(v4-v3)/r5; +end; + +I_tot=I1+I2; +disp(sprintf("By Superposition Theorem, the current through 1Ω resistor is %f A",I_tot)); + +//END diff --git a/1445/CH1/EX1.35/ch1_ex_35.sce b/1445/CH1/EX1.35/ch1_ex_35.sce new file mode 100644 index 000000000..08039d13a --- /dev/null +++ b/1445/CH1/EX1.35/ch1_ex_35.sce @@ -0,0 +1,27 @@ +//CHAPTER 1- D.C. CIRCUIT ANALYSIS AND NETWORK THEOREMS +//Example 35 + +disp("CHAPTER 1"); +disp("EXAMPLE 35"); + +//VARIABLE INITIALIZATION +I=10; //current source in Amperes +v=10; //voltage source in Volts +r1=4; //top resistance in Ohms +r2=4; //right resistance in Ohms +r3=4; //bottom resistance in Ohms +r4=6; //left resistance in Ohms +r5=1; //in Ohms + +//SOLUTION +res=I+(v/r1); +va=res/((1/r4)+(1/r1)); +vb=(v/r2)/((1/r2)+(1/r3)); +vth=va-vb; +req1=(r1*r4)/(r1+r4); +req2=(r2*r3)/(r2+r3); +rth=req1+req2; +Ith=vth/(rth+r5); +disp(sprintf("By Thevenin Theorem, the current through 1Ω resistor is %f A",Ith)); + +//END diff --git a/1445/CH1/EX1.36/ch1_ex_36.sce b/1445/CH1/EX1.36/ch1_ex_36.sce new file mode 100644 index 000000000..2b032eb5b --- /dev/null +++ b/1445/CH1/EX1.36/ch1_ex_36.sce @@ -0,0 +1,30 @@ +//CHAPTER 1- D.C. CIRCUIT ANALYSIS AND NETWORK THEOREMS +//Example 36 + +disp("CHAPTER 1"); +disp("EXAMPLE 36"); + +//VARIABLE INITIALIZATION +I=10; //current source in Amperes +v=10; //voltage source in Volts +r1=4; //top resistance in Ohms +r2=4; //right resistance in Ohms +r3=4; //bottom resistance in Ohms +r4=6; //left resistance in Ohms +r5=1; //in Ohms + +//SOLUTION +//(1)v1+(12/5)In=30........eq (1) +//(2)v1+(-4)In=10..........eq (2) +A=[1 12/5;2 -4]; +b=[30;10]; +x=inv(A)*b; +v1=x(1,:); //to access the 1st element of 2X1 matrix +In=x(2,:); //to access the 2nd element of 2X1 matrix +req1=(r1*r4)/(r1+r4); +req2=(r2*r3)/(r2+r3); +rn=req1+req2; +I1=(rn*In)/(rn+r5); +disp(sprintf("By Norton Theorem, the current through 1Ω resistor is %f A",I1)); + +//END diff --git a/1445/CH1/EX1.37/ch1_ex_37.sce b/1445/CH1/EX1.37/ch1_ex_37.sce new file mode 100644 index 000000000..398178bc5 --- /dev/null +++ b/1445/CH1/EX1.37/ch1_ex_37.sce @@ -0,0 +1,54 @@ +//CHAPTER 1- D.C. CIRCUIT ANALYSIS AND NETWORK THEOREMS +//Example 37 + +disp("CHAPTER 1"); +disp("EXAMPLE 37"); + +//VARIABLE INITIALIZATION +v1=90; //voltage source in Volts +r1=8; //in Ohms +r2=6; //in Ohms +r3=5; //in Ohms +r4=4; //in Ohms +r5=8; //diagonal resistance in Ohms +r6=8; //in Ohms + +//SOLUTION + +//using Thevenin's Theorem +//(3)v1+(-2)v2=90...........eq (1) +//(-2)v1+(4)v2=-90..........eq (2) +A=[3 -2;-2 4]; +b=[90;-90]; +x=inv(A)*b; +v1=x(1,:); +v2=x(2,:); +vth=v1; +req1=(r1*r5)/(r1+r5); +req2=req1+r4; +req3=(req2*r6)/(req2+r6); +rth=req3+r2; +vab1=(vth*r3)/(rth+r3); +disp(sprintf("By Thevenin Theorem, the value of V_ab is %f V",vab1)); + +//using Norton's Theorem +//(13)v1+(-7)v2=270.........eq (1) +//(7)v1+(-13)v2=0...........eq (2) +A=[13 -7;7 -13]; +b=[270;0]; +x=inv(A)*b; +v1=x(1,:); +v2=x(2,:); +req1=(r1*r5)/(r1+r5); +req2=req1+r4; +req3=(req2*r6)/(req2+r6); +rn=req3+r2; +if(v1>v2) then +In=(v1-v2)/r2; +else +In=(v2-v1)/r2; +end; +vab2=(r3*In)*(rn/(rth+r3)); +disp(sprintf("By Norton Theorem, the value of V_ab is %f V",vab2)); + +//END diff --git a/1445/CH1/EX1.38/ch1_ex_38.sce b/1445/CH1/EX1.38/ch1_ex_38.sce new file mode 100644 index 000000000..0bad64aec --- /dev/null +++ b/1445/CH1/EX1.38/ch1_ex_38.sce @@ -0,0 +1,37 @@ +//CHAPTER 1- D.C. CIRCUIT ANALYSIS AND NETWORK THEOREMS +//Example 38 + +disp("CHAPTER 1"); +disp("EXAMPLE 38"); + +//VARIABLE INITIALIZATION +I=2; //current source in Amperes +r1=2; //in Ohms +r2=1; //in Ohms +r3=1; //in Ohms +r4=2; //in Ohms + +//SOLUTION + +//Thevenin Equivalent circuit +I1=1; //since there is equal resistance of 3Ω, hence, current=1A +vth=(I1*r2)+(-I1*r4); +req1=r1+r2; +req2=r3+r4; +rth=(req1*req2)/(req1+req2); +disp("THEVENIN EQUIVALENT CIRCUIT IS-"); +disp(sprintf(" Thevenin voltage= %d V",vth)); +disp(sprintf(" Thevenin resistance= %f Ω",rth)); + +//Norton Equivalent circuit +v1=I/((1/r2)+(1/r4)); +v2=-I/((1/r3)+(1/r1)); +req1=r1+r2; +req2=r3+r4; +rn=(req1*req2)/(req1+req2); +Isc=(v1/r4)+v2; +disp("NORTON EQUIVALENT CIRCUIT IS-"); +disp(sprintf(" Norton current= %f A",Isc)); +disp(sprintf(" Norton resistance= %f Ω",rn)); + +//END diff --git a/1445/CH1/EX1.39/ch1_ex_39.sce b/1445/CH1/EX1.39/ch1_ex_39.sce new file mode 100644 index 000000000..237e65eb5 --- /dev/null +++ b/1445/CH1/EX1.39/ch1_ex_39.sce @@ -0,0 +1,21 @@ +//CHAPTER 1- D.C. CIRCUIT ANALYSIS AND NETWORK THEOREMS +//Example 39 + +disp("CHAPTER 1"); +disp("EXAMPLE 39"); + +//VARIABLE INITIALIZATION +v=2; //in Volts +r=2; //in Ohms + +//SOLUTION +z_star=r/3; +req1=(r/3)+r; +req2=(r/3)+r; +req3=(req1*req2)/(req1+req2); +req4=(r/3)+req3; +req5=(req4*r)/(req4+r); +I=v/req5; +disp(sprintf("The value of I is %d A",I)); + +//END diff --git a/1445/CH1/EX1.4/ch1_ex_4.sce b/1445/CH1/EX1.4/ch1_ex_4.sce new file mode 100644 index 000000000..4aa57e8de --- /dev/null +++ b/1445/CH1/EX1.4/ch1_ex_4.sce @@ -0,0 +1,41 @@ +//CHAPTER 1- D.C. CIRCUIT ANALYSIS AND NETWORK THEOREMS +//Example 4 + +disp("CHAPTER 1"); +disp("EXAMPLE 4"); + +//VARIABLE INITIALIZATION +r1=1; //LHS resistance in Ohms +r2=2; //in Ohms +r3=3; //in Ohms +r4=4; //in Ohms +r5=5; //in Ohms +r6=6; //in Ohms +r7=7; //in Ohms +r8=8; //RHS resistance in Ohms + +//SOLUTION + +//To find resistance between a and b +req1=r1+r2; +req2=(req1*r3)/(req1+r3); +req3=req2+(r4+r5); +req4=(req3*r6)/(req3+r6); +req5=req4+r7; +req6=(req5*r8)/(req5+r8); +disp(sprintf("The eqiuvalent resistance between points a and b is %f Ω",req6)); + +//To find resistance between c and d +req7=r7+r8; +req8=(req7*r6)/(req7+r6); +req9=req2+r5+req8; +req10=(req9*r4)/(req9+r4); +disp(sprintf("The eqiuvalent resistance between points c and d is %f Ω",req10)); + +//To find resistance between d and e +req11=req2+r4+r5; +req12=(req11*r6)/(req11+r6); +req13=(req12*req7)/(req12+req7); +disp(sprintf("The eqiuvalent resistance between points d and e is %f Ω",req13)); + +//END diff --git a/1445/CH1/EX1.40/ch1_ex_40.sce b/1445/CH1/EX1.40/ch1_ex_40.sce new file mode 100644 index 000000000..09fde3e60 --- /dev/null +++ b/1445/CH1/EX1.40/ch1_ex_40.sce @@ -0,0 +1,33 @@ +//CHAPTER 1- D.C. CIRCUIT ANALYSIS AND NETWORK THEOREMS +//Example 40 + +disp("CHAPTER 1"); +disp("EXAMPLE 40"); + +//VARIABLE INITIALIZATION +v1=20; //in Volts +v2=10; //in Volts +r1=5; //top resistance in Ohms +r2=10; //bottom resistance in Ohms +r3=5; //in Ohms +r4=5; //in Ohms +r5=10; //in Ohms + +//SOLUTION +//(5)I1+(10)I3+(-10)I4=20............eq (1) +//(0)I1+(10)I3+(10)I4=-50............eq (2) +//(5)I1+(20)I3+(0)I4=-30.............eq (3) (eq(1) + eq(2)) +//Since the determinant of matrix A is 0, hence, the set of these equations cannot be solved by matrix method +//So, solving them directly, + +I3=-15/25; +I1=-3-(3/5); +I4=-5-(-3/5); +I=I1+3+5; +disp("The currents (in Amperes) flowing in different branches are:"); +disp(I1); +disp(I3); +disp(I4); +disp(sprintf("The total current is %f A",I)); + +//END diff --git a/1445/CH1/EX1.41/ch1_ex_41.sce b/1445/CH1/EX1.41/ch1_ex_41.sce new file mode 100644 index 000000000..441c9075e --- /dev/null +++ b/1445/CH1/EX1.41/ch1_ex_41.sce @@ -0,0 +1,30 @@ +//CHAPTER 1- D.C. CIRCUIT ANALYSIS AND NETWORK THEOREMS +//Example 41 + +disp("CHAPTER 1"); +disp("EXAMPLE 41"); + +//VARIABLE INITIALIZATION +vs=6; //in Volts +Is=4; //in Amperes +r1=5; //in Ohms +r2=2; //in Ohms +r3=2; //in Ohms +r=2/3; //in Ohms +r4=3; //in Ohms +r5=1; //in Ohms +r6=2; //in Ohms + +//SOLUTION +req1=(r2*r3)/(r2+r3); +req2=req1+r1; //resistance across vs +va=vs/req2; +rth1=(req1*r1)/(req1+r1); +I1=Is*(r2/req2); //current in 3Ω +vb=I1*r4; +rth2=(r4*r4)/(r4+r4); //since r4 is also 3Ω +I=(vb-va)/(rth1+r+rth2); +disp(sprintf("The value of the current is %d A",I)); + +//END + diff --git a/1445/CH1/EX1.42/ch1_ex_42.sce b/1445/CH1/EX1.42/ch1_ex_42.sce new file mode 100644 index 000000000..5ca60c3ac --- /dev/null +++ b/1445/CH1/EX1.42/ch1_ex_42.sce @@ -0,0 +1,39 @@ +//CHAPTER 1- D.C. CIRCUIT ANALYSIS AND NETWORK THEOREMS +//Example 42 + +disp("CHAPTER 1"); +disp("EXAMPLE 42"); + +//VARIABLE INITIALIZATION +v=10; //in Volts +I=0.5; //in Amperes +r1=4; //top LHS resistance in Ohms +r2=2; //top RHS resistance in Ohms +r3=2; //first resistance in Ohms +r4=2; //second resistance in Ohms + +//SOLUTION + +//using Thevenin theorem +rth=(r1*r3)/(r1+r3); +vth=v*(r3/(r1+r3)); +//solving for R directly, +R=(40-(56*I))/(24*I); +disp(sprintf("(i) By Thevenin Theorem, the value of R is %d Ω",R)); + +//using nodal analysis +//solving the quadratic equation formed by comparing eq(1) and eq(2) +//(3)R^2+(-3)R+(0)=0 +a=3; +b=-3; +c=0; +D=(b^2)-(4*a*c); //discriminant +R1=(-b+sqrt(D))/(2*a); +R2=(-b-sqrt(D))/(2*a); +if(R1==1) then +disp(sprintf("(ii) By Nodal analysis, the value of R is %d Ω",R1)); +else +disp(sprintf("(ii) By Nodal analysis, the value of R is %d Ω",R1)); +end; + +//END diff --git a/1445/CH1/EX1.43/ch1_ex_43.sce b/1445/CH1/EX1.43/ch1_ex_43.sce new file mode 100644 index 000000000..d6582237e --- /dev/null +++ b/1445/CH1/EX1.43/ch1_ex_43.sce @@ -0,0 +1,25 @@ +//CHAPTER 1- D.C. CIRCUIT ANALYSIS AND NETWORK THEOREMS +//Example 43 + +disp("CHAPTER 1"); +disp("EXAMPLE 43"); + +//VARIABLE INITIALIZATION +I1=2; //in Amperes +I2=4; //in Amperes +v=2; //in Volts +r1=200; //in Ohms +r2=100; //in Ohms +r3=4; //in Ohms + +//SOLUTION +req1=34; +Ia=I2*(r3/req1); +req2=24; +Iab=I1*(req2/req1); +I=Ia+Iab; +vab=I*10; +disp(sprintf("The voltage V_ab is %f V",vab)); + +//END + diff --git a/1445/CH1/EX1.44/ch1_ex_44.sce b/1445/CH1/EX1.44/ch1_ex_44.sce new file mode 100644 index 000000000..dd1019bb5 --- /dev/null +++ b/1445/CH1/EX1.44/ch1_ex_44.sce @@ -0,0 +1,15 @@ +//CHAPTER 1- D.C. CIRCUIT ANALYSIS AND NETWORK THEOREMS +//Example 44 + +disp("CHAPTER 1"); +disp("EXAMPLE 44"); + +//VARIABLE INITIALIZATION +I=40; //in Amperes +r=5; //in Ohms + +//SOLUTION +v=I*r; +disp(sprintf("The voltage required is %d V",v)); + +//END diff --git a/1445/CH1/EX1.45/ch1_ex_45.sce b/1445/CH1/EX1.45/ch1_ex_45.sce new file mode 100644 index 000000000..ed9fa8ab8 --- /dev/null +++ b/1445/CH1/EX1.45/ch1_ex_45.sce @@ -0,0 +1,15 @@ +//CHAPTER 1- D.C. CIRCUIT ANALYSIS AND NETWORK THEOREMS +//Example 45 + +disp("CHAPTER 1"); +disp("EXAMPLE 45"); + +//VARIABLE INITIALIZATION +p=5*1000; //in Watts +v=200; //in Volts + +//SOLUTION +r=(v^2)/p; +disp(sprintf("Value of resistance is %d Ω",r)); + +//END diff --git a/1445/CH1/EX1.46/ch1_ex_46.sce b/1445/CH1/EX1.46/ch1_ex_46.sce new file mode 100644 index 000000000..4623527b7 --- /dev/null +++ b/1445/CH1/EX1.46/ch1_ex_46.sce @@ -0,0 +1,26 @@ +//CHAPTER 1- D.C. CIRCUIT ANALYSIS AND NETWORK THEOREMS +//Example 46 + +disp("CHAPTER 1"); +disp("EXAMPLE 46"); + +//VARIABLE INITIALIZATION +v=240; //in Volts + +//SOLUTION +//case1: p=60W +p1=60; //in Watts +r1=(v^2)/p1; +disp(sprintf("Resistance of the metal filament lamp is %d Ω",r1)); + +//case2: p=100W +p2=100; //in Watts +r2=(v^2)/p2; + +if(r1>r2) then +disp(sprintf("Resistance of %d W lamp will be greater",p1)); +else +disp(sprintf("Resistance of %d W lamp will be greater",p2)); +end; + +//END diff --git a/1445/CH1/EX1.47/ch1_ex_47.sce b/1445/CH1/EX1.47/ch1_ex_47.sce new file mode 100644 index 000000000..9b53f1882 --- /dev/null +++ b/1445/CH1/EX1.47/ch1_ex_47.sce @@ -0,0 +1,32 @@ +//CHAPTER 1- D.C. CIRCUIT ANALYSIS AND NETWORK THEOREMS +//Example 47 + +disp("CHAPTER 1"); +disp("EXAMPLE 47"); + +//VARIABLE INITIALIZATION +lc=20; //length of copper wire in m +dc=0.015/100; //diameter of copper wire in m +rhoc=1.7; //specific resistance for copper +lp=15; //length of platinum silver wire in m +dp=0.015/100; //diameter of platinum silver wire in m +rhop=2.43; //specific resistance for platinum silver + +//SOLUTION + +//for copper wire +sc=(%pi/4)*(dc^2); //area +rc=rhoc*(lc/sc); + +//for platinum silver +sp=(%pi/4)*(dp^2); //area +rp=rhop*(lp/sp); + + +if(rc>rp) then +disp("Copper wire has greater resistance"); +else +disp("Platinum silver wire has greater resistance"); +end; + +//END diff --git a/1445/CH1/EX1.48/ch1_ex_48.sce b/1445/CH1/EX1.48/ch1_ex_48.sce new file mode 100644 index 000000000..b3955c327 --- /dev/null +++ b/1445/CH1/EX1.48/ch1_ex_48.sce @@ -0,0 +1,32 @@ +//CHAPTER 1- D.C. CIRCUIT ANALYSIS AND NETWORK THEOREMS +//Example 48 + +disp("CHAPTER 1"); +disp("EXAMPLE 48"); + +//VARIABLE INITIALIZATION +v1=2.05; //1st cell in Volts +v2=2.15; //2nd cell in Volts +r1=0.05; //in Ohms +r2=0.04; //in Ohms +r3=1; //in Ohms + +//SOLUTION +//(r3+r1)I1+(r3)I2=v1......eq (1) +//(r3)I1+(r3+r2)I2=v2......eq (2) +req1=r3+r1; +req2=r3+r2; +A=[req1 r3;r3 req2]; +b=[v1;v2]; +x=inv(A)*b; +I1=x(1,:); //to access the 1st element of 2X1 matrix +I2=x(2,:); //to access the 2nd element of 2X1 matrix +I=I1+I2; +pd=I*r3; +disp(sprintf("Current through B1 is %f A",I1)); +disp(sprintf("Current through B2 is %f A",I2)); +disp(sprintf("Potential difference across AC is %f V",pd)); + +//END + + diff --git a/1445/CH1/EX1.49/ch1_ex_49.sce b/1445/CH1/EX1.49/ch1_ex_49.sce new file mode 100644 index 000000000..5f4945fa9 --- /dev/null +++ b/1445/CH1/EX1.49/ch1_ex_49.sce @@ -0,0 +1,38 @@ +//CHAPTER 1- D.C. CIRCUIT ANALYSIS AND NETWORK THEOREMS +//Example 49 + +disp("CHAPTER 1"); +disp("EXAMPLE 49"); + +//VARIABLE INITIALIZATION +v1=110; //voltage source in Volts +v2=80; //voltage source in Volts +v3=50; //voltage source in Volts +r=2; //in Ohms + +//SOLUTION + +//solution (a) +I1=4; //charging +I2=6; //charging +r1=((v1-v2)-((I1+I2)*r))/I1; +r2=((v1-v3)-((I1+I2)*r))/I2; +disp(sprintf("(a) R1= %f Ω",r1)); +disp(sprintf(" R2= %f Ω",r2)); + +//solution (b) +I1=2; //discharging +I2=20; //charging +r1=((v1-v2)-((I2-I1)*r))/(-I1); +r2=((v1-v3)-((I2-I1)*r))/I2; +disp(sprintf("(b) R1= %f Ω",r1)); +disp(sprintf(" R2= %f Ω",r2)); + +//solution (c) +I1=0; +I2=(v1-v2)/r; +r2=((v1-v3)-(I2*r))/I2; +disp(sprintf("(c) I1=0 when R2= %d Ω",r2)); + +//END + diff --git a/1445/CH1/EX1.5/ch1_ex_5.sce b/1445/CH1/EX1.5/ch1_ex_5.sce new file mode 100644 index 000000000..e42921133 --- /dev/null +++ b/1445/CH1/EX1.5/ch1_ex_5.sce @@ -0,0 +1,39 @@ +//CHAPTER 1- D.C. CIRCUIT ANALYSIS AND NETWORK THEOREMS +//Example 5 + +disp("CHAPTER 1"); +disp("EXAMPLE 5"); + +//VARIABLE INITIALIZATION +r1=2; //in Ohms +r2=4; //in Ohms +r3=8; //in Ohms +r4=8; //in Ohms +r5=2; //middle resistance in Ohms + +//SOLUTION + +//To find resistance between a and c +req1=r1+r2; +req2=r1+r4; +req3=(req1*r1)/(req1+r1); +req4=(req3*req2)/(req3+req2); +disp(sprintf("The eqiuvalent resistance between points a and c is %f Ω",req4)); + +//To find resistance between b and d +//converting delta abc into star +//delta values +rab=r1; +rbc=r2; +rac=6; +//star values +r=rab+rbc+rac; +ra=(rab*rbc)/r; +rb=(rab*rac)/r; +rc=(rbc*rac)/r; +req5=rb+rac; +req6=rc+8; +req7=ra+((req5*req6)/(req5+req6)); +disp(sprintf("The eqiuvalent resistance between points b and d is %f Ω",req7)); + +//END diff --git a/1445/CH1/EX1.50/ch1_ex_50.sce b/1445/CH1/EX1.50/ch1_ex_50.sce new file mode 100644 index 000000000..694ba8a9e --- /dev/null +++ b/1445/CH1/EX1.50/ch1_ex_50.sce @@ -0,0 +1,21 @@ +//CHAPTER 1- D.C. CIRCUIT ANALYSIS AND NETWORK THEOREMS +//Example 50 + +disp("CHAPTER 1"); +disp("EXAMPLE 50"); + +//SOLUTION +//(5)I1+(-3)I2=10..........eq (1) +//(-3)I1+(34)I2=40.........eq (2) +A=[5 -3;-3 34]; +b=[10;40]; +x=inv(A)*b; +I1=x(1,:); //to access the 1st element of 2X1 matrix +I2=x(2,:); //to access the 2nd element of 2X1 matrix +I=I2-I1; +disp(sprintf("Current i1 is %f A (loop EFAB)",I1)); +disp(sprintf("Current i2 is %f A (loop BCDE)",abs(I))); + +//END + + diff --git a/1445/CH1/EX1.51/ch1_ex_51.sce b/1445/CH1/EX1.51/ch1_ex_51.sce new file mode 100644 index 000000000..769c71b81 --- /dev/null +++ b/1445/CH1/EX1.51/ch1_ex_51.sce @@ -0,0 +1,23 @@ +//CHAPTER 1- D.C. CIRCUIT ANALYSIS AND NETWORK THEOREMS +//Example 51 + +disp("CHAPTER 1"); +disp("EXAMPLE 51"); + +//SOLUTION +//(9)I1+(-5)I2+(-3)I3=5..........eq (1) +//(-5)I1+(8)I2+(-1)I3=5..........eq (2) +//(-3)I1+(-1)I2+(6)I3=3..........eq (3) +A=[9 -5 -3;-5 8 -1;-3 -1 6]; +b=[5;5;3]; +x=inv(A)*b; +I1=x(1,:); //to access the 1st element of 3X1 matrix +I2=x(2,:); //to access the 2nd element of 3X1 matrix +I3=x(3,:); //to access the 3rd element of 3X1 matrix +disp(sprintf("Current i1 is %f A (loop ABGH)",I1)); +disp(sprintf("Current i2 is %f A (loop BCDH)",I2)); +disp(sprintf("Current i3 is %f A (loop GDEF)",I3)); + +//END + + diff --git a/1445/CH1/EX1.52/ch1_ex_52.sce b/1445/CH1/EX1.52/ch1_ex_52.sce new file mode 100644 index 000000000..eba623ea8 --- /dev/null +++ b/1445/CH1/EX1.52/ch1_ex_52.sce @@ -0,0 +1,46 @@ +//CHAPTER 1- D.C. CIRCUIT ANALYSIS AND NETWORK THEOREMS +//Example 52 + +disp("CHAPTER 1"); +disp("EXAMPLE 52"); + +//VARIABLE INITIALIZATION +v1=20; //LHS voltage source in Volts +v2=12; //RHS voltage source in Volts +r1=5; //LHS resistance in Ohms +r2=2; //in Ohms +r3=8; //in Ohms +r4=10; //RHS resistance in Ohms + +//SOLUTION + +//by Thevenin's Theorem +rth=r3+((r1*r2)/(r1+r2)); +v=v1*(r2/(r1+r2)); //by voltage divider law +vab=-v2+(r3*0)+(rth*0)+v; +I1=vab/(rth+r4); +Isc=vab/rth; +disp(sprintf("By Thevenin Theorem, the value of current is %f A",I1)); + +//verification by Norton's Theorem +//7I1+2I2=20.................eq (1) +//2I1+10I2=12................eq (2) +//solving the equations using matrix method +A=[7 2;2 10]; +b=[20;12]; +x=inv(A)*b; +x1=x(1,:); //to access 1st element of 2X1 matrix +x2=x(2,:); //to access 2nd element of 2X1 matrix and Isc=-x2 +Isc=-x2; +I2=Isc*(rth/(rth+r4)); +if(I1==I2) +disp(sprintf("By Norton Theorem, the value of current is %f A",I2)); +disp(sprintf("Hence, answer is confirmed by Norton Theorem")); +else +disp(sprintf("The answer is not confirmed by Norton Theorem")); +end; + +//END + + + diff --git a/1445/CH1/EX1.53/ch1_ex_53.sce b/1445/CH1/EX1.53/ch1_ex_53.sce new file mode 100644 index 000000000..20596387d --- /dev/null +++ b/1445/CH1/EX1.53/ch1_ex_53.sce @@ -0,0 +1,27 @@ +//CHAPTER 1- D.C. CIRCUIT ANALYSIS AND NETWORK THEOREMS +//Example 53 + +disp("CHAPTER 1"); +disp("EXAMPLE 53"); + +//VARIABLE INITIALIZATION +v1=10; //LHS voltage source in Volts +v2=4; //RHS voltage source in Volts +r1=2; //LHS resistance in Ohms +r2=3; //in Ohms +r3=10; //in Ohms +r4=3; //in Ohms +r5=1; //RHS resistance in Ohms + +//SOLUTION +van=v1*(r2/(r1+r2)); //by voltage divider law +vbn=-v2*(r4/(r5+r4)); //by voltage divider law +ran=(r1*r2)/(r1+r2); +rbn=(r4*r5)/(r4+r5); +vab=(ran*0)+van-vbn+(rbn*0); +vth=vab; +disp(sprintf("The Thevenin voltage is %d V",vth)); + +//END + + diff --git a/1445/CH1/EX1.54/ch1_ex_54.sce b/1445/CH1/EX1.54/ch1_ex_54.sce new file mode 100644 index 000000000..92c5e6fcc --- /dev/null +++ b/1445/CH1/EX1.54/ch1_ex_54.sce @@ -0,0 +1,30 @@ +//CHAPTER 1- D.C. CIRCUIT ANALYSIS AND NETWORK THEOREMS +//Example 54 + +disp("CHAPTER 1"); +disp("EXAMPLE 54"); + +//VARIABLE INITIALIZATION +v=5; //voltage source in Volts +r1=1; //LHS resistance in Ohms +r2=5; //in Ohms +r3=1; //in Ohms +r4=1; //RHS resistance in Ohms +I=10; //current source in Amperes + +//SOLUTION + +//on deactivating the current source, current I1 flows in the circuit +req1=r1+r3+r4; +I1=v/req1; +vab1=v-(I1*r1); //(I1*r1) is voltage drop across 1Ω resistance +I2=I/req1; +vab2=vab1+(I2*r1); //(I2*r1) is voltage drop across 1Ω resistance +rth=r1+((r3*r4)/(r3+r4)); +Ith=vab2/(rth+r2); +Rth=(6/5)+(3/4); +req2=10+2; +I3=9/12; +disp(sprintf("The value of the current is %f A",I3)); + +//END diff --git a/1445/CH1/EX1.55/ch1_ex_55.sce b/1445/CH1/EX1.55/ch1_ex_55.sce new file mode 100644 index 000000000..0557dd4c2 --- /dev/null +++ b/1445/CH1/EX1.55/ch1_ex_55.sce @@ -0,0 +1,22 @@ +//CHAPTER 1- D.C. CIRCUIT ANALYSIS AND NETWORK THEOREMS +//Example 55 + +disp("CHAPTER 1"); +disp("EXAMPLE 55"); + +//VARIABLE INITIALIZATION +v1=50; //voltage source in Volts +v2=100; //voltage source in Volts +r1=40; //in Ohms +r2=50; //in Ohms +r3=20; //in Ohms +r4=10; //in Ohms + +//SOLUTION +diff=(v1/r2)-(v2/r3); +vp=diff/((1/r2)+(1/r3)+(1/r4)); +vba=vp+v2; +disp(sprintf("The voltage between A and B is %f V",vba)); + +//END + diff --git a/1445/CH1/EX1.56/ch1_ex_56.sce b/1445/CH1/EX1.56/ch1_ex_56.sce new file mode 100644 index 000000000..3ec8eff3e --- /dev/null +++ b/1445/CH1/EX1.56/ch1_ex_56.sce @@ -0,0 +1,20 @@ +//CHAPTER 1- D.C. CIRCUIT ANALYSIS AND NETWORK THEOREMS +//Example 56 + +disp("CHAPTER 1"); +disp("EXAMPLE 56"); + +//VARIABLE INITIALIZATION +r=1; //this is an assumption +r1=r*1; //in Ohms +r2=r*2; //in Ohms +r3=r*3; //in Ohms + +//SOLUTION +ra=r1+r2+((r1*r2)/(r1+r2)); +rb=r2+r3+((r2*r3)/(r2+r3)); +rc=r1+r3+((r1*r3)/(r1+r3)); +disp(sprintf("The equivalent delta values are %f Ω, %f Ω and %f Ω",ra,rb,rc)); + +//END + diff --git a/1445/CH1/EX1.57/ch1_ex_57.sce b/1445/CH1/EX1.57/ch1_ex_57.sce new file mode 100644 index 000000000..56df93750 --- /dev/null +++ b/1445/CH1/EX1.57/ch1_ex_57.sce @@ -0,0 +1,33 @@ +//CHAPTER 1- D.C. CIRCUIT ANALYSIS AND NETWORK THEOREMS +//Example 57 + +disp("CHAPTER 1"); +disp("EXAMPLE 57"); + +//VARIABLE INITIALIZATION +v=10; //voltage source in Ohms +r1=2; //RHS resistance in Ohms +r2=2; //in Ohms +r3=4; //in Ohms +r4=4; //in Ohms +I=20; //current source in Amperes + +//SOLUTION + +r=r1+r2; +//deactivating voltage source of 10Ω +v1=-I/((1/r)+(1/r3)+(1/r4)); //from equation +I1=v1/r3; + +//deactivating current source of 20A +v2=(v/r)/((1/r)+(1/r3)+(1/r4)); +I2=v2/r3; + +I_tot=I1+I2; +if(I_tot>0) +disp(sprintf("The value of I is %f A (upward)",I_tot)); +else +disp(sprintf("The value of I is %f A (downward)",-I_tot)); + +//END + diff --git a/1445/CH1/EX1.58/ch1_ex_58.sce b/1445/CH1/EX1.58/ch1_ex_58.sce new file mode 100644 index 000000000..f077490a3 --- /dev/null +++ b/1445/CH1/EX1.58/ch1_ex_58.sce @@ -0,0 +1,35 @@ +//CHAPTER 1- D.C. CIRCUIT ANALYSIS AND NETWORK THEOREMS +//Example 58 + +disp("CHAPTER 1"); +disp("EXAMPLE 58"); + +//VARIABLE INITIALIZATION +v1=20; //LHS voltage source in Volts +v2=5; //RHS voltage source in Volts +r1=100; //LHS resistance in Ohms +r2=2; //in Ohms +r3=1; //in Ohms +r4=4; //in Ohms +r5=1; //RHS resistance in Ohms + +//SOLUTION + +//applying Thevenin's Theorem +//Thevnin's equivalent resistance, r_th is same as r_AB +r_th=((r3+r5)*r2)/((r3+r5)+r2); +v_th=(v1-v2)/2; //from the equation +I1=v_th/(r4+r_th); +v1=I1*r4; +disp(sprintf("By Thevenin Theorem, the value of V is %d V",v1)); + +//applying Norton's Theorem +//Norton's equivalent resistance, r_n is same as r_AB +r_n=((r3+r5)*r2)/((r3+r5)+r2); +I_n=(v1-v2)/r2; //since v_A=0 +I2=r_n*(I_n/(r4+r_n)); +v2=I2*r4; +disp(sprintf("By Norton Theorem, the value of V is %d V",v2)); + +//END + diff --git a/1445/CH1/EX1.59/ch1_ex_59.sce b/1445/CH1/EX1.59/ch1_ex_59.sce new file mode 100644 index 000000000..907d3074d --- /dev/null +++ b/1445/CH1/EX1.59/ch1_ex_59.sce @@ -0,0 +1,23 @@ +//CHAPTER 1- D.C. CIRCUIT ANALYSIS AND NETWORK THEOREMS +//Example 59 + +disp("CHAPTER 1"); +disp("EXAMPLE 59"); + +//SOLUTION + +//I1+I2=20...............eq (1) +//-I1+I2=10..............eq (2) +//solving the simultaneous equations by matrix method + +A=[1 1;-1 1]; +b=[20;10]; +x=inv(A)*b; +x1=x(1,:); //to access 1st element of 2X1 matrix +x2=x(2,:); //to access 2nd element of 2X1 matrix +disp(sprintf("Current I1= %d A",x1)); +disp(sprintf("Current I2= %d A",x2)); + +//END + + diff --git a/1445/CH1/EX1.6/ch1_ex_6.sce b/1445/CH1/EX1.6/ch1_ex_6.sce new file mode 100644 index 000000000..db39be0af --- /dev/null +++ b/1445/CH1/EX1.6/ch1_ex_6.sce @@ -0,0 +1,27 @@ +//CHAPTER 1- D.C. CIRCUIT ANALYSIS AND NETWORK THEOREMS +//Example 6 + +disp("CHAPTER 1"); +disp("EXAMPLE 6"); + +//VARIABLE INITIALIZATION +non=4; //number of nodes +nob=6; //number of branches + +//SOLUTION +nome=nob-non+1; //number of mesh equations +disp(sprintf("Number of mesh equations are %d",nome)); +none=non-1; +disp(sprintf("Number of node equations are %d",none)); + +//(5/2)I1+(-2)I2+(-1/2)I3=4.....eq (1) +//(0)I1+(0)I2+(1)I3=-2..........eq (2) +//(-2)I1+(10/3)I2+(-1/3)I3=0....eq (3) +//using matrix method to solve the set of equations +A=[5/2 -2 -1/2;-2 10/3 -1/3;0 0 1]; +b=[4;0;-2]; +x=inv(A)*b; +I=x(1,:); //to access the 1st element of 3X1 matrix +disp(sprintf("The current from the source V is %d A",I)); + +//END diff --git a/1445/CH1/EX1.7/ch1_ex_7.sce b/1445/CH1/EX1.7/ch1_ex_7.sce new file mode 100644 index 000000000..f6f477eeb --- /dev/null +++ b/1445/CH1/EX1.7/ch1_ex_7.sce @@ -0,0 +1,43 @@ +//CHAPTER 1- D.C. CIRCUIT ANALYSIS AND NETWORK THEOREMS +//Example 7 + +disp("CHAPTER 1"); +disp("EXAMPLE 7"); + +//VARIABLE INITIALIZATION +I1=1; //current source in Amperes +v1=4; //voltage source in Volts +v2=3; //voltage source in Volts +v3=6; //voltage source in Volts +r1=2; //resistance in Ohms +r2=2; //resistance in Ohms +r3=1; //resistance in Ohms +r4=3; //resistance in Ohms + +//SOLUTION +//converting all the voltage sources into current souces +I2=v1/r1; +I3=v2/r3; +I4=v3/r4; +disp(sprintf("The four current sources are %d A, %d A, %d A and %d A",I1,I2,I3,I4)); + +req1=(r1*r2)/(r1+r2); // 2Ω and 2Ω are in parallel +req2=(r3*r4)/(r3+r4); // 3Ω and 1Ω are in parallel +v2=(I1+I4)*req1; +v3=(I3-I2)*req2; +req=req1+req2; +v=v2+v3; +I=v/req; +disp("VOLTAGE EQUIVALENT CIRCUIT:"); +disp(sprintf(" Voltage source= %f V",v)); +disp(sprintf(" Equivalent resistance(in series)= %f Ω",req)); +disp("CURRENT EQUIVALENT CIRCUIT:"); +disp(sprintf(" Current source= %f A",I)); +disp(sprintf(" Equivalent resistance(in parallel)= %f Ω",req)); + +//END + + + + + diff --git a/1445/CH1/EX1.8/ch1_ex_8.sce b/1445/CH1/EX1.8/ch1_ex_8.sce new file mode 100644 index 000000000..fe06ea422 --- /dev/null +++ b/1445/CH1/EX1.8/ch1_ex_8.sce @@ -0,0 +1,26 @@ +//CHAPTER 1- D.C. CIRCUIT ANALYSIS AND NETWORK THEOREMS +//Example 8 + +disp("CHAPTER 1"); +disp("EXAMPLE 8"); + +//VARIABLE INITIALIZATION +I=2; //current source in Amperes +r1=1/2; //in Ohms +r2=1/2; //in Ohms + +//SOLUTION +//current source 2 A is converted into two 1V sources +v1=I*r1; +v2=I*r2; +disp(sprintf("The voltage sources after conversion are %d V and %d V",v1,v2)); +//(5/2)I1+(-1)I2=0........eq (1) +//(-1)I1+(7/2)I2=2........eq (2) +//using matrix method to solve the set of equations +A=[5/2 -1;-1 7/2]; +b=[2;2]; +x=inv(A)*b; +x=x(2,:); +disp(sprintf("The current in 2Ω resistor is %f A",x)); + +//END diff --git a/1445/CH1/EX1.9/ch1_ex_9.sce b/1445/CH1/EX1.9/ch1_ex_9.sce new file mode 100644 index 000000000..3b32b2f9d --- /dev/null +++ b/1445/CH1/EX1.9/ch1_ex_9.sce @@ -0,0 +1,33 @@ +//CHAPTER 1- D.C. CIRCUIT ANALYSIS AND NETWORK THEOREMS +//Example 9 + +disp("CHAPTER 1"); +disp("EXAMPLE 9"); + +//VARIABLE INITIALIZATION +r1=1; //in Ohms +r2=2; //in Ohms +r3=3; //in Ohms +r4=1; //in Ohms + +//SOLUTION + +//delta values +rab=r1; //between points a and b +rac=r2; //between points a and c +rbc=r3; //between points b and c +//coverting delta abc into star +//star values +r=rab+rbc+rac; +ra=(rab*rac)/r; +rb=(rab*rbc)/r; +rc=(rbc*rac)/r; + +req1=r1+r4; +req2=rb+r2; +req3=(req1*req2)/(req1+req2); +req4=ra+req3; +disp(sprintf("The equivalent input resistance is %f Ω",req4)); + +//END + diff --git a/1445/CH10/EX10.10/ch10_ex_10.sce b/1445/CH10/EX10.10/ch10_ex_10.sce new file mode 100644 index 000000000..ce8d85e4a --- /dev/null +++ b/1445/CH10/EX10.10/ch10_ex_10.sce @@ -0,0 +1,26 @@ +//CHAPTER 10- THREE-PHASE INDUCTION MACHINES +//Example 10 + +disp("CHAPTER 10"); +disp("EXAMPLE 10"); + +//VARIABLE INITIALIZATION +P=6; //number of poles +f=60; //in Hertz +p=48; //stator input in Watts +N_r=1140; //in rpm +cu_loss=1.4; //stator copper loss in Watts +cr_loss=1.6; //stator core loss in Watts +me_loss=1; //rotor mechanical loss in Watts + +//SOLUTION +N_s=(120*f)/P; +s=(N_s-N_r)/N_s; +p_g=p-(cu_loss+cr_loss); //rotor input +p_m=p_g*(1-s); //output mechanical power +p_sh=p_m-me_loss; //shaft power +eff=p_sh/p; +disp(sprintf("The motor efficiency is %f %%",eff*100)); + +//END + diff --git a/1445/CH10/EX10.11/ch10_ex_11.sce b/1445/CH10/EX10.11/ch10_ex_11.sce new file mode 100644 index 000000000..2d2164770 --- /dev/null +++ b/1445/CH10/EX10.11/ch10_ex_11.sce @@ -0,0 +1,25 @@ +//CHAPTER 10- THREE-PHASE INDUCTION MACHINES +//Example 11 + +disp("CHAPTER 10"); +disp("EXAMPLE 11"); + +//VARIABLE INITIALIZATION +P1=4; //number of poles +s=5/100; //slip +f=60; //in Hertz + +//SOLUTION + +//solution (a) +N_s=(120*f)/P1; +N_r=N_s*(1-s); +N_r=round(N_r); //to round off the value +disp(sprintf("(a) The speed of the motor is %d rpm",N_r)); + +//solution (b) +P2=6; +N_s=(120*f)/P2; +disp(sprintf("(b) The speed of the generator is %d rpm",N_s)); + +//END diff --git a/1445/CH10/EX10.12/ch10_ex_12.sce b/1445/CH10/EX10.12/ch10_ex_12.sce new file mode 100644 index 000000000..c2ab1d370 --- /dev/null +++ b/1445/CH10/EX10.12/ch10_ex_12.sce @@ -0,0 +1,43 @@ +//CHAPTER 10- THREE-PHASE INDUCTION MACHINES +//Example 12 + +disp("CHAPTER 10"); +disp("EXAMPLE 12"); + +//VARIABLE INITIALIZATION +v=440; //in Volts +I=1200; //in Amperes +eff=0.85; //full load efficiency +pow_fact=0.8; //full load power factor + +//SOLUTION + +//solution (a) +I_fl1=I/5; //starting current at rated voltage is 5 times the rated full-load current +p1=sqrt(3)*v*I_fl1*pow_fact*eff; +disp(sprintf("(a) The maximum rating when the motor starts at full voltage is %f kW",p1/1000)); + +//solution (b) +I_fl2=I/((0.8^2)*5); +p2=sqrt(3)*v*I_fl2*pow_fact*eff; +disp(sprintf("(b) The maximum rating when the motor is used with an auto-transformer is %f kW",p2/1000)); + +//solution (c) +I_fl3=I/((0.578^2)*5); +p3=sqrt(3)*v*I_fl3*pow_fact*eff; +disp(sprintf("(c) The maximum rating when the motor is used with star-delta starter is %f kW",p3/1000)); + +//The answers are slightly different due to precision of floating point numbers + +//END + + + + + + + + + + + diff --git a/1445/CH10/EX10.13/ch10_ex_13.sce b/1445/CH10/EX10.13/ch10_ex_13.sce new file mode 100644 index 000000000..2450a5569 --- /dev/null +++ b/1445/CH10/EX10.13/ch10_ex_13.sce @@ -0,0 +1,61 @@ +//CHAPTER 10- THREE-PHASE INDUCTION MACHINES +//Example 13 + +disp("CHAPTER 10"); +disp("EXAMPLE 13"); + +//VARIABLE INITIALIZATION +f=50; //in Hertz +N_r=1440; //full-load speed in Hertz + +//SOLUTION + +//solution (a) +function N=speed(pole); +N=(120*f)/pole; +endfunction; + +pole=2; +N=speed(pole); +if(N>N_r & N<2000) +P=pole; +N_s1=N; +disp(sprintf("(a) The number of poles is %d",P)); +end; +pole=4; +N=speed(pole); +if(N>N_r & N<2000) +P=pole; +N_s1=N; +disp(sprintf("(a) The number of poles is %d",P)); +end; +pole=6; +N=speed(pole); +if(N>N_r & N<2000) +P=pole; +N_s1=N; +disp(sprintf("(a) The number of poles is %d",P)); +end; + +//solution (b) +s=(N_s1-N_r)/N_s1; +f_r=s*f; +disp(sprintf("(b) The slip is %f %% and rotor frequency is %d Hz",s*100,f_r)); + +//solution (c) +w1=(2*%pi*N_s1)/60; +disp(sprintf("(c(i)) The speed of stator field w.r.t. stator structure is %f rad/s",w1)); +N_s2=N_s1-N_r; +w2=(2*%pi*N_s2)/60; +disp(sprintf("(c(ii)) The speed of stator field w.r.t. rotor structure is %f rad/s",w2)); + +//solution (d) +factor=(2*%pi)/60; //converting factor from rpm to radian/second +N_r1=(120*f_r)/P; +disp(sprintf("(d(i)) The speed of rotor field w.r.t. rotor structure is %f rad/s",N_r1*factor)); +N_r2=N_r+N_r1; +disp(sprintf("(d(ii)) The speed of rotor field w.r.t. stator structure is %f rad/s",N_r2*factor)); +N_r3=N_s1-N_r2; +disp(sprintf("(d(iii)) The speed of rotor field w.r.t. stator structure is %d rad/s",N_r3)); + +//END diff --git a/1445/CH10/EX10.14/ch10_ex_14.sce b/1445/CH10/EX10.14/ch10_ex_14.sce new file mode 100644 index 000000000..c9dddcdad --- /dev/null +++ b/1445/CH10/EX10.14/ch10_ex_14.sce @@ -0,0 +1,52 @@ +//CHAPTER 10- THREE-PHASE INDUCTION MACHINES +//Example 14 + +disp("CHAPTER 10"); +disp("EXAMPLE 14"); + +//VARIABLE INITIALIZATION +p=10*1000; //in Watts +I_nl=8; //no load line current in Amperes +p_ni=660; //input power at no load in Watts +I_fl=18; //full load current in Amperes +p_fi=11.20*1000; //input power at full load in Watts +r=1.2; //stator resistance per phase in Ohms +loss=420; //friction and winding loss in Watts + +//SOLUTION + +//solution (a) +I1=I_nl/sqrt(3); +i_sq_r1=(I1^2)*r*3; //stator (I^2*R) loss at no load +s_loss=p_ni-loss-i_sq_r1; +disp(sprintf("(a) The stator core loss is %f W",s_loss)); + +//solution (b) +I2=I_fl/sqrt(3); +i_sq_r2=(I2^2)*r*3; +p_g=p_fi-s_loss-i_sq_r2; +r_loss=p_g-p; +disp(sprintf("(b) The total rotor loss at full load is %f W",r_loss)); + +//solution (c) +o_loss=r_loss-loss; +disp(sprintf("(c) The total rotor ohmic loss at full load is %f W",o_loss)); + +//solution (d) +s_fl=o_loss/p_g; //full load slip +N_s=1500; +N_r=N_s*(1-s_fl); +disp(sprintf("(d) The full load speed is %f rpm",N_r)); + +//solution (e) +w=(2*%pi*N_s)/60; +T_e=p_g/w; +disp(sprintf("(e) The internal torque is %f N-m",T_e)); +T_sh=p/(w*(1-s_fl)); +disp(sprintf(" The shaft torque is %f N-m",T_sh)); +eff=p/p_fi; +disp(sprintf(" The motor efficiency is %f %%",eff*100)); + +//The answers may be slightly different due to precision of floating point numbers + +//END diff --git a/1445/CH10/EX10.15/ch10_ex_15.sce b/1445/CH10/EX10.15/ch10_ex_15.sce new file mode 100644 index 000000000..8797d77be --- /dev/null +++ b/1445/CH10/EX10.15/ch10_ex_15.sce @@ -0,0 +1,32 @@ +//CHAPTER 10- THREE-PHASE INDUCTION MACHINES +//Example 15 + +disp("CHAPTER 10"); +disp("EXAMPLE 15"); + +//VARIABLE INITIALIZATION +P=4; //number of poles +f_s=50; //in Hertz +f_l=20; //in Hertz + +//SOLUTION + +//solution (a) +N1=(120*f_s)/P; //speed of rotor field w.r.t. stator structure +N2=(120*f_l)/P; //speed of rotor field w.r.t. rotor structure +N_r1=N1-N2; +N_r2=N1+N2; +disp("(a) The prime mover should should drive the rotor at two speeds-"); +disp(sprintf("At %d rpm in the direction of stator field",N_r1)); +disp(sprintf("At %d rpm against the direction of stator field",N_r2)); + +//solution (b) +s1=(N1-N_r1)/N1; +s2=(N1-N_r2)/N1; +ratio=s1/s2; //all other parameters in the expressions of the two voltages are equal +disp(sprintf("(b) The ratio of the two voltages at the two speeds is %d",ratio)); + +//solution (c) +disp("(c) The poles sequence of -3Φ rotor voltage do not remain the same"); + +//END diff --git a/1445/CH10/EX10.16/ch10_ex_16.sce b/1445/CH10/EX10.16/ch10_ex_16.sce new file mode 100644 index 000000000..f2fd39150 --- /dev/null +++ b/1445/CH10/EX10.16/ch10_ex_16.sce @@ -0,0 +1,50 @@ +//CHAPTER 10- THREE-PHASE INDUCTION MACHINES +//Example 16 + +disp("CHAPTER 10"); +disp("EXAMPLE 16"); + +//VARIABLE INITIALIZATION +ratio1=1.5; //ratio of T_est and T_efl +ratio2=2.5; //ratio of T_em and T_efl + +//SOLUTION +s=1; + +//solution (a) +//directly solving the quadratic equation +a=1; +b=-3.333; +c=1; +D=(b)^2-(4*a*c); //discriminant +sm1=(-b+sqrt(D))/(2*a); +sm2=(-b-sqrt(D))/(2*a); +if(sm1<=0 & sm2<=0) then +disp("The value of the slip at maximum torque is not valid"); +else if(sm1>0 & sm1<1) +disp(sprintf("The slip at maximum torque is %f",sm1)); +else if(sm2>0 & sm2<1) +disp(sprintf("The slip at maximum torque is %f",sm2)); +end; + +//solution (b) +//directly solving the quadratic equation +a=1; +b=-1.665; +c=0.111; +D=(b)^2-(4*a*c); +ans1=(-b+sqrt(D))/(2*a); +ans2=(-b-sqrt(D))/(2*a); +if(ans1>0 & ans1<1) +disp(sprintf("The full load slip is %f",ans1)); +sfl=ans1; +else if(ans2>0 & ans2<1) +disp(sprintf("The full load slip is %f",ans2)); +sfl=ans2; +end; + +//solution (c) +I=sqrt(ratio1/sfl); +disp(sprintf("The rotor current at the starting in terms of full load current is %f A",I)); + +//END diff --git a/1445/CH10/EX10.2/ch10_ex_2.sce b/1445/CH10/EX10.2/ch10_ex_2.sce new file mode 100644 index 000000000..220675f0f --- /dev/null +++ b/1445/CH10/EX10.2/ch10_ex_2.sce @@ -0,0 +1,80 @@ +//CHAPTER 10- THREE-PHASE INDUCTION MACHINES +//Example 2 + +disp("CHAPTER 10"); +disp("EXAMPLE 2"); + +//VARIABLE INITIALIZATION +P=6; //number of poles +f1=60; //frequency in Hertz +N_r1=1140; //in rpm + +//SOLUTION +N_s=(120*f1)/P; +s1=(N_s-N_r1)/N_s; //slip at full load + +//solution (a) +N_r2=0; +s2=(N_s-N_r2)/N_s; +disp(sprintf("(a) At standstill, the slip is %f %%",s2*100)); +if(s2>1) +disp("Since the slip is greater than 100%, the motor operates as brake"); +end; +if(s2<0) +disp("Since the slip is negative, the motor operates as generator"); +end; +f2=s2*f1; +disp(sprintf("And the frequency is %d Hz",f2)); +if(f2<0) +disp("Since frequency is negative, phase sequence of voltage induced in rotor winding is reversed"); +end; + +//solution (b) +N_r3=500; +s3=(N_s-N_r3)/N_s; +disp(sprintf("(b) At %d rpm, the slip is %f %%",N_r3,s3*100)); +if(s3>1) +disp("Since the slip is greater than 100%, the motor operates as brake"); +end; +if(s3<0) +disp("Since the slip is negative, the motor operates as generator"); +end; +f3=s3*f1; +disp(sprintf("And the frequency is %d Hz",f3)); +if(f3<0) +disp("Since frequency is negative, phase sequence of voltage induced in rotor winding is reversed"); +end; + +//solution (c) +N_r4=500; +s4=(N_s+N_r4)/N_s; //as motor runs in opposite direction +disp(sprintf("(c) At %d rpm, the slip is %f %%",N_r4,s4*100)); +if(s4>1) +disp("Since the slip is greater than 100%, the motor operates as brake"); +end; +if(s4<0) +disp("Since the slip is negative, the motor operates as generator"); +end; +f4=s4*f1; +disp(sprintf("And the frequency is %d Hz",f4)); +if(f4<0) +disp("Since frequency is negative, phase sequence of voltage induced in rotor winding is reversed"); +end; + +//solution (d) +N_r5=2000; +s5=(N_s-N_r5)/N_s; +disp(sprintf("(d) At %d rpm, the slip is %f %%",N_r5,s5*100)); +if(s5>1) +disp("Since the slip is greater than 100%, the motor operates as brake"); +end; +if(s5<0) +disp("Since the slip is negative, the motor operates as generator"); +end; +f5=s5*f1; +disp(sprintf("And the frequency is %d Hz",f5)); +if(f5<0) +disp("Since frequency is negative, phase sequence of voltage induced in rotor winding is reversed"); +end; + +//END diff --git a/1445/CH10/EX10.3/ch10_ex_3.sce b/1445/CH10/EX10.3/ch10_ex_3.sce new file mode 100644 index 000000000..11806edbe --- /dev/null +++ b/1445/CH10/EX10.3/ch10_ex_3.sce @@ -0,0 +1,57 @@ +//CHAPTER 10- THREE-PHASE INDUCTION MACHINES +//Example 3 + +disp("CHAPTER 10"); +disp("EXAMPLE 3"); + +//VARIABLE INITIALIZATION +N_r=1140; //full load speed in rpm +f=60; //in Hz + +//SOLUTION + +//solution (i) +P=(120*f)/N_r; +P=round(P); +disp(sprintf("(i) The number of poles is %d",P)); + +//solution (ii) +N_s=(120*f)/P; +s=(N_s-N_r)/N_s; +disp(sprintf("(ii) The slip at full load is %d %%",s*100)); + +//solution (iii) +f_r=s*f; +disp(sprintf("(iii) The frequency of the rotor voltge is %d Hz",f_r)); + +//solution (iv) +N1=(120*f_r)/P; //speed of rotor field w.r.t stator +N1=round(N1); +disp(sprintf("(iv) The speed of rotor field w.r.t rotor is %d rpm",N1)); + +//solution (v) +N2=N_r+N1; //speed of stator field w.r.t stator field +N3=N_s-N2; //speed of rotor field w.r.t stator field +disp(sprintf("(v) The speed of rotor field w.r.t stator field is %d rpm",N3)); +disp("Hence, the rotor field is stationary w.r.t stator field"); + +//solution (vi) +ratio=10/100; //10% slip +N_r=N_s*(1-ratio); +N_r=round(N_r); +disp(sprintf("(vi) The speed of rotor at 10%% slip is %d rpm",N_r)); +s1=(N_s-N_r)/N_s; +fr=s1*f; +disp(sprintf(" The rotor frequency at this speed is %f Hz",fr)); + +//solution (vii) +v=230; +ratio1=1/0.5; +E_rotor=v*(1/ratio1); +E_rotor_dash=ratio*E_rotor; +disp(sprintf("(vii) The rotor induced emf is %f V",E_rotor_dash)); + +//END + + + diff --git a/1445/CH10/EX10.4/ch10_ex_4.sce b/1445/CH10/EX10.4/ch10_ex_4.sce new file mode 100644 index 000000000..e81b21b5b --- /dev/null +++ b/1445/CH10/EX10.4/ch10_ex_4.sce @@ -0,0 +1,29 @@ +//CHAPTER 10- THREE-PHASE INDUCTION MACHINES +//Example 4 + +disp("CHAPTER 10"); +disp("EXAMPLE 4"); + +//VARIABLE INITIALIZATION +r2=0.2; //in Ohms +X2=2; //in Ohms + +//SOLUTION +s_m=r2/X2; + +//solution (a) +s=1; +ratio1=2/((s/s_m)+(s_m/s)); //ratio of T_starting and T_max +ratio2=2*ratio1; //ratio of T_starting and T_full-load (T_max=2*T_full-load) +disp(sprintf("(a) If the motor is started by direct-on-line starter, the ratio of starting torque to full load torque is %f",ratio2)); + +//solution (b) +ratio3=(1/3)*ratio2; //In star-delta starter, T_starting=(1/3)*T_starting_of_DOL +disp(sprintf("(b) If the motor is started by star-delta starter, the ratio of starting torque to full load torque is %f",ratio3)); + +//solution (c) +ratio4=0.7*2*ratio2; //due to 70% tapping +disp(sprintf("(c) If the motor is started by auto-transformer, the ratio of starting torque to full load torque is %f",ratio4)); + +//END + diff --git a/1445/CH10/EX10.5/ch10_ex_5.sce b/1445/CH10/EX10.5/ch10_ex_5.sce new file mode 100644 index 000000000..f7a59dae9 --- /dev/null +++ b/1445/CH10/EX10.5/ch10_ex_5.sce @@ -0,0 +1,20 @@ +//CHAPTER 10- THREE-PHASE INDUCTION MACHINES +//Example 5 + +disp("CHAPTER 10"); +disp("EXAMPLE 5"); + +//VARIABLE INITIALIZATION +P1=12; //number of poles of alternator +N_s1=500; //synchronous speed of alternator in rpm +P2=8; //number of poles of motor +s=0.03; //slip of the motor + +//SOLUTION +f=(N_s1*P1)/120; +N_s2=(120*f)/P2; +N_r=N_s2*(1-s); +N_r=round(N_r); //to round off the value +disp(sprintf("The speed of the motor is %d rpm",N_r)); + +//END diff --git a/1445/CH10/EX10.6/ch10_ex_6.sce b/1445/CH10/EX10.6/ch10_ex_6.sce new file mode 100644 index 000000000..d32ab7468 --- /dev/null +++ b/1445/CH10/EX10.6/ch10_ex_6.sce @@ -0,0 +1,26 @@ +//CHAPTER 10- THREE-PHASE INDUCTION MACHINES +//Example 6 + +disp("CHAPTER 10"); +disp("EXAMPLE 6"); + +//VARIABLE INITIALIZATION +P=4; //number of poles +f_r=2; //rotor frequency in Hertz +f_s=50; //stator frequency in Hertz +v=400; //in Volts +ratio=1/0.5; //stator to rotor turn ratio + +//SOLUTION +s=f_r/f_s; +N_s=(120*f_s)/P; +N_r=N_s*(1-s); +N_r=round(N_r); +disp(sprintf("The speed of the motor is %d rpm",N_r)); +E_s=v/sqrt(3); +E_r=E_s*(1/ratio); +E_r_dash=s*E_r; +disp(sprintf("The rotor induced emf above 2 Hz is %f V",E_r_dash)); + +//END + diff --git a/1445/CH10/EX10.7/ch10_ex_7.sce b/1445/CH10/EX10.7/ch10_ex_7.sce new file mode 100644 index 000000000..0199f014c --- /dev/null +++ b/1445/CH10/EX10.7/ch10_ex_7.sce @@ -0,0 +1,44 @@ +//CHAPTER 10- THREE-PHASE INDUCTION MACHINES +//Example 7 + +disp("CHAPTER 10"); +disp("EXAMPLE 7"); + +//VARIABLE INITIALIZATION +P=4; //number of poles +f=50; //in Hz +r2=0.1; //rotor resistance in Ohms +X2=2; //standstill reactance in Ohms +E1=100; //induced emf between slip ring in Volts +N_r=1460; //full load speed in rpm + +//SOLUTION + +//solution (i) +N_s=(120*f)/P; +s_fl=(N_s-N_r)/N_s; +disp(sprintf("(i) The slip at full load is %f %%",s_fl*100)); +s_m=r2/X2; +disp(sprintf("The slip at which maximum torque occurs is %f %%",s_m*100)); + +//solution (ii) +E2=E1/sqrt(3); +disp(sprintf("(ii) The emf induced in rotor per phase is %f V",E2)); + +//solution (iii) +X2_dash=s_fl*X2; +disp(sprintf("(iii) The rotor reactance per phase is %f Ω",X2_dash)); + +//solution (iv) +z=sqrt((r2^2)+(X2_dash)^2); +I2=(s_fl*E2)/z; +disp(sprintf("(iv) The rotor current is %f A",I2)); + +//solution (v) +pow_fact_r=r2/z; +disp(sprintf("(v) The rotor power factor is %f (lagging)",pow_fact_r)); + +//END + + + diff --git a/1445/CH10/EX10.8/ch10_ex_8.sce b/1445/CH10/EX10.8/ch10_ex_8.sce new file mode 100644 index 000000000..1ab32dcaa --- /dev/null +++ b/1445/CH10/EX10.8/ch10_ex_8.sce @@ -0,0 +1,37 @@ +//CHAPTER 10- THREE-PHASE INDUCTION MACHINES +//Example 8 + +disp("CHAPTER 10"); +disp("EXAMPLE 8"); + +//VARIABLE INITIALIZATION +N_s=1200; //in rpm +p_in=80; //in kW +loss=5; //copper and iron losses in kW +f_loss=2; //friction and windage loss in kW +N=1152; //in rpm + +//SOLUTION + +//solution (a) +p_rotor=p_in-loss; +disp(sprintf("(a) The active power transmitted to rotor is %d kW",p_rotor)); + +//solution (b) +s=(N_s-N)/N_s; +cu_loss=s*p_rotor; +disp(sprintf("(b) The rotor copper loss is %d kW",cu_loss)); + +//solution (c) +p_m=(1-s)*p_rotor; +disp(sprintf("(c) The mechanical power developed is %d kW",p_m)); + +//solution (d) +p_shaft=p_m-f_loss; //output power +disp(sprintf("(d) The mechanical power developed to load is %d kW",p_shaft)); + +//solution (e) +eff=p_shaft/p_in; +disp(sprintf("(e) The efficiency of the motor is %f %%",eff*100)); + +//END diff --git a/1445/CH10/EX10.9/ch10_ex_9.sce b/1445/CH10/EX10.9/ch10_ex_9.sce new file mode 100644 index 000000000..83153991b --- /dev/null +++ b/1445/CH10/EX10.9/ch10_ex_9.sce @@ -0,0 +1,41 @@ +//CHAPTER 10- THREE-PHASE INDUCTION MACHINES +//Example 9 + +disp("CHAPTER 10"); +disp("EXAMPLE 9"); + +//VARIABLE INITIALIZATION +p=150*1000; //in Watts +v=3000; //in Volts +f=50; //in Hertz +P=6; //number of poles +ratio=3.6; //ratio of stator turn to rotor turn +r2=0.1; //rotor resistance in Ohms +L=3.61/1000; //leakage inductance per phase in Henry + +//SOLUTION + +//solution (a) +X2=2*%pi*f*L; +E1=v/sqrt(3); +E2=E1*(1/ratio); +z1=sqrt((r2^2)+(X2^2)); +I2=E2/z1; //rotor current +I_s=I2/ratio; //stator current +N_s=(120*f)/P; +w=(2*%pi*N_s)/60; +T_s1=(3*E2^2*r2)/(w*z1^2); +disp(sprintf("(a) The starting current is %f A and torque is %f N-m",I_s,T_s1)); + +//solution (b) +I_s1=30; +I_r=ratio*I_s1; +r=sqrt(((E2/I_r)^2)-(X2^2)); +r_ext=r-r2; +z2=sqrt((r_ext^2)+(X2^2)); +T_s2=(3*E2^2*r)/(w*z2^2); +disp(sprintf("(b) The external resistance is %f Ω and torque is %f N-m",r_ext,T_s2)); + +//There answers are different due to precision of floating point numbers + +//END diff --git a/1445/CH11/EX11.1/ch11_ex_1.sce b/1445/CH11/EX11.1/ch11_ex_1.sce new file mode 100644 index 000000000..3b32400c1 --- /dev/null +++ b/1445/CH11/EX11.1/ch11_ex_1.sce @@ -0,0 +1,26 @@ +//CHAPTER 11- SINGLE PHASE INDUCTION MOTOR +//Examle 1 + +disp("CHAPTER 11"); +disp("EXAMPLE 1"); + +//VARIABLE INITIALIZATION +P=6; //number of poles +f=50; //frequency in Hz +pow_fd=160; //gross power absorbed by forward field in W +pow_bd=20; //gross power absorbed by backward field in W +N_r=950; //rotor speed in rpm +loss=75; //no load frictional loss in W + +//SOLUTION +P_g=pow_fd-pow_bd; //air-gap power +N_s=(120*f)/P; //synchronous speed +S=(N_s-N_r)/N_s; //slip +P_m=P_g*(1-S); //mechanical power +P_o=P_m-loss; //output or shaft power +w=(2*%pi*N_r)/60; +T=P_o/w; +disp(sprintf("The shaft torque is %f N-m",T)); + +//END + diff --git a/1445/CH11/EX11.2/ch11_ex_2.sce b/1445/CH11/EX11.2/ch11_ex_2.sce new file mode 100644 index 000000000..c097fb6a4 --- /dev/null +++ b/1445/CH11/EX11.2/ch11_ex_2.sce @@ -0,0 +1,33 @@ +//CHAPTER 11- SINGLE PHASE INDUCTION MOTOR +//Examle 2 + +disp("CHAPTER 11"); +disp("EXAMPLE 2"); + +//VARIABLE INITIALIZATION +P=4; //numbre of poles +f=60; //frequency on Hz +N_r=1710; //rotor speed in rpm +r=12.5; //in ohms + +//SOLUTION + +N_s=(120*f)/P; + +//solution (a) +disp("Solution (a)"); +S_f=(N_s-N_r)/N_s; +disp(sprintf("The slip in forward direction is %f %%",S_f*100)); +r_f=0.5*(r/S_f); +disp(sprintf("The forward effective rotor resistance is %f Ω",r_f)); + +//solution (b) +disp("Solution (b)"); +S_b=(N_s+N_r)/N_s; +disp(sprintf("The slip in backward direction is %f %%",S_b*100)); +r_b=0.5*(r/S_b); +disp(sprintf("The backward effective rotor resistance is %f Ω",r_b)); + +//END + + diff --git a/1445/CH2/EX2.1/ch2_ex_1.sce b/1445/CH2/EX2.1/ch2_ex_1.sce new file mode 100644 index 000000000..2dbc6b6a2 --- /dev/null +++ b/1445/CH2/EX2.1/ch2_ex_1.sce @@ -0,0 +1,21 @@ +//CHAPTER 2- STEADY-STATE ANALYSIS OF SINGLE-PHASE A.C. CIRCUIT +//Example 1 + +disp("CHAPTER 2"); +disp("EXAMPLE 1"); + +//SOLUTION + +//average value +v_av=(integrate('sin(x)','x',0,%pi))/(2*%pi); + +//rms value +v_rms=(integrate('sin(x)^2','x',0,%pi))/(2*%pi); +v_rms=sqrt(v_rms); + +ff=v_rms/v_av; +disp(sprintf("The form factor is %f",ff)); + +//END + + diff --git a/1445/CH2/EX2.10/ch2_ex_10.sce b/1445/CH2/EX2.10/ch2_ex_10.sce new file mode 100644 index 000000000..3d34c9759 --- /dev/null +++ b/1445/CH2/EX2.10/ch2_ex_10.sce @@ -0,0 +1,27 @@ +//CHAPTER 2- STEADY-STATE ANALYSIS OF SINGLE-PHASE A.C. CIRCUIT +//Example 10 + +disp("CHAPTER 2"); +disp("EXAMPLE 10"); + +//VARIABLE INITIALIZATION +v=230; //in Volts +z1=3+(%i*4); //impedance in rectangular form in Ohms +z2=6+(%i*8); //impedance in rectangular form in Ohms + +//SOLUTION +function [z,angle]=rect2pol(x,y); +z=sqrt((x^2)+(y^2)); //z is impedance & the resultant of x and y +angle=atan(y/x)*(180/%pi); //to convert the angle from radians to degrees +endfunction; + +[z1,angle1]=rect2pol(3,4); +[z2,angle2]=rect2pol(6,8); + +z=(z1*z2)/(z1+z2); +I=v/z; +angle=-angle1; //as angle1=angle2 +p=v*I*cos(angle*%pi/180); //to convert the angle from degrees to radians +disp(sprintf("The power drawn from the source is %f kW",p/1000)); + +//END diff --git a/1445/CH2/EX2.11/ch2_ex_11.sce b/1445/CH2/EX2.11/ch2_ex_11.sce new file mode 100644 index 000000000..fc8e0b84c --- /dev/null +++ b/1445/CH2/EX2.11/ch2_ex_11.sce @@ -0,0 +1,26 @@ +//CHAPTER 2- STEADY-STATE ANALYSIS OF SINGLE-PHASE A.C. CIRCUIT +//Example 11 + +disp("CHAPTER 2"); +disp("EXAMPLE 11"); + +//VARIABLE INITIALIZATION +vdc=100; //DC voltage in Volts +vac=100; //AC voltage in Volts +f=50; //in Hertz +I1=10; //in Amperes +I2=5; //in Amperes + +//SOLUTION +r=vdc/I1; +z=vac/I2; +xl=sqrt((z^2)-(r^2)); +L=xl/(2*%pi*f); +pf=r/z; +disp(sprintf("The inductance of the coil is %f H",L)); +disp(sprintf("The power factor of the coil is %f (lagging)",pf)); + +//END + + + diff --git a/1445/CH2/EX2.13/ch2_ex_13.sce b/1445/CH2/EX2.13/ch2_ex_13.sce new file mode 100644 index 000000000..cf3c2766c --- /dev/null +++ b/1445/CH2/EX2.13/ch2_ex_13.sce @@ -0,0 +1,37 @@ +//CHAPTER 2- STEADY-STATE ANALYSIS OF SINGLE-PHASE A.C. CIRCUIT +//Example 13 + +disp("CHAPTER 2"); +disp("EXAMPLE 13"); + +//VARIABLE INITIALIZATION +z1=1+(%i*1); //impedance in rectangular form in Ohms +v=20*sqrt(2); //amplitude of rms value of voltage in Volts + +//SOLUTION +function [z,angle]=rect2pol(x,y); +z=sqrt((x^2)+(y^2)); //z is impedance & the resultant of x and y +angle=atan(y/x)*(180/%pi); //to convert the angle from radians to degrees +endfunction; + +//solution (i) +[z,angle]=rect2pol(1,1); +v=v/sqrt(2); +angle_v=100; //v=(20/sqrt(2))*sin(ωt+100) +I=v/z; //RMS value of current +angle_I=angle_v-angle; +Im=I*sqrt(2); +disp(sprintf("(i) The current in load is i = %d sin(ωt+%d) A",Im,angle_I)); + +//solution (ii) +pr=(v/sqrt(2))*(I*sqrt(2))*cos(angle*(%pi/180)); +disp(sprintf("(ii) The real power is %f W",pr)); + +//solution (iii) +pa=(v/sqrt(2))*(I*sqrt(2)); +disp(sprintf("(ii) The apparent power is %f VAR",pa)); + +//END + + + diff --git a/1445/CH2/EX2.14/ch2_ex_14.sce b/1445/CH2/EX2.14/ch2_ex_14.sce new file mode 100644 index 000000000..2d3da2eff --- /dev/null +++ b/1445/CH2/EX2.14/ch2_ex_14.sce @@ -0,0 +1,38 @@ +//CHAPTER 2- STEADY-STATE ANALYSIS OF SINGLE-PHASE A.C. CIRCUIT +//Example 14 + +disp("CHAPTER 2"); +disp("EXAMPLE 14"); + +//VARIABLE INITIALIZATION +v=100; //amplitude of rms value of voltage in Volts +I=20; //amplitude of rms value of current in Amperes + +//SOLUTION + +//solution(i) +w=314; //angular frequency in radian/sec +f=w/(2*%pi); //as w=2*(%pi)*f +f=ceil(f); +disp(sprintf("(i) The frequency is %d Hz",f)); + +//solution (ii) +E=v/sqrt(2); +angle_E=-45; //in degrees +I=I/sqrt(2); +angle_I=-90; //in degrees +z=E/I; +angle=angle_E-angle_I; +disp(sprintf("(ii) The impedance is %d Ω, %d degrees",z,angle)); + +function [x,y]=pol2rect(mag,angle1); +x=mag*cos(angle1*(%pi/180)); //to convert the angle from degrees to radian +y=mag*sin(angle1*(%pi/180)); +endfunction; +[r,x]=pol2rect(z,angle); +L=x/(2*%pi*f); +disp(sprintf(" The inductance is %f H",L)); + +//END + + diff --git a/1445/CH2/EX2.15/ch2_ex_15.sce b/1445/CH2/EX2.15/ch2_ex_15.sce new file mode 100644 index 000000000..09182c5ed --- /dev/null +++ b/1445/CH2/EX2.15/ch2_ex_15.sce @@ -0,0 +1,39 @@ +//CHAPTER 2- STEADY-STATE ANALYSIS OF SINGLE-PHASE A.C. CIRCUIT +//Example 15 + +disp("CHAPTER 2"); +disp("EXAMPLE 15"); + +//VARIABLE INITIALIZATION +I=2; //in Amperes +angle_I=60; //in degrees +v1=200; //in Volts +f=50; //in Hertz + +//SOLUTION +z1=v1/I; +disp(sprintf("The impedance is %d Ω, %d degrees",z1,angle_I)); +//function to convert from polar form to rectangular form +function [x,y]=pol2rect(mag,angle); +x=mag*cos(angle*(%pi/180)); //to convert the angle from degrees to radians +y=mag*sin(angle*(%pi/180)); +endfunction; +[r,x1]=pol2rect(z1,angle_I); +disp(sprintf("The resistance is %d Ω",r)); +L=x1/(2*%pi*f); +disp(sprintf("The inductance is %f H",L)); + +v2=100; +f2=25; +x2=2*%pi*f2*L; +z2=sqrt((r^2)+(x2^2)); +angle=atan(x2/r); +I1=v2/z2; +p=v2*I1*cos(-angle); +disp(sprintf("The power consumed is %f W",p)); + +//Answer may be slightly different due to precision of floating point numbers + +//END + + diff --git a/1445/CH2/EX2.16/ch2_ex_16.sce b/1445/CH2/EX2.16/ch2_ex_16.sce new file mode 100644 index 000000000..c0acf18c5 --- /dev/null +++ b/1445/CH2/EX2.16/ch2_ex_16.sce @@ -0,0 +1,80 @@ +//CHAPTER 2- STEADY-STATE ANALYSIS OF SINGLE-PHASE A.C. CIRCUIT +//Example 16 + +disp("CHAPTER 2"); +disp("EXAMPLE 16"); + +//VARIABLE INITIALIZATION +r1=5; //in Ohms +r2=10; //in Ohms +L1=0.04; //in Henry +L2=0.05; //in Henry +v=200; //in Volts +f=50; //in Hertz + +//SOLUTION + +//solution (i) +xl1=L1*(2*%pi*f); +xl2=L2*(2*%pi*f); +z1=r1+(%i*xl1); +z2=r2+(%i*xl2); +//function to convert from rectangular form to polar form +function [z,angle]=rect2pol(x,y); +z=sqrt((x^2)+(y^2)); //z is impedance & the resultant of x and y +angle=atan(y/x)*(180/%pi); //to convert the angle from radians to degrees +endfunction; +[z1,angle1]=rect2pol(r1,xl1); +[z2,angle2]=rect2pol(r2,xl2); +Y1=1/z1; //admittance +Y2=1/z2; +//function to convert from polar form to rectangular form +function [x,y]=pol2rect(mag,angle); +x=mag*cos(angle*(%pi/180)); //to convert the angle from degrees to radians +y=mag*sin(angle*(%pi/180)); +endfunction; +[G1,B1]=pol2rect(Y1,angle1); +[G2,B2]=pol2rect(Y2,angle2); +disp("......................................"); +disp("SOLUTION (i)"); +disp(sprintf("Conductance of 1st coil is %f S",G1)); +disp(sprintf("Conductance of 2nd coil is %f S",G2)); +disp(" "); +disp(sprintf("Susceptance of 1st coil is %f S",B1)); +disp(sprintf("Susceptance of 2nd coil is %f S",B2)); +disp(" "); +disp(sprintf("Admittance of 1st coil is %f S",Y1)); +disp(sprintf("Admittance of 2nd coil is %f S",Y2)); +disp("......................................"); + +//solution (ii) +G=G1+G2; +B=B1+B2; +[Y,angle]=rect2pol(G,B); +I=v*Y; +pf=cos((angle)*(%pi/180)); +disp("SOLUTION (ii)"); +disp(sprintf("Total current drawn by the circuit is %f A, %f degrees",I,-angle)); +disp(sprintf("Power factor of the circuit is %f (lagging)",pf)); +disp("......................................"); + +//solution (iii) +p=v*I*pf; +disp("SOLUTION (iii)"); +disp(sprintf("Power absorbed by the circuit is %f kW",p/1000)); +disp("......................................"); + +//solution (iv) +z=v/I; +function [x,y]=pol2rect(mag,angle); +x=mag*cos(angle*(%pi/180)); //to convert the angle from degrees to radians +y=mag*sin(angle*(%pi/180)); +endfunction; +[r,x]=pol2rect(z,angle); +L=x/(2*%pi*f); +disp("SOLUTION (iv)"); +disp(sprintf("Resitance of single coil is %f Ω",r)); +disp(sprintf("Inductance of single coil is %f H",L)); +disp("......................................"); + +//END diff --git a/1445/CH2/EX2.17/ch2_ex_17.sce b/1445/CH2/EX2.17/ch2_ex_17.sce new file mode 100644 index 000000000..ba82080a2 --- /dev/null +++ b/1445/CH2/EX2.17/ch2_ex_17.sce @@ -0,0 +1,51 @@ +//CHAPTER 2- STEADY-STATE ANALYSIS OF SINGLE-PHASE A.C. CIRCUIT +//Example 17 + +disp("CHAPTER 2"); +disp("EXAMPLE 17"); + +//VARIABLE INITIALIZATION +e=141.4; //in Volts +E=141.4/sqrt(2); //in Volts +angle_E=0; //in degrees +//i(t)=(14.14<0)+(7.07<120) +i1=14.14; //in Amperes +angle_i1=0; //in degrees +i2=7.07; //in Amperes +angle_i2=120; //in degrees + +//SOLUTION +//function to convert from polar form to rectangular form +function [x,y]=pol2rect(mag,angle); +x=mag*cos(angle*(%pi/180)); //to convert the angle from degrees to radians +y=mag*sin(angle*(%pi/180)); +endfunction; +[i1_x,i1_y]=pol2rect(i1,angle_i1); +[i2_x,i2_y]=pol2rect(i2,angle_i2); +i=(i1_x+i2_x)+(%i*(i1_y+i2_y)); +//function to convert from rectangular form to polar form +function [mag,angle]=rect2pol(x,y); +mag=sqrt((x^2)+(y^2)); +angle=atan(y/x)*(180/%pi); //to convert the angle from radians to degrees +endfunction; +[I,angle_I]=rect2pol((i1_x+i2_x),(i1_y+i2_y)); +I=I/sqrt(2); + +//solution (i) +z=E/I; +angle_z=angle_E-angle_I; +[r,xc]=pol2rect(z,angle_z); +f=50; +c=1/(2*%pi*f*(-xc)); +disp(sprintf("(i) The value of resistance is %f Ω",r)); +disp(sprintf(" The value of capacitance is %f μF",c*10^6)); + +//solution (ii) +pf=cos(angle_z*(%pi/180)); +disp(sprintf("(ii) The power factor is %f ",pf)); + +//solution (iii) +p=E*I*pf; +disp(sprintf("(iii) The power absorbed by the source is %f W",p)); + +//END diff --git a/1445/CH2/EX2.18/ch2_ex_18.sce b/1445/CH2/EX2.18/ch2_ex_18.sce new file mode 100644 index 000000000..1ccb56cde --- /dev/null +++ b/1445/CH2/EX2.18/ch2_ex_18.sce @@ -0,0 +1,36 @@ +//CHAPTER 2- STEADY-STATE ANALYSIS OF SINGLE-PHASE A.C. CIRCUIT +//Example 18 + +disp("CHAPTER 2"); +disp("EXAMPLE 18"); + +//VARIABLE INITIALIZATION +r=10; //in Ohms +v=200; //in Volts +f=50; //in Hertz +I=10; //in Amperes +rc=2; //resistance of coil in Ohms + +//SOLUTION + +//solution (i) +z=v/I; +xl=sqrt((z^2)-((r+rc)^2)); +L=xl/(2*%pi*f); +disp(sprintf("(i) The inductance of the coil is %f H",L)); + +//solution (ii) +pf=(r+rc)/z; +disp(sprintf("(ii) The power factor is %f",pf)); + +//solution (iii) +vl=I*(rc+(%i*xl)); +//function to convert from rectangular form to polar form +function [mag,angle]=rect2pol(x,y); +mag=sqrt((x^2)+(y^2)); +angle=atan(y/x)*(180/%pi); //to convert the angle from radians to degrees +endfunction; +[vl,angle_vl]=rect2pol(real(vl),imag(vl)); +disp(sprintf("(iii) The voltage across the coil is %f V, %f degrees",vl,angle_vl)); + +//END diff --git a/1445/CH2/EX2.19/ch2_ex_19.sce b/1445/CH2/EX2.19/ch2_ex_19.sce new file mode 100644 index 000000000..dbac96db8 --- /dev/null +++ b/1445/CH2/EX2.19/ch2_ex_19.sce @@ -0,0 +1,50 @@ +//CHAPTER 2- STEADY-STATE ANALYSIS OF SINGLE-PHASE A.C. CIRCUIT +//Example 19 + +disp("CHAPTER 2"); +disp("EXAMPLE 19"); + +//VARIABLE INITIALIZATION +z1=4+(%i*3); //impedance in rectangular form in Ohms +z2=6-(%i*8); //impedance in rectangular form in Ohms +z3=1.6+(%i*7.2); //impedance in rectangular form in Ohms +v=100 //in volts +//SOLUTION + +//solution (i) +//Admittance of each parallel branch Y1 and Y2 +Y1=1/z1; +Y2=1/z2; +disp("SOLUTION (i)"); +disp(sprintf("Admittance parallel branch 1 is %3f %3fj S", real(Y1), imag(Y1))); +disp(sprintf("Admittance parallel branch 2 is %3f+%3fj S", real(Y2), imag(Y2))); +disp(" "); + +//solution (ii) +//Total circuit impedance Z=(Z1||Z2)+Z3 +z=z3+(z2*z1)/(z1+z2) +disp("SOLUTION (ii)"); +disp(sprintf("Total circuit impedance is %3f %3fj S", real(z), imag(z))); +//solution in the book is wrong as there is a total mistake in imaginery part 7.2+0.798=11.598 +// +//solution (iii) +//Supply current I=V/Z +i=v/z; +function [z,angle]=rect2pol(x,y); +z0=sqrt((x^2)+(y^2)); //z is impedance & the resultant of x and y +angle=atan(y/x)*(180/%pi); //to convert the angle from radians to degrees +endfunction; +[z, angle]=rect2pol(real(i), imag(i)); +//disp(sprintf("%f, %f",z,angle)); +//disp(sprintf("%f, %f",real(i), imag(i))); +pf=cos(angle*%pi/180); + +disp("SOLUTION (iii)"); +disp(sprintf("The power factor is %f",pf)); +//solution (iv) +//Power supplied by source = VI cosΦ or I^2 . R +P=v*real(i)*pf; + +disp("SOLUTION (iv)"); +disp(sprintf("The power supplied by source is %f watt",P)); +//END diff --git a/1445/CH2/EX2.20/ch2_ex_20.sce b/1445/CH2/EX2.20/ch2_ex_20.sce new file mode 100644 index 000000000..79c18d219 --- /dev/null +++ b/1445/CH2/EX2.20/ch2_ex_20.sce @@ -0,0 +1,39 @@ +//CHAPTER 2- STEADY-STATE ANALYSIS OF SINGLE-PHASE A.C. CIRCUIT +//Example 20 // read it as example 19 in the book on page 2.72 + +disp("CHAPTER 2"); +disp("EXAMPLE 20"); + +//VARIABLE INITIALIZATION +L=0.5 //in Henry +C=5 //in mf, multiply by 10^-6 to convert to f +R=25 //in ohms +//SOLUTION + +//solution (i) +//Resonance frequency f = (1/2π)sqrt((1/LC)-R^2/L^2) +fr=(1/(2*%pi))*sqrt((1/(L*C*10^-6))-(R^2)/(L^2)); +disp("SOLUTION (i)"); +disp(sprintf("For parallel circuit,Resonant frquency is %3f Hz", fr)); +disp(" "); + +//solution (ii) +//Total circuit impedance at resonance is Z=L/RC +z=L/(R*C*10^-6); +disp("SOLUTION (ii)"); +disp(sprintf("Total impedence at resonance is %3f kΩ", z/1000)); +// +//solution (iii) +//Bandwidth (f2-f1)=R/(2.π.L) +bw=R/(2*%pi*L); +disp("SOLUTION (iii)"); +disp(sprintf("Bandwidth is %3f Hz", bw)); +// +//solution (iv) +//Quality factor Q=1/R.sqrt(L/C) +Q=(1/R)*sqrt(L/(C*10^-6)); +disp("SOLUTION (iv)"); +disp(sprintf("Quality Factor is %3f", Q)); +//solution in the book is wrong as there is a total mistake in imaginery part 7.2+0.798=11.598 +// +//END diff --git a/1445/CH2/EX2.22/ch2_ex_22.sce b/1445/CH2/EX2.22/ch2_ex_22.sce new file mode 100644 index 000000000..de0004d85 --- /dev/null +++ b/1445/CH2/EX2.22/ch2_ex_22.sce @@ -0,0 +1,36 @@ +//CHAPTER 2- STEADY-STATE ANALYSIS OF SINGLE-PHASE A.C. CIRCUIT +//Example 22 // read it as example 21 in the book on page 2.75 + +disp("CHAPTER 2"); +disp("EXAMPLE 22"); + +//VARIABLE INITIALIZATION +L=0.1 //in Henry +C=8 //in mf, multiply by 10^-6 to convert to f +R=10 //in ohms +//SOLUTION + +//solution (i) +//Resonance frequency for a series RLC circuitf = 1/2.π.sqrt(LC) +fr=1/(2*%pi*sqrt(L*C*10^-6)); +disp("SOLUTION (i)"); +disp(sprintf("For series circuit,Resonant frquency is %3f Hz", fr)); +disp(" "); + +//solution (ii) +//Q-factor is Q=w.L/R= 2.π,fr.L/R +w=2*%pi*fr; +Q=w*L/R; +disp("SOLUTION (ii)"); +disp(sprintf("The Q-factor at resonance is %3f kΩ", Q)); +// +//solution (iii) +//Bandwidth (f2-f1)=R/(2.π.L), f1,f2 half power frequencies +bw=R/(2*%pi*L); +f1=fr+bw/2; +disp("SOLUTION (iii)"); +disp(sprintf("half frequency 1 is %3f Hz", f1)); +disp(sprintf("half frequency 2 is %3f Hz", fr)); +// +//END + diff --git a/1445/CH2/EX2.23/ch2_ex_23.sce b/1445/CH2/EX2.23/ch2_ex_23.sce new file mode 100644 index 000000000..e84c47176 --- /dev/null +++ b/1445/CH2/EX2.23/ch2_ex_23.sce @@ -0,0 +1,34 @@ +//CHAPTER 2- STEADY-STATE ANALYSIS OF SINGLE-PHASE A.C. CIRCUIT +//Example 22 // read it as example 22 in the book on page 2.76 + +disp("CHAPTER 2"); +disp("EXAMPLE 23"); + +//VARIABLE INITIALIZATION +A=100 //Amplitude in Amps +f=50 //frquency in Hz +t1=1/600 //sec after wave becomes zero again +a1=86.6 //amplitude at some time t after start +//SOLUTION + +//solution (a) +//RAmplitude at 1/600 second after it becomes zero +w=f*2*%pi; //angular speed +hp=1/(2*f); //half period, the point where sine beomes zero again after origin +t=hp+t1; +a2=A*sin(w*t); +disp("SOLUTION (a)"); +disp(sprintf("Amplitude after 1/600 sec is %3f A", a2)); +disp(" "); +//solution (b) +//since A=A0.sinwt, t=asin(A/A0)/w +t2=(asin(a1/A))/w; +disp("SOLUTION (b)"); +disp(sprintf("The time at which amp would be %fis %3f sec", a1,t2)); +// +//solution (iii) +//Bandwidth (f2-f1)=R/(2.π.L), f1,f2 half power frequencies +// +//END + + diff --git a/1445/CH2/EX2.24/ch2_ex_24.sce b/1445/CH2/EX2.24/ch2_ex_24.sce new file mode 100644 index 000000000..3d18a4021 --- /dev/null +++ b/1445/CH2/EX2.24/ch2_ex_24.sce @@ -0,0 +1,27 @@ +//CHAPTER 2- STEADY-STATE ANALYSIS OF SINGLE-PHASE A.C. CIRCUIT +//Example 22 // read it as example 23 in the book on page 2.77 + +disp("CHAPTER 2"); +disp("EXAMPLE 24"); + +//VARIABLE INITIALIZATION +V=200 //Amplitude in Volts +w=314 //angular spped +R=20 //in ohms +//SOLUTION + +//solution +//comparing with standard equation +Im=V/R; // in Amps +rms=Im/2; +Iav=Im/%pi; //average current +ff=rms/Iav; +disp("SOLUTION"); +disp(sprintf("RMS value of current is %3f A", rms)); +disp(sprintf("Average value of current is %3f A", Iav)); +disp(sprintf("Form Factor of current is %3f A", ff)); +disp(" "); +// +//END + + diff --git a/1445/CH2/EX2.25/ch2_ex_25.sce b/1445/CH2/EX2.25/ch2_ex_25.sce new file mode 100644 index 000000000..0562848e1 --- /dev/null +++ b/1445/CH2/EX2.25/ch2_ex_25.sce @@ -0,0 +1,30 @@ +//CHAPTER 2- STEADY-STATE ANALYSIS OF SINGLE-PHASE A.C. CIRCUIT +//Example 25 // read it as example 24 in the book on page 2.78 + +disp("CHAPTER 2"); +disp("EXAMPLE 25"); + +//VARIABLE INITIALIZATION +V=350 //Amplitude in Volts +f=50 //frquency in Hz +t1=0.005 //sec after wave becomes zero again +t2=0.008 //sec after waves passes tgrough 0 in -ve direction +//SOLUTION +//e=Esinwt +//solution (a) +//RAmplitude at 1/600 second after it becomes zero +w=f*2*%pi; //angular speed +v1=V*sin(w*t1); +disp("SOLUTION (a)"); +disp(sprintf("Voltage after %f sec is %3f A", t1,v1)); +disp(" "); +//solution (b) +//since wave will pass in -ve direction after half period +hp=1/(2*f); //half period, the point where sine beomes zero again after origin +t=hp+t2; +v2=V*sin(w*t); +disp("SOLUTION (b)"); +disp(sprintf("The voltage would be %f V %3f sec", v2,t)); +// +//END + diff --git a/1445/CH2/EX2.26/ch2_ex_26.sce b/1445/CH2/EX2.26/ch2_ex_26.sce new file mode 100644 index 000000000..2bc21dc90 --- /dev/null +++ b/1445/CH2/EX2.26/ch2_ex_26.sce @@ -0,0 +1,31 @@ +//CHAPTER 2- STEADY-STATE ANALYSIS OF SINGLE-PHASE A.C. CIRCUIT +//Example 26 // read it as example 25 in the book on page 2.79 + +disp("CHAPTER 2"); +disp("EXAMPLE 26"); + +//VARIABLE INITIALIZATION +A=100 //Amplitude in Amps +f=25 //frquency in Hz +a1=20 //svalue in Amps to be achieved in certain time +a2=100 //in Amps + +//SOLUTION +//i=Isinwt +//solution (a) +//RAmplitude at 1/600 second after it becomes zero +w=f*2*%pi; //angular speed +t1=(asin(a1/A))/w; +disp("SOLUTION (a)"); +disp(sprintf("The time to reach value %f A is %3f sec", a1,t1)); +disp(" "); +//solution (b) +//since wave will pass in -ve direction after half period +t2=(asin(a2/A))/w; +disp("SOLUTION (a)"); +disp(sprintf("The time to reach value %f A is %3f sec", a2,t2)); +disp(" "); +// +//END + + diff --git a/1445/CH2/EX2.27/ch2_ex_27.sce b/1445/CH2/EX2.27/ch2_ex_27.sce new file mode 100644 index 000000000..dda7dbc6c --- /dev/null +++ b/1445/CH2/EX2.27/ch2_ex_27.sce @@ -0,0 +1,48 @@ +//CHAPTER 2- STEADY-STATE ANALYSIS OF SINGLE-PHASE A.C. CIRCUIT +//Example 27 // read it as example 26 in the book on page 2.79 + +disp("CHAPTER 2"); +disp("EXAMPLE 27"); + +//VARIABLE INITIALIZATION +V=250; //Amplitude in Volts +w=314; //angular spped +pv=-10; //phase angle in degrees +I=10; //Amplitude in Amps +pi=50 //phase angle in degrees + +//SOLUTION +//v=Vsin(wt+pv) +//i=Isin(wt+pi) +//solution +//representing V in polar format as V=V0/sqrt(2) <θ, we get +v1=V/sqrt(2); +i1=I/sqrt(2); +//converting polar to rect +function [x,y]=pol2rect(mag,angle); +x=mag*cos(angle*%pi/180); // angle convert in radians +y=mag*sin(angle*%pi/180); +endfunction; +[x,y]=pol2rect(v1,pv); +V=x+y*%i; +[x,y]=pol2rect(i1,pi); +I=x+y*%i; +Z=V/I; +//convert back into angles in deg +function [mag,angle]=rect2pol(x,y); +mag=sqrt((x^2)+(y^2)); //z is impedance & the resultant of x and y +angle=atan(y/x)*(180/%pi); //to convert the angle from radians to degrees +endfunction; +[mag,angle]=rect2pol(real(Z),imag(Z)); +disp("SOLUTION (a)"); +disp(sprintf("The impedance is %f < %3f Deg", mag,angle)); +//disp(" "); +//power factor=cos(angle) +pf=cos(-1*angle*%pi/180); //convert to radians and change sign +disp(sprintf("The power factor is %f", pf)); +//Z=R-jXc by comparing real and imag paarts we get +disp(sprintf("The resistance is %fΩ and Reactance is %3fΩ", real(Z), imag(Z))); +disp(" "); +// +//END + diff --git a/1445/CH2/EX2.28/ch2_ex_28.sce b/1445/CH2/EX2.28/ch2_ex_28.sce new file mode 100644 index 000000000..1b48dddce --- /dev/null +++ b/1445/CH2/EX2.28/ch2_ex_28.sce @@ -0,0 +1,57 @@ +//CHAPTER 2- STEADY-STATE ANALYSIS OF SINGLE-PHASE A.C. CIRCUIT +//Example 28 // read it as example 27 in the book on page 2.80 + +disp("CHAPTER 2"); +disp("EXAMPLE 28"); + +//VARIABLE INITIALIZATION +z1=2+(%i*3); //impedance in rectangular form in Ohms +z2=1-(%i*5); //impedance in rectangular form in Ohms +z3=4+(%i*2); //impedance in rectangular form in Ohms +v=10; //in volts +//SOLUTION + +//solution (a) +//Total impedance +//Total circuit impedance Z=(Z1||Z2)+Z3 +z=z1+(z2*z3)/(z2+z3); +disp("SOLUTION (i)"); +disp(sprintf("Total circuit impedance is %3f %3fj S", real(z), imag(z))); +//Total supply current I=V/Z +//solution (b) +i=v/z; +function [mag,angle]=rect2pol(x,y); +mag=sqrt((x^2)+(y^2)); //z is impedance & the resultant of x and y +angle=atan(y/x)*(180/%pi); //to convert the angle from radians to degrees +endfunction; +[mag, angle]=rect2pol(real(i), imag(i)); +disp("SOLUTION (b)"); +disp(sprintf("Total current is %f<%f Amp",mag,angle)); +//solution (c) +//Vbc=I.Zbc where Zbc=(z2*z3)/(z2+z3) +Vbc=i*((z2*z3)/(z2+z3)); +[mag1, angle1]=rect2pol(real(Vbc), imag(Vbc)); +disp("SOLUTION (c)"); +disp(sprintf("The voltage across the || circuit is %f<%f",mag1, angle1)); +disp(sprintf("The voltage Vbc lags circuit by %f Deg",angle-angle1)); +//solution (d) +//i2=Vbc/z2, i3=Vbc/z3 +i2=Vbc/z2; +i3=Vbc/z3; +[mag2, angle2]=rect2pol(real(i2), imag(i2)); +[mag3, angle3]=rect2pol(real(i3), imag(i3)); +disp(sprintf("The current across fist branch of || circuit is %f<%f",mag2, angle2)); +disp(sprintf("The current across second branch of || circuit is %f<%f",mag3, angle3)); +//solution (e) +pf=cos(-1*angle*%pi/180); +disp("SOLUTION (e)"); +disp(sprintf("The power factor is %f",pf)); +//solution (iv) +//Apparent power s=VI, True Power, tp I^2R, Reactive Power, rp=I^2X or VISSin(angle) +s=v*mag; +tp=mag*mag*real(z); +rp=v*mag*sin(-1*angle*%pi/180); +disp("SOLUTION (f)"); +disp(sprintf("The Apparent power is %f VA, True power is %f W , Reactive power is %f vars",s,tp,rp)); +disp(" "); +//END diff --git a/1445/CH2/EX2.29/ch2_ex_29.sce b/1445/CH2/EX2.29/ch2_ex_29.sce new file mode 100644 index 000000000..6af15f135 --- /dev/null +++ b/1445/CH2/EX2.29/ch2_ex_29.sce @@ -0,0 +1,27 @@ +//CHAPTER 2- STEADY-STATE ANALYSIS OF SINGLE-PHASE A.C. CIRCUIT +//Example 29 // read it as example 28 in the book on page 2.83 + +disp("CHAPTER 2"); +disp("EXAMPLE 29"); + +//VARIABLE INITIALIZATION +I=120; //Amplitude in Amps +f=60; //Hz +t1=1/360; //in sec time to find amplitude +i2=96; //in Amps ,2 to find time taken to reach this +//SOLUTION +//i=Isin(wt) +//solution (a) +w=2*%pi*f; +i=I*sin(w*t1); +disp("SOLUTION (a)"); +disp(sprintf("The amplitude at time %f sec is %f Amp", t1,i)); +//solution (b) +t2=(asin(i2/I))/w; +disp("SOLUTION (b)"); +disp(sprintf("The time taken to reach %f Amp is %f Sec", i2,t2)); +disp(" "); +// +//END + + diff --git a/1445/CH2/EX2.3/ch2_ex_3.sce b/1445/CH2/EX2.3/ch2_ex_3.sce new file mode 100644 index 000000000..21882fc33 --- /dev/null +++ b/1445/CH2/EX2.3/ch2_ex_3.sce @@ -0,0 +1,17 @@ +//CHAPTER 2- STEADY-STATE ANALYSIS OF SINGLE-PHASE A.C. CIRCUIT +//Example 3 + +disp("CHAPTER 2"); +disp("EXAMPLE 3"); + +//VARIABLE INITIALIZATION +v_m=5; //peak value of voltage in Volts + +//SOLUTION +v_av=(integrate('v_m*sin(x)','x',0,%pi))/(%pi); +v_rms=(integrate('(v_m*sin(x))^2','x',0,%pi))/(%pi); +v_rms=sqrt(v_rms); +disp(sprintf("Average value of full wave rectifier sine wave is %f V",v_av)); +disp(sprintf("Effective value of full wave rectifier sine wave is %f V",v_rms)); + +//END diff --git a/1445/CH2/EX2.30/ch2_ex_30.sce b/1445/CH2/EX2.30/ch2_ex_30.sce new file mode 100644 index 000000000..a9edd798c --- /dev/null +++ b/1445/CH2/EX2.30/ch2_ex_30.sce @@ -0,0 +1,37 @@ +//CHAPTER 2- STEADY-STATE ANALYSIS OF SINGLE-PHASE A.C. CIRCUIT +//Example 30 // read it as example 29 in the book on page 2.83 + +disp("CHAPTER 2"); +disp("EXAMPLE 30"); + +//VARIABLE INITIALIZATION +f=50; //Hz +rms=20; //in Amp +t1=0.0025; //in sec time to find amplitude +t2=0.0125; //in sec, to find amp after passing through +ve maximum +i3=14.14; //in Amps, to find time when will it occur after passing through +ve maxima +//SOLUTION +//i=Isin(wt) +//solution (a) +w=2*%pi*f; +Im=rms*sqrt(2); +disp(sprintf("The equation would be i=%f. sin(%f.t)", Im,w)); +t0=(asin(1)/w); //time to reach maxima in +ve direction +i=Im*sin(w*t1); +disp("SOLUTION (a)"); +disp(sprintf("The amplitude at time %f sec is %f Amp", t1,i)); +//solution (b) +tx=t0+t2; +i2=Im*sin(w*tx); +disp("SOLUTION (b)"); +disp(sprintf("The amplitude at time %f sec is %f Amp", t2,i2)); +//solution (c) +ty=(asin(i3/Im))/w; +t3=t0-ty; //since ty is the time starting from 0, the origin needs to be shifted to maxima +disp("SOLUTION (c)"); +disp(sprintf("The amplitude of %f Amp would be reached in %f Sec", i3,t3)); +disp(" "); +// +//END + + diff --git a/1445/CH2/EX2.31/ch2_ex_31.sce b/1445/CH2/EX2.31/ch2_ex_31.sce new file mode 100644 index 000000000..cafecf9d3 --- /dev/null +++ b/1445/CH2/EX2.31/ch2_ex_31.sce @@ -0,0 +1,21 @@ +//CHAPTER 2- STEADY-STATE ANALYSIS OF SINGLE-PHASE A.C. CIRCUIT +//Example 31 // read it as example 30 in the book on page 2.84 + +disp("CHAPTER 2"); +disp("EXAMPLE 31"); + +//VARIABLE INITIALIZATION +//function of the waveform is deduced to be y=10+10.t/T +//SOLUTION +//Yav=(1/T).Integral(ydt) from 0 to T +//say +T=1; // 1 sec +Yav=(1/T)*integrate('(10+10*t/T)', 't', 0, 1); +disp(sprintf("The average value of waveform is %f", Yav)); +//RMS value Yrms=(1/T).Integral(y^2.dt) from 0 to T +Yms=(1/T)*integrate('(10+10*t/T)^2', 't', 0, 1); +disp(sprintf("The RMS value of waveform is %f", sqrt(Yms))); +disp(" "); +// +//END + diff --git a/1445/CH2/EX2.32/ch2_ex_32.sce b/1445/CH2/EX2.32/ch2_ex_32.sce new file mode 100644 index 000000000..326b61017 --- /dev/null +++ b/1445/CH2/EX2.32/ch2_ex_32.sce @@ -0,0 +1,23 @@ +//CHAPTER 2- STEADY-STATE ANALYSIS OF SINGLE-PHASE A.C. CIRCUIT +//Example 32 // read it as example 31 in the book on page 2.85 + +disp("CHAPTER 2"); +disp("EXAMPLE 32"); + +//VARIABLE INITIALIZATION +//function of the waveform is deduced to be i=Im.sinΘ +//SOLUTION +//Iav=(1/2.π).Integral(ydΘ) from 0 to π, and π to 2.π is zero, interval is 2.π +// +//say +Im=1; // in Amp +Iav=(1/(2*%pi))*integrate('(Im*sin(th))', 'th', 0, %pi); +//disp(sprintf("The average value of waveform is %f", Iav)); +//RMS mean square value (1/π).Integral(y^2.dΘ) from 0 to π +Ims=(1/(2*%pi))*integrate('(Im*sin(th))^2', 'th', 0, %pi); +//disp(sprintf("The RMS value of waveform is %f", sqrt(Ims))); +ff=sqrt(Ims)/Iav; +disp(sprintf("The form factor of waveform is %f",ff)); +disp(" "); +// +//END diff --git a/1445/CH2/EX2.33/ch2_ex_33.sce b/1445/CH2/EX2.33/ch2_ex_33.sce new file mode 100644 index 000000000..502902d56 --- /dev/null +++ b/1445/CH2/EX2.33/ch2_ex_33.sce @@ -0,0 +1,33 @@ +//CHAPTER 2- STEADY-STATE ANALYSIS OF SINGLE-PHASE A.C. CIRCUIT +//Example 33 // read it as example 32 in the book on page 2.86 + +disp("CHAPTER 2"); +disp("EXAMPLE 33"); + +//VARIABLE INITIALIZATION +r1=20; //in Ω +r2=30; // +r3=40; // +l1=0.5; //in Henry +l2=0.3; // +l3=0.2; // +V=230; // volts +f=50; //Hz +//coils connected in series +// +//SOLUTION +R=r1+r2+r3; +L=l1+l2+l3; +XL=2*%pi*f*L; +//impedence Z=sqrt(R*2 +XL^2) +Z=sqrt(R^2 +XL^2); +I=V/Z; +pf=R/Z; +pc=V*I*pf; +disp(sprintf("The total current is %f Amp", I)); +disp(sprintf("The Power Factor is %f lagging", pf)); +disp(sprintf("The Power consumed in the circuit is %f W", pc)); +disp(" "); +// +//END + diff --git a/1445/CH2/EX2.34/ch2_ex_34.sce b/1445/CH2/EX2.34/ch2_ex_34.sce new file mode 100644 index 000000000..263cf0ce7 --- /dev/null +++ b/1445/CH2/EX2.34/ch2_ex_34.sce @@ -0,0 +1,25 @@ +//CHAPTER 2- STEADY-STATE ANALYSIS OF SINGLE-PHASE A.C. CIRCUIT +//Example 34 // read it as example 33 in the book on page 2.87 + +disp("CHAPTER 2"); +disp("EXAMPLE 34"); + +//VARIABLE INITIALIZATION +r=100; //in Ω +c=40*10^(-6); // +V=400; // volts +f=50; //Hz +// +//SOLUTION +XC=1/(2*%pi*f*c); +//impedence Z=sqrt(R^2 +XL^2) +Z=sqrt(r^2 +XC^2); +I=V/Z; +pf=r/Z; +pc=V*I*pf; +disp(sprintf("The total current is %f Amp", I)); +disp(sprintf("The Power Factor is %f leading", pf)); +disp(sprintf("The Power consumed in the circuit is %f W",pc)); +disp(" "); +// +//END diff --git a/1445/CH2/EX2.35/ch2_ex_35.sce b/1445/CH2/EX2.35/ch2_ex_35.sce new file mode 100644 index 000000000..dcc78f2b4 --- /dev/null +++ b/1445/CH2/EX2.35/ch2_ex_35.sce @@ -0,0 +1,45 @@ +//CHAPTER 2- STEADY-STATE ANALYSIS OF SINGLE-PHASE A.C. CIRCUIT +//Example 35 // read it as example 34 in the book on page 2.88 + +disp("CHAPTER 2"); +disp("EXAMPLE 35"); + +//VARIABLE INITIALIZATION +R=100; //in Ω +L=0.2; //in Henry +C=20*10^(-6); //farads +V=240; // volts +f=50; //Hz +// +//SOLUTION +//Solution (a) +XL=2*%pi*f*L; +XC=1/(2*%pi*f*C); +//impedence Z=sqrt(R^2 +XL^2) +X=XL-XC; +Z=sqrt(R^2 +X^2); +disp("SOLUTION (a)"); +disp(sprintf("The total impedence is %f Ω", Z)); +I=V/Z; +disp("SOLUTION (b)"); +disp(sprintf("The total current is %f Amp", I)); +Vr=I*R; +Vi=I*XL; +Vc=I*XC; +disp("SOLUTION (c)"); +disp(sprintf("The voltage across resistance is %f V",Vr)); +disp(sprintf("The voltage across inductance is %f V",Vi)); +disp(sprintf("The voltage across capacitance is %f V",Vc)); +pf=R/Z; +pc=V*I*pf; +disp("SOLUTION (d)"); +disp(sprintf("The Power Factor is %f leading", pf)); +disp("SOLUTION (e)"); +disp(sprintf("The Power consumed in the circuit is %f W",pc)); +//XL=XC +f0=1/(2*%pi*sqrt(L*C)); +disp("SOLUTION (f)"); +disp(sprintf("Resonance will occur at %f Hz",f0)); +disp(" "); +// +//END diff --git a/1445/CH2/EX2.36/ch2_ex_36.sce b/1445/CH2/EX2.36/ch2_ex_36.sce new file mode 100644 index 000000000..46766b0e4 --- /dev/null +++ b/1445/CH2/EX2.36/ch2_ex_36.sce @@ -0,0 +1,37 @@ +//CHAPTER 2- STEADY-STATE ANALYSIS OF SINGLE-PHASE A.C. CIRCUIT +//Example 36 // read it as example 35 in the book on page 2.90 + +disp("CHAPTER 2"); +disp("EXAMPLE 36"); + +//VARIABLE INITIALIZATION +R1=10; //in Ω +XL=15; //in +R2=12; // +C=20; //capacitative reactance in Ω +V=230; // volts +f=50; //Hz +// +//SOLUTION +//Solution (a) +//conductance g, susceptance b +Z12=(R1^2 +XL^2); //squared impedance Z^2 for branch 1 +Z22=(R1^2 +C^2); //squared impedance Z^2 for branch 2 +g1=R1/Z12; +g2=R2/Z22; +b1=-XL/Z12; +b2=C/Z22; +g=g1+g2; +b=b1+b2; +Y=sqrt(g^2+b^2); +I=V*Y; +disp("SOLUTION (a)"); +disp(sprintf("The total current is %f Amp", I)); +pf=g/Y; + +disp("SOLUTION (b)"); +disp(sprintf("The power factor is %f", pf)); +disp(" "); +// +//END + diff --git a/1445/CH2/EX2.37/ch2_ex_37.sce b/1445/CH2/EX2.37/ch2_ex_37.sce new file mode 100644 index 000000000..d93ee733a --- /dev/null +++ b/1445/CH2/EX2.37/ch2_ex_37.sce @@ -0,0 +1,41 @@ +//CHAPTER 2- STEADY-STATE ANALYSIS OF SINGLE-PHASE A.C. CIRCUIT +//Example 37 // read it as example 36 in the book on page 2.93 + +disp("CHAPTER 2"); +disp("EXAMPLE 37"); + +//VARIABLE INITIALIZATION +R1=20; // +XL=15; // in ohms +R2=0; //assumed +C=50; //in ohms capacitative reactance +V=200; +f=60; //Hz +// +//SOLUTION +//Solution (a) +//conductance g, susceptance b +Z1=sqrt(R1^2 +XL^2); //squared impedance Z^2 for branch 1 +Z2=sqrt(R2^2 +C^2); //squared impedance Z^2 for branch 2 +i1=V/Z1; +i2=V/Z2; +disp("SOLUTION (a)"); +disp(sprintf("The current in Branch 1 is %f Amp", i1)); +disp(sprintf("The current in Branch 2 is %f Amp", i2)); +phi1=atan(XL/R1); +phi2=%pi/2; //atan(C/R2); //R2=0, output is infinity +Icos=i1*cos(phi1)+i2*cos(phi2); // phi in radians +Isin=-i1*sin(phi1)+i2*sin(phi2); // phi in radians +I=sqrt(Icos^2+Isin^2); +// +disp("SOLUTION (b)"); +disp(sprintf("The total current is %f Amp", I)); +// +pf=Icos/I; +disp("SOLUTION (c)"); +disp(sprintf("The power factor is %f ", pf)); +disp(" "); +// +//END + + diff --git a/1445/CH2/EX2.38/ch2_ex_38.sce b/1445/CH2/EX2.38/ch2_ex_38.sce new file mode 100644 index 000000000..6d66e8d49 --- /dev/null +++ b/1445/CH2/EX2.38/ch2_ex_38.sce @@ -0,0 +1,25 @@ +//CHAPTER 2- STEADY-STATE ANALYSIS OF SINGLE-PHASE A.C. CIRCUIT +//Example 38 // read it as example 37 in the book on page 2.93 + +disp("CHAPTER 2"); +disp("EXAMPLE 38"); + +//VARIABLE INITIALIZATION +z1=10+15*%i; +z2=12-20*%i; +V=230; +//invZ=1/z1+1/z2; +Z=z1*z2/(z1+z2); +magZ=sqrt(real(Z)^2+imag(Z)^2); +I=V/magZ; +pf=real(Z)/magZ; +disp("SOLUTION (a)"); +disp(sprintf("The current is %f Amp", I)); +// +disp("SOLUTION (b)"); +disp(sprintf("The Power factor is %f", pf)); +disp(" "); +// +//END + + diff --git a/1445/CH2/EX2.39/ch2_ex_39.sce b/1445/CH2/EX2.39/ch2_ex_39.sce new file mode 100644 index 000000000..e16ecd91c --- /dev/null +++ b/1445/CH2/EX2.39/ch2_ex_39.sce @@ -0,0 +1,58 @@ +//CHAPTER 2- STEADY-STATE ANALYSIS OF SINGLE-PHASE A.C. CIRCUIT +//Example 39 // read it as example 38 in the book on page 2.94 + +disp("CHAPTER 2"); +disp("EXAMPLE 39"); + +//VARIABLE INITIALIZATION +z1=2.5+1.5*%i; +z2=4+3*%i; +z3=3-4*%i; +V=200; +f=50; +E=V+0*%i; // representing as a vector +//invZ=1/z1+1/z2; +Z23=z2*z3/(z2+z3); +Z=z1+Z23; +I=E/Z; +magI=sqrt(real(I)^2+imag(I)^2); //total current +phi=atan(-imag(I)/real(I)); //total phase +// +//Voltages across the branches +e12=I*z1; //voltage across series branch +mage12=sqrt(real(e12)^2+imag(e12)^2); +phi12=atan(imag(e12)/real(e12)); +// +e23=E-e12; //voltage across parallel branch +mage23=sqrt(real(e23)^2+imag(e23)^2); +phi23=atan(-imag(e23)/real(e23)); +// +//current in branch 1 upper +i1=e23/z2; +magi1=sqrt(real(i1)^2+imag(i1)^2); +phii1=atan(-imag(i1)/real(i1)); +// +//current in branch 2 lower +i2=e23/z3; +magi2=sqrt(real(i2)^2+imag(i2)^2); +phii2=atan(imag(i2)/real(i2)); +disp("SOLUTION (b)"); +disp(sprintf("The current in Upper branch is %f Amp",magi1)); +disp(sprintf("The current in Lower branch is %f Amp",magi2)); +disp(sprintf("The Total current is %f Amp",magI)); +// +pf=cos(phi); // +disp("SOLUTION (c)"); +disp(sprintf("The Power factor is %f", pf)); +// +disp("SOLUTION (d)"); +disp(sprintf("The voltage across series branch is %f V", mage12)); +disp(sprintf("The voltage across parallel branch is %f V", mage23)); +// +tp=V*magI*pf; +disp("SOLUTION (e)"); +disp(sprintf("The total power absorbed in circuit is %f W", tp)); +disp(" "); +// +//END + diff --git a/1445/CH2/EX2.4/ch2_ex_4.sce b/1445/CH2/EX2.4/ch2_ex_4.sce new file mode 100644 index 000000000..0a61e3642 --- /dev/null +++ b/1445/CH2/EX2.4/ch2_ex_4.sce @@ -0,0 +1,18 @@ +//CHAPTER 2- STEADY-STATE ANALYSIS OF SINGLE-PHASE A.C. CIRCUIT +//Example 4 + +disp("CHAPTER 2"); +disp("EXAMPLE 4"); + +//VARIABLE INITIALIZATION +v_m=10; //peak value of voltage in Volts +angle=60*(%pi/180); //delay angle in radians + +//SOLUTION +v_av=(integrate('v_m*sin(x)','x',angle,%pi))/(%pi); +v_rms=(integrate('(v_m*sin(x))^2','x',angle,%pi))/(%pi); +v_rms=sqrt(v_rms); +disp(sprintf("Average value of full wave rectifier sine wave is %f V",v_av)); +disp(sprintf("Effective value of full wave rectifier sine wave is %f V",v_rms)); + +//END diff --git a/1445/CH2/EX2.40/ch2_ex_40.sce b/1445/CH2/EX2.40/ch2_ex_40.sce new file mode 100644 index 000000000..d9879f458 --- /dev/null +++ b/1445/CH2/EX2.40/ch2_ex_40.sce @@ -0,0 +1,24 @@ +//CHAPTER 2- STEADY-STATE ANALYSIS OF SINGLE-PHASE A.C. CIRCUIT +//Example 40 // read it as example 39 in the book on page 2.98 + +disp("CHAPTER 2"); +disp("EXAMPLE 40"); + +//VARIABLE INITIALIZATION +V=100; // max amplitude of wave +w=314; //angular speed +phiV=5; //phase angle in degrees +I=5; //max current amplitude +phiI=-40; //phase angle in current in deg + +// +//SOLUTION +phi=phiI-phiV; +pf=cos(phi*%pi/180); //convert to radians +p=(V/sqrt(2))*(I/sqrt(2))*pf; +// +disp(sprintf("The Power factor is %f lagging", pf)); +disp(sprintf("The Power delivered is %f W", p)); +disp(" "); +// +//END diff --git a/1445/CH2/EX2.41/ch2_ex_41.sce b/1445/CH2/EX2.41/ch2_ex_41.sce new file mode 100644 index 000000000..5a2bb77e8 --- /dev/null +++ b/1445/CH2/EX2.41/ch2_ex_41.sce @@ -0,0 +1,34 @@ +//CHAPTER 2- STEADY-STATE ANALYSIS OF SINGLE-PHASE A.C. CIRCUIT +//Example 41 // read it as example 40 in the book on page 2.99 + +disp("CHAPTER 2"); +disp("EXAMPLE 41"); + +//VARIABLE INITIALIZATION +lampV=100; //Volts +lampW=60; //watts +V=250; +f=50; +// +//SOLUTION +lampI=lampW/lampV; +lampR=lampW/lampI^2; //W=I^2.R +// +disp("SOLUTION (a)"); +disp(sprintf("The resistance of the lamp is t is %f Ohms", lampR)); +// +//in purely resistive / non inductive circuit,V=IR applies, and R=lampR+R +R=V/lampI-lampR; +disp(sprintf("The value value of resistor to be placed in series with the lamp is %f Ohms", R)); +// +//in case of inductance +//XL=2*%pi*f*L; +//V=Z.I where Z^2=R^2+XL^2 +//L=sqrt((V^2/I^2-R^2)/2*%pi*f) +L=sqrt((V/lampI)^2-lampR^2)/(2*%pi*f); +disp(sprintf("The inductive resistance to be placed is %f H",L)); +disp(" "); +// +//END + + diff --git a/1445/CH2/EX2.42/ch2_ex_42.sce b/1445/CH2/EX2.42/ch2_ex_42.sce new file mode 100644 index 000000000..20eabe132 --- /dev/null +++ b/1445/CH2/EX2.42/ch2_ex_42.sce @@ -0,0 +1,44 @@ +//CHAPTER 2- STEADY-STATE ANALYSIS OF SINGLE-PHASE A.C. CIRCUIT +//Example 42 // read it as example 41 in the book on page 2.100 + +disp("CHAPTER 2"); +disp("EXAMPLE 42"); + +//VARIABLE INITIALIZATION +I=10; // max amplitude of wave in Amp +rms1=5; +rms2=7.5; +rms3=10; +phi1=30; +phi2=-60; +phi3=45; +f=50; //Hz +w=2*%pi*f; +// +//SOLUTION +av1=rms1/1.11; +av2=rms2/1.11; +av3=rms3/1.11; +disp("SOLUTION (i)"); +disp(sprintf("The average value of 1st current is %f Amp", av1)); +disp(sprintf("The average value of 2nd current is %f Amp", av2)); +disp(sprintf("The average value of 3rd current is %f Amp", av3)); +// +disp("SOLUTION (ii)"); +disp(sprintf("The instantaneous value of 1st current is %f sin(%f*t+%f) Amp", rms1*sqrt(2), w,phi1)); +disp(sprintf("The instantaneous value of 2nd current is %f sin(%f*t%f) Amp", rms2*sqrt(2), w,phi2)); +disp(sprintf("The instantaneous value of 3rd current is %f sin(%f*t+%f) Amp", rms3*sqrt(2), w,phi3)); +// +//instantaneous values of current at t=100msec=0.1 sec +t=0.1; +i1=(rms1*sqrt(2))*(sin(w*t+phi1*%pi/180)); +i2=(rms2*sqrt(2))*(sin(w*t+phi2*%pi/180)); +i3=(rms3*sqrt(2))*(sin(w*t+phi3*%pi/180)); +disp("SOLUTION (iv)"); +disp(sprintf("The instantaneous value of 1st current is %f Amp at %f Sec", i1, t)); +disp(sprintf("The instantaneous value of 2nd current is %f Amp at %f Sec", i2, t)); +disp(sprintf("The instantaneous value of 3rd current is %f Amp at %f Sec", i3, t)); +disp(" "); +// +//END + diff --git a/1445/CH2/EX2.43/ch2_ex_43.sce b/1445/CH2/EX2.43/ch2_ex_43.sce new file mode 100644 index 000000000..42fe8c0cc --- /dev/null +++ b/1445/CH2/EX2.43/ch2_ex_43.sce @@ -0,0 +1,21 @@ +//CHAPTER 2- STEADY-STATE ANALYSIS OF SINGLE-PHASE A.C. CIRCUIT +//Example 43 // read it as example 42 in the book on page 2.102 + +disp("CHAPTER 2"); +disp("EXAMPLE 43"); + +//VARIABLE INITIALIZATION +I=5; // max amplitude of wave in Amp +f=50; //Hz +//wave for is to be obtained by adding the two waves +//i=5+5.sin(wt)=5+5.sin(theta) +// +//SOLUTION +Iav=(1/(2*%pi))*integrate('5+5*sin(th)', 'th',0,2*%pi); +Ims=(1/(2*%pi))*integrate('(5+5*sin(th))^2', 'th',0,2*%pi); +// +disp(sprintf("The average value of resultant current is %f Amp", Iav)); +disp(sprintf("The RMS value of resultant current is %f Amp", sqrt(Ims))); +disp(" "); +// +//END diff --git a/1445/CH2/EX2.44/ch2_ex_44.sce b/1445/CH2/EX2.44/ch2_ex_44.sce new file mode 100644 index 000000000..6de089188 --- /dev/null +++ b/1445/CH2/EX2.44/ch2_ex_44.sce @@ -0,0 +1,19 @@ +//CHAPTER 2- STEADY-STATE ANALYSIS OF SINGLE-PHASE A.C. CIRCUIT +//Example 44 + +disp("CHAPTER 2"); +disp("EXAMPLE 44"); + +//VARIABLE INITIALIZATION +r=20; //in Ohms + +//SOLUTION +p0=(4^2)*r; +p1=((5/sqrt(2))^2)*r; +p2=((3/sqrt(2))^2)*r; +p=p0+p1+p2; +I=sqrt(p/r); +disp(sprintf("The power consumed by the resistor is %d W",p)); +disp(sprintf("The effective value of current is %f A",I)); + +//END diff --git a/1445/CH2/EX2.45/ch2_ex_45.sce b/1445/CH2/EX2.45/ch2_ex_45.sce new file mode 100644 index 000000000..524c2f5a7 --- /dev/null +++ b/1445/CH2/EX2.45/ch2_ex_45.sce @@ -0,0 +1,35 @@ +//CHAPTER 2- STEADY-STATE ANALYSIS OF SINGLE-PHASE A.C. CIRCUIT +//Example 45 + +disp("CHAPTER 2"); +disp("EXAMPLE 45"); + +//VARIABLE INITIALIZATION +L=1.405; //in Henry +r=40; //in Ohms +c=20/(10^6); //in Farad +v=100; //in Volts + +//SOLUTION +f0=1/(2*%pi*sqrt(L*c)); +disp(sprintf("The frequency at which the circuit resonates is %d Hz",f0)); + +I0=v/r; +disp(sprintf("The current drawn from the supply is %f A",I0)); + +xl0=2*%pi*f0*L; +z0=sqrt((r^2)+(xl0^2)); +vl0=I0*z0; +disp(sprintf("The voltage across the coil is %f V",vl0)); + +xc0=1/(2*%pi*f0*c); +disp(sprintf("The capcitative reactance is %f Ω",xc0)); + +Q0=(2*%pi*f0*L)/r; +disp(sprintf("The quality factor is %f", Q0)); + +bw=r/L; +disp(sprintf("The bandwidth is %f Hz",bw)); + +//END + diff --git a/1445/CH2/EX2.46/ch2_ex_46.sce b/1445/CH2/EX2.46/ch2_ex_46.sce new file mode 100644 index 000000000..a895c7d2f --- /dev/null +++ b/1445/CH2/EX2.46/ch2_ex_46.sce @@ -0,0 +1,43 @@ +//CHAPTER 2- STEADY-STATE ANALYSIS OF SINGLE-PHASE A.C. CIRCUIT +//Example 46 + +disp("CHAPTER 2"); +disp("EXAMPLE 46"); + +//VARIABLE INITIALIZATION +I=120-(%i*(50)); //in Amperes +v=8+(%i*(2)); //in Volts + +//SOLUTION + +//function to convert from rectangular form to polar form +function [mag,angle]=rect2pol(x,y); +mag=sqrt((x^2)+(y^2)); +angle=atan(y/x)*(180/%pi); //to convert the angle from radians to degrees +endfunction; +[v,angle_v]=rect2pol(real(v),imag(v)); +[I,angle_I]=rect2pol(real(I),imag(I)); + +//solution (i) +z=v/I; +angle_z=angle_v-angle_I; +disp(sprintf("(i) The impedance is %f Ω, %f degrees",z,angle_z)); + +//solution (ii) +phi=angle_z; +pf=cos(phi*(%pi/180)); +disp(sprintf("(ii) The power factor is %f (lagging)",pf)); + +//solution (iii) +s=v*I; +angle_s=angle_v-angle_I; +//function to convert from polar form to rectangular form +function [x,y]=pol2rect(mag,angle); +x=mag*cos(angle*(%pi/180)); //to convert the angle from degrees to radians +y=mag*sin(angle*(%pi/180)); +endfunction; +[p,q]=pol2rect(s,angle_s); +disp(sprintf("(iii) The power consumed is %f W",p)); +disp(sprintf(" The reactive power is %f VAR",q)); + +//END diff --git a/1445/CH2/EX2.47/ch2_ex_47.sce b/1445/CH2/EX2.47/ch2_ex_47.sce new file mode 100644 index 000000000..807493965 --- /dev/null +++ b/1445/CH2/EX2.47/ch2_ex_47.sce @@ -0,0 +1,44 @@ +//CHAPTER 2- STEADY-STATE ANALYSIS OF SINGLE-PHASE A.C. CIRCUIT +//Example 47 + +disp("CHAPTER 2"); +disp("EXAMPLE 47"); + +//VARIABLE INITIALIZATION +r=10; //in Ohms +xl=8.66; //in Ohms +I=5-(%i*10); //in Amperes + +//SOLUTION +z=r+(%i*(xl)); +//function to convert from rectangular form to polar form +function [mag,angle]=rect2pol(x,y); +mag=sqrt((x^2)+(y^2)); +angle=atan(y/x)*(180/%pi); //to convert the angle from radians to degrees +endfunction; +[z,angle_z]=rect2pol(real(z),imag(z)); +[I,angle_I]=rect2pol(real(I),imag(I)); + +//solution(i) +v=I*z; +angle_v=angle_I+angle_z; +disp(sprintf("(i) The applied voltage is %f V, %f degrees",v,angle_v)); + +//solution (ii) +phi=angle_I-angle_v; +pf=cos(phi*(%pi/180)); +disp(sprintf("(ii) The power factor is %f (lagging)",pf)); + +//solution(iii) +s=v*I; +angle_s=angle_v-angle_I; +//function to convert from polar form to rectangular form +function [x,y]=pol2rect(mag,angle); +x=mag*cos(angle*(%pi/180)); //to convert the angle from degrees to radians +y=mag*sin(angle*(%pi/180)); +endfunction; +[p,q]=pol2rect(s,angle_s); +disp(sprintf("(iii) The active power is %f W",p)); +disp(sprintf(" The reactive power is %f VAR",q)); + +//END diff --git a/1445/CH2/EX2.48/ch2_ex_48.sce b/1445/CH2/EX2.48/ch2_ex_48.sce new file mode 100644 index 000000000..4e437781f --- /dev/null +++ b/1445/CH2/EX2.48/ch2_ex_48.sce @@ -0,0 +1,36 @@ +//CHAPTER 2- STEADY-STATE ANALYSIS OF SINGLE-PHASE A.C. CIRCUIT +//Example 48 + +disp("CHAPTER 2"); +disp("EXAMPLE 48"); + +//VARIABLE INITIALIZATION +pf1=0.8; //power factor of 1st circuit +pf2=0.6; //power factor of 2nd circuit +z=1; //this is an assumption + +//SOLUTION +angle1=acos(pf1)*(180/%pi); //in degrees +angle2=acos(pf2)*(180/%pi); //in degrees +//function to convert from polar form to rectangular form +function [x,y]=pol2rect(mag,angle); +x=mag*cos(angle*(%pi/180)); //to convert the angle from degrees to radians +y=mag*sin(angle*(%pi/180)); +endfunction; +[z1_x,z1_y]=pol2rect(z,angle1); +[z2_x,z2_y]=pol2rect(z,angle2); +nr=angle1+angle2; //numerator +z_x=z1_x+z2_x; +z_y=z1_y+z2_y; + +//function to convert from rectangular form to polar form +function [z,angle]=rect2pol(x,y); +I=sqrt((x^2)+(y^2)); +angle=atan(y/x)*(180/%pi); //to convert the angle from radians to degrees +endfunction; +[z,angle]=rect2pol(z_x,z_y); +angle_z=nr-angle; +pf=cos(angle_z*(%pi/180)); +disp(sprintf("The power factor of the combination is %f",pf)); + +//END diff --git a/1445/CH2/EX2.49/ch2_ex_49.sce b/1445/CH2/EX2.49/ch2_ex_49.sce new file mode 100644 index 000000000..6b42d9858 --- /dev/null +++ b/1445/CH2/EX2.49/ch2_ex_49.sce @@ -0,0 +1,57 @@ +//CHAPTER 2- STEADY-STATE ANALYSIS OF SINGLE-PHASE A.C. CIRCUIT +//Example 49 + +disp("CHAPTER 2"); +disp("EXAMPLE 49"); + +//VARIABLE INITIALIZATION +v=200; //in Volts +angle_v=30; //in degrees +I1=20; //in Amperes +angle_I1=60; //in degrees +I2=40; //in Amperes +angle_I2=-30; //in degrees + +//SOLUTION +//function to convert from polar form to rectangular form +function [x,y]=pol2rect(mag,angle); +x=mag*cos(angle*(%pi/180)); //to convert the angle from degrees to radians +y=mag*sin(angle*(%pi/180)); +endfunction; +[v_x,v_y]=pol2rect(v,angle_v); +[I1_x,I1_y]=pol2rect(I1,angle_I1); +[I2_x,I2_y]=pol2rect(I2,angle_I2); +s1=v*I1; +angle_s1=-angle_v+angle_I1; +disp(sprintf("The apparent power in 1st branch is %d kVA",s1/1000)); +[s1_x,s1_y]=pol2rect(s1,angle_s1); +disp(sprintf("The true power in 1st branch is %f kW",s1_x/1000)); + +disp(" "); + +s2=v*I2; +angle_s2=angle_v-angle_I2; +disp(sprintf("The apparent power in 2nd branch is %d kVA",s2/1000)); +[s2_x,s2_y]=pol2rect(s2,angle_s2); +disp(sprintf("The true power in 2nd branch is %d kW",s2_x/1000)); +I=(I1_x+I2_x)+(%i*(I1_y+I2_y)); disp(I); + +//function to convert from rectangular form to polar form +function [I,angle]=rect2pol(x,y); +I=sqrt((x^2)+(y^2)); +angle=atan(y/x)*(180/%pi); //to convert the angle from radians to degrees +endfunction; +[I,angle]=rect2pol(real(I),imag(I)); +disp(I); +s=v*I; +angle_s=angle_v-angle; +disp(sprintf("The apparent power in the main circuit is %f kVA",s/1000)); +[p,q]=pol2rect(s,angle_s); +disp(sprintf("The true power in the main circuit is %f kW",p/1000)); + +//END + + + + + diff --git a/1445/CH2/EX2.5/ch2_ex_5.sce b/1445/CH2/EX2.5/ch2_ex_5.sce new file mode 100644 index 000000000..ea3f932de --- /dev/null +++ b/1445/CH2/EX2.5/ch2_ex_5.sce @@ -0,0 +1,36 @@ +//CHAPTER 2- STEADY-STATE ANALYSIS OF SINGLE-PHASE A.C. CIRCUIT +//Example 5 + +disp("CHAPTER 2"); +disp("EXAMPLE 5"); + +//VARIABLE INITIALIZATION +I1=0.75; //in Amperes +v=240; //in Volts +f=50; //in Hertz +p=80; //in Watts + +//SOLUTION +res=p/v; +pf1=res/I1; //1st power factor = cos(Φ1) +phi1=acos(pf1); +res1=tan(phi1); //result1 = tan(Φ1) +w=2*%pi*f; + +//solution (a) +res2=0; //result2 = tan(Φ2) +Ic1=res*(res1-res2); +c1=Ic1/(v*w); +disp(sprintf("(a) When power factor is unity, the value of capacitance is %f μF",c1*(10^6))); + +//solution (b) +pf2=0.95; //given +phi2=acos(pf2); +res2=tan(phi2); +Ic2=res*(res1-res2); +c2=Ic2/(v*w); +disp(sprintf("(b) When power factor is 0.95(lagging), the value of capacitance is %f μF",c2*(10^6))); + +//END + + diff --git a/1445/CH2/EX2.50/ch2_ex_50.sce b/1445/CH2/EX2.50/ch2_ex_50.sce new file mode 100644 index 000000000..44a577b0f --- /dev/null +++ b/1445/CH2/EX2.50/ch2_ex_50.sce @@ -0,0 +1,40 @@ +//CHAPTER 2- STEADY-STATE ANALYSIS OF SINGLE-PHASE A.C. CIRCUIT +//Example 50 + +disp("CHAPTER 2"); +disp("EXAMPLE 50"); + +//VARIABLE INITIALIZATION +z1=6+(%i*5); //impedance in Ohms +z2=8-(%i*6); //impedance in Ohms +z3=8+(%i*10); //impedance in Ohms +I=20; //in Amperes + +//SOLUTION +Y1=1/z1; +Y2=1/z2; +Y3=1/z3; +Y=Y1+Y2+Y3; +//function to convert from rectangular form to polar form +function [Y,angle]=rect2pol(x,y); +Y=sqrt((x^2)+(y^2)); +angle=atan(y/x)*(180/%pi); //to convert the angle from radians to degrees +endfunction; +[Y_tot,angle]=rect2pol(real(Y),imag(Y)); +v=I/Y_tot; +angle_v=-angle; +[z1,angle1]=rect2pol(real(z1),imag(z1)); +[z2,angle2]=rect2pol(real(z2),imag(z2)); +[z3,angle3]=rect2pol(real(z3),imag(z3)); +I1=v/z1; +angle_I1=angle_v-angle1; +I2=v/z2; +angle_I2=angle_v-angle2; +I3=v/z3; +angle_I3=angle_v-angle3; +disp("The current in each branch in polar form is-"); +disp(sprintf(" %f A, %f degrees",I1,angle_I1)); +disp(sprintf(" %f A, %f degrees",I2,angle_I2)); +disp(sprintf(" %f A, %f degrees",I3,angle_I3)); + +//END diff --git a/1445/CH2/EX2.51/ch2_ex_51.sce b/1445/CH2/EX2.51/ch2_ex_51.sce new file mode 100644 index 000000000..665dbfdc2 --- /dev/null +++ b/1445/CH2/EX2.51/ch2_ex_51.sce @@ -0,0 +1,24 @@ +//CHAPTER 2- STEADY-STATE ANALYSIS OF SINGLE-PHASE A.C. CIRCUIT +//Example 51 + +disp("CHAPTER 2"); +disp("EXAMPLE 51"); + +//VARIABLE INITIALIZATION +Y1=0.4+(%i*0.6); //admittance of 1st branch in Siemens +Y2=0.1+(%i*0.4); //admittance of 2nd branch in Siemens +Y3=0.06+(%i*0.23); //admittance of 3rd branch in Siemens + +//SOLUTION +Y=Y1+Y2+Y3; +//function to convert from rectangular form to polar form +function [Y,angle]=rect2pol(x,y); +Y=sqrt((x^2)+(y^2)); +angle=atan(y/x)*(180/%pi); //to convert the angle from radians to degrees +endfunction; +[Y1,angle]=rect2pol(real(Y),imag(Y)); +disp(sprintf("The total admittance of the circuit is %f S, %f degrees",Y1,angle)); +z=1/Y1; +disp(sprintf("The impedance of the circuit is %f Ω, %f degrees",z,-angle)); + +//END diff --git a/1445/CH2/EX2.52/ch2_ex_52.sce b/1445/CH2/EX2.52/ch2_ex_52.sce new file mode 100644 index 000000000..f8b6c5c80 --- /dev/null +++ b/1445/CH2/EX2.52/ch2_ex_52.sce @@ -0,0 +1,77 @@ +//CHAPTER 2- STEADY-STATE ANALYSIS OF SINGLE-PHASE A.C. CIRCUIT +//Example 52 + +disp("CHAPTER 2"); +disp("EXAMPLE 52"); + +//VARIABLE INITIALIZATION +r1=7; //in Ohms +L1=0.015; //in Henry +r2=12; //in Ohms +c2=180*(10^(-6)); //in Farad +r3=5; //in Ohms +L3=0.01; //in Henry +v=230; //in Volts +f=50; //in Hertz + +//SOLUTION + +//solition (a) +xl1=2*%pi*f*L1; +xc2=1/(2*%pi*f*c2); +xl3=2*%pi*f*L3; +Z1=r1+xl1*%i; //complex representations +Z2=r2-xc2*%i; +Z3=r3+xl3*%i; +//function to convert from rectangular form to polar form +function [z,angle]=rect2pol(r,x); +z=sqrt((r^2)+(x^2)); +angle=atan(x/r)*(180/%pi); //to convert the angle from radians to degrees +endfunction; +[z1,angle1]=rect2pol(r1,xl1); +[z2,angle2]=rect2pol(r2,xc2); +[z3,angle3]=rect2pol(r3,xl3); +//to obtain rectangular form of (Z1+Z2) +req1=r1+r2; +xeq1=xl1-xc2; +//to obtain polar form of (Z1+Z2) +[zeq1,angle_eq1]=rect2pol(req1,-xeq1); +zp=(z1*z2)/(zeq1); +angle_p=(angle1-angle2)+angle_eq1; +//function to convert from polar form to rectangular form +function [r,x]=pol2rect(z,angle); +r=z*cos(angle*(%pi/180)); //to convert the angle from degrees to radians +x=z*sin(angle*(%pi/180)); +endfunction; +[rp,xp]=pol2rect(zp,angle_p); +[req,xeq]=pol2rect(z3,angle3); +r_tot=req+rp; +x_tot=xeq+xp; +[z_tot,angle_tot]=rect2pol(r_tot,x_tot); +Z=r_tot+x_tot*%i; //complex representation +disp(sprintf("(a) The total impedance is %f Ω, %f degrees",z_tot,angle_tot)); + +//solution (b) +I=v/Z; //complex division +angle_I=-angle_tot; +[I_x,I_y]=pol2rect(I,angle_I); +disp(sprintf("(b) The total currrent is (%f-j%f) A",real(I),imag(I))); + +//solution (c) +//Voltage drop across Z3 +Vab=I*Z3; +disp(sprintf(" The Voltage between AB is (%f-j%f) A",real(Vab),imag(Vab))); +//since we know that V=Vab+Vbc +Vbc=v-Vab; +disp(sprintf(" The Voltage between BC is (%f-j%f) A",real(Vbc),imag(Vbc))); +I1=Vbc/Z1; //Branch 1 current +I2=Vbc/Z2; //branch 2 current +//I3=I, main branch current +[mag1,angle1]=rect2pol(real(I1),imag(I1)); +[mag2,angle2]=rect2pol(real(I2),imag(I2)); +disp(sprintf("(c) Current in branch 1 is %f A, %f degrees",mag1,angle1)); +disp(sprintf(" The currrent in branch 1 is (%f-j%f) A",real(I1),imag(I1))); +disp(sprintf(" The current in branch 2 is %f A, %f degrees",mag2,angle2)); +disp(sprintf(" The currrent in branch 2 is (%f-j%f) A",real(I2),imag(I2))); +//END + diff --git a/1445/CH2/EX2.53/ch2_ex_53.sce b/1445/CH2/EX2.53/ch2_ex_53.sce new file mode 100644 index 000000000..66f4e4908 --- /dev/null +++ b/1445/CH2/EX2.53/ch2_ex_53.sce @@ -0,0 +1,43 @@ +//CHAPTER 2- STEADY-STATE ANALYSIS OF SINGLE-PHASE A.C. CIRCUIT +//Example 53 Read Example 52 of the Text Book + +disp("CHAPTER 2"); +disp("EXAMPLE 53"); + +//VARIABLE INITIALIZATION +v=230; //in Volts +angle_v=30; //in degrees +I1=20; //in Amperes +angle_I1=60; //in degrees +I2=40; //in Amperes +angle_I2=-30; //in degrees + +//SOLUTION +//function to convert from polar form to rectangular form +function [x,y]=pol2rect(mag,angle); +x=mag*cos(angle*(%pi/180)); //to convert the angle from degrees to radians +y=mag*sin(angle*(%pi/180)); +endfunction; +[x1,y1]=pol2rect(I1,angle_I1); +[x2,y2]=pol2rect(I2,angle_I2); +X=x1+x2; +Y=y1+y2; + +//function to convert from rectangular form to polar form +function [I,angle]=rect2pol(x,y); +I=sqrt((x^2)+(y^2)); +angle=atan(y/x)*(180/%pi); //to convert the angle from radians to degrees +endfunction; +[I,angle]=rect2pol(X,Y); + +//solution (i) +z=v/I; +angle_z=angle_v-angle; +disp(sprintf("(i) The total impedance of the circuit is %f Ω, %f degrees",z,angle_z)); + +//solution (ii) +//disp(sprintf("The value of I is %f and angle is %f",I, angle_z)); +pf=cos(angle_z*(%pi/180)); +p=v*I*pf; +disp(sprintf("(ii) The power taken is %f W",p)); +//END diff --git a/1445/CH2/EX2.54/ch2_ex_54.sce b/1445/CH2/EX2.54/ch2_ex_54.sce new file mode 100644 index 000000000..2c975c627 --- /dev/null +++ b/1445/CH2/EX2.54/ch2_ex_54.sce @@ -0,0 +1,27 @@ +//CHAPTER 2- STEADY-STATE ANALYSIS OF SINGLE-PHASE A.C. CIRCUIT +//Example 54 Read example 53 of the Book + +disp("CHAPTER 2"); +disp("EXAMPLE 54"); + +//VARIABLE INITIALIZATION +C=2.5/(10^6); //capcaitance in Farads +R=15; //in Ohms +L=260/1000; //in Henry + +//SOLUTION + +//solution (i) +f_r=(1/(2*%pi))*sqrt((1/(L*C)-(R^2/L^2))); +f_r=round(f_r); //to round off the value +disp(sprintf("(i) The resonant frequency is %d Hz",f_r)); + +//solution (ii) +q_factor=(2*%pi*f_r*L)/R; +disp(sprintf("(ii) The Q-factor of the circuit is %f",q_factor)); + +//solution (iii) +Z_r=L/(C*R); +disp(sprintf("(iii) The dynamic impedance of the circuit is %f Ω",Z_r)); + +//END diff --git a/1445/CH2/EX2.6/ch2_ex_6.sce b/1445/CH2/EX2.6/ch2_ex_6.sce new file mode 100644 index 000000000..078b110aa --- /dev/null +++ b/1445/CH2/EX2.6/ch2_ex_6.sce @@ -0,0 +1,28 @@ +//CHAPTER 2- STEADY-STATE ANALYSIS OF SINGLE-PHASE A.C. CIRCUIT +//Example 6 + +disp("CHAPTER 2"); +disp("EXAMPLE 6"); + +//VARIABLE INITIALIZATION +f=50; //in Hertz +I1=20; //in Amperes +pf1=0.75; //power factor +v=230; //in Volts +pf2=0.9; //power factor(lagging) + +//SOLUTION +phi1=acos(pf1); +res1=tan(phi1); //result1 = tan(Φ1) +phi2=acos(pf2); +res2=tan(phi2); //result2 = tan(Φ2) +Ic=I1*pf1*(res1-res2); +w=2*%pi*f; +c=Ic/(v*w); +disp(sprintf("The value of capacitance is %f μF",c*(10^6))); +Qc=v*Ic; +disp(sprintf("The reactive power is %f kVAR",Qc/(10^3))); +I2=I1*(pf1/pf2); +disp(sprintf("The new supply current is %f A",I2)); + +//END diff --git a/1445/CH2/EX2.7/ch2_ex_7.sce b/1445/CH2/EX2.7/ch2_ex_7.sce new file mode 100644 index 000000000..7437159b7 --- /dev/null +++ b/1445/CH2/EX2.7/ch2_ex_7.sce @@ -0,0 +1,24 @@ +//CHAPTER 2- STEADY-STATE ANALYSIS OF SINGLE-PHASE A.C. CIRCUIT +//Example 7 + +disp("CHAPTER 2"); +disp("EXAMPLE 7"); + +//VARIABLE INITIALIZATION +s1=300; //apparent power in kVA +pf1=0.65; //power factor(lagging) +pf2=0.85; //power factor(lagging) + +//SOLUTION + +//solution (a) +p=s1*pf1; //active power +q1=sqrt((s1^2)-(p^2)); +disp(sprintf("(a) To bring the power factor to unity, the capacitor bank should have a capacity of %f kVAR",q1)); + +//solution (b) +s2=p/pf2; +q2=sqrt((s2^2)-(p^2)); +disp(sprintf("(b) To bring the power factor to 85%% lagging, the capacitor bank should have a capacity of %f kVAR",q2)); + +//END diff --git a/1445/CH2/EX2.8/ch2_ex_8.sce b/1445/CH2/EX2.8/ch2_ex_8.sce new file mode 100644 index 000000000..042588a04 --- /dev/null +++ b/1445/CH2/EX2.8/ch2_ex_8.sce @@ -0,0 +1,21 @@ +//CHAPTER 2- STEADY-STATE ANALYSIS OF SINGLE-PHASE A.C. CIRCUIT +//Example 8 + +disp("CHAPTER 2"); +disp("EXAMPLE 8"); + +//VARIABLE INITIALIZATION +v=300/sqrt(2); //in Volts +angle_v=110; //in degrees +I=15/sqrt(2); //in Amperes +angle_I=80; //in degrees + +//SOLUTION +Z=v/I; +angle_Z=angle_v-angle_I; +disp(sprintf("The circuit impedance is %d Ω",Z)); +disp(sprintf("The phase angle is %d degrees",angle_Z)); +p_av=v*I*cos(angle_Z*(%pi/180)); //to convert angle_z from degrees to radians +disp(sprintf("The average power drawn is %f W",p_av)); + +//END diff --git a/1445/CH2/EX2.9/ch2_ex_9.sce b/1445/CH2/EX2.9/ch2_ex_9.sce new file mode 100644 index 000000000..8e68bc680 --- /dev/null +++ b/1445/CH2/EX2.9/ch2_ex_9.sce @@ -0,0 +1,19 @@ +//CHAPTER 2- STEADY-STATE ANALYSIS OF SINGLE-PHASE A.C. CIRCUIT +//Example 9 + +disp("CHAPTER 2"); +disp("EXAMPLE 9"); + +//VARIABLE INITIALIZATION +v1=120; //voltage of lamp in Volts +p=100; //in Watts +v2=220; //supply voltage in Volts +f=50; //in Hertz + +//SOLUTION +vl=sqrt((v2^2)-(v1^2)); +xl=(v1*vl)/p; +L=xl/(2*%pi*f); +disp(sprintf("The pure inductance should have a value of %f H",L)); + +//END diff --git a/1445/CH3/EX3.1/ch3_ex_1.sce b/1445/CH3/EX3.1/ch3_ex_1.sce new file mode 100644 index 000000000..559b4579b --- /dev/null +++ b/1445/CH3/EX3.1/ch3_ex_1.sce @@ -0,0 +1,47 @@ +//CHAPTER 3- THREE-PHASE A.C. CIRCUITS +//Example 1 + +disp("CHAPTER 3"); +disp("EXAMPLE 1"); + +//VARIABLE INITIALIZATION +v_l=400; //line voltage in Volts +r=15; //resistance in Ohms +xc=10; //capacitive resistance in Ohms + +//SOLUTION + +//solution (i) +v_ph=v_l/sqrt(3); +disp(sprintf("(i) The phase voltage is %f V",v_ph)); + +//solution (ii) +z_ph=sqrt((r^2)+(xc^2)); +I_l=v_ph/z_ph; +disp(sprintf("(ii) The line current is %f A",I_l)); + +//solution (iii) +//phase current = line current since connection is star +disp(sprintf("(iii) The phase current is %f A",I_l)); + +//solution (iv) +pow_fact=r/z_ph; +disp(sprintf("(iv) The power factor of the circuit is %f (leading)",pow_fact)); + +//solution (v) +p=sqrt(3)*v_l*I_l*pow_fact; +disp(sprintf("(v) The total power absorbed is %f W",p)); + +//solution (vi) +va=sqrt(3)*v_l*I_l; +disp(sprintf("(vi) The apparent power is %f VA",va)); +var=sqrt((va^2)-(p^2)); +disp(sprintf("The reactive power is %f VAR",var)); + +//Answers (v) and (vi) are different due to precision of floating point numbers + +//END + + + + diff --git a/1445/CH3/EX3.11/ch3_ex_11.sce b/1445/CH3/EX3.11/ch3_ex_11.sce new file mode 100644 index 000000000..b93227926 --- /dev/null +++ b/1445/CH3/EX3.11/ch3_ex_11.sce @@ -0,0 +1,68 @@ +//CHAPTER 3- THREE-PHASE A.C. CIRCUITS +//Example 11 + +disp("CHAPTER 3"); +disp("EXAMPLE 11"); + +//SOLUTION +function power_sum=p1(phi); +power_sum=20*cos(phi); //power_sum=p1+p2=20*cos(phi) and in KiloWatts +endfunction; +function power_diff=p2(phi); +power_diff=(20*sin(phi))/sqrt(3); //power_diff=p1-p2=(20*sin(phi))/sqrt(3) and in KiloWatts +endfunction; + +//solution (a): when phi=0 +power_sum=20*cos(0); //eq(i) +power_diff=(20*sin(0))/sqrt(3); //eq(ii) +//solving eq(i) and eq(ii) to get values of p1 and p2 +A=[1 1;1 -1]; +b=[power_sum;power_diff]; +x=inv(A)*b; +x1=x(1,:); //to access the 1st row of 2X1 matrix +x2=x(2,:); //to access the 2nd row of 2X1 matrix +disp("Solution (a)"); +disp(sprintf("P1 + P2 = %d kW",power_sum)); +disp(sprintf("P1 - P2 = %d kW",power_diff)); +disp(sprintf("The two wattmeter readings are %d kW and %d kW",x1,x2)); + +//solution (b): when phi=30 or %pi/6 (lagging) +power_sum=20*cos(%pi/6); +power_diff=(20*sin(%pi/6))/sqrt(3); +A=[1 1;1 -1]; +b=[power_sum;power_diff]; +x=inv(A)*b; +x1=x(1,:); +x2=x(2,:); +disp("Solution (b)"); +disp(sprintf("P1 + P2 = %f kW",power_sum)); +disp(sprintf("P1 - P2 = %f kW",power_diff)); +disp(sprintf("The two wattmeter readings are %f kW and %f kW",x1,x2)); + +//solution (c): when phi=60 or %pi/3 +power_sum=20*cos(%pi/3); +power_diff=(20*sin(-(%pi/3)))/sqrt(3); //leading +A=[1 1;1 -1]; +b=[power_sum;power_diff]; +x=inv(A)*b; +x1=x(1,:); +x2=x(2,:); +disp("Solution (c)"); +disp(sprintf("P1 + P2 = %f kW",power_sum)); +disp(sprintf("P1 - P2 = %f kW",power_diff)); +disp(sprintf("The two wattmeter readings are %f kW and %f kW",x1,x2)); + +//solution (d): when phi=90 or %pi/2 +power_sum=20*cos(%pi/2); +power_diff=(20*sin(%pi/2))/sqrt(3); //leading +A=[1 1;1 -1]; +b=[power_sum;power_diff]; +x=inv(A)*b; +x1=x(1,:); +x2=x(2,:); +disp("Solution (d)"); +disp(sprintf("P1 + P2 = %f kW",power_sum)); +disp(sprintf("P1 - P2 = %f kW",power_diff)); +disp(sprintf("The two wattmeter readings are %f kW and %f kW",x1,x2)); + +//END diff --git a/1445/CH3/EX3.12/ch3_ex_12.sce b/1445/CH3/EX3.12/ch3_ex_12.sce new file mode 100644 index 000000000..fb646dc3a --- /dev/null +++ b/1445/CH3/EX3.12/ch3_ex_12.sce @@ -0,0 +1,34 @@ +//CHAPTER 3- THREE-PHASE A.C. CIRCUITS +//Example 12 + +disp("CHAPTER 3"); +disp("EXAMPLE 12"); + +//VARIABLE INITIALIZATION +v_l=400; //in Volts +f=50; //in Hertz +w1=2000; //in Watts +w2=800; //in Watts + +//SOLUTION +//solution (a) +p1=w1+w2; +p2=w1-w2; +phi=atan((sqrt(3)*p2)/p1); +pow_fact=cos(phi); +disp(sprintf("(a) The power factor of the circuit is %f (leading)",pow_fact)); + +//solution (b) +I_l=p1/(sqrt(3)*v_l*pow_fact); +disp(sprintf("(b) The line current is %f A",I_l)); + +//solution (c) +v_ph=v_l/sqrt(3); +z_ph=v_ph/I_l; //phase current=line current +r_ph=z_ph*pow_fact; +disp(sprintf("(c) The resistance of each phase is %f Ω",r_ph)); +xc=sqrt((z_ph^2)-(r_ph^2)); +c=1/(2*%pi*f*xc); +disp(sprintf("The capacitance of each phase is %E F",c)); + +//END diff --git a/1445/CH3/EX3.2/ch3_ex_2.sce b/1445/CH3/EX3.2/ch3_ex_2.sce new file mode 100644 index 000000000..1781e58fe --- /dev/null +++ b/1445/CH3/EX3.2/ch3_ex_2.sce @@ -0,0 +1,25 @@ +//CHAPTER 3- THREE-PHASE A.C. CIRCUITS +//Example 2 + +disp("CHAPTER 3"); +disp("EXAMPLE 2"); + +//VARIABLE INITIALIZATION +v_l=400; //in Volts +I_l=30; //in Amperes +I_ph=30; //since in star connection line current=phase current +p=12*1000; //in Watts + +//SOLUTION +v_ph=v_l/sqrt(3); +z_ph=v_ph/I_ph; +pow_fact=p/(sqrt(3)*v_l*I_l); //p=sqrt(3)*v_l*I_l*pow_fact +r_ph=z_ph*pow_fact; //from impedance tringle +disp(sprintf("The resisatnce of each impedance is %f Ω",r_ph)); +x_ph=sqrt((z_ph^2)-(r_ph^2)); +disp(sprintf("The ractance of each impedance is %f Ω",x_ph)); + +//END + + + diff --git a/1445/CH3/EX3.3/ch3_ex_3.sce b/1445/CH3/EX3.3/ch3_ex_3.sce new file mode 100644 index 000000000..b85385282 --- /dev/null +++ b/1445/CH3/EX3.3/ch3_ex_3.sce @@ -0,0 +1,36 @@ +//CHAPTER 3- THREE-PHASE A.C. CIRCUITS +//Example 3 + +disp("CHAPTER 3"); +disp("EXAMPLE 3"); + +//VARIABLE INITIALIZATION +r_ph=30; //in Ohms +l=0.07; //inductance in Henry +v_l=400; //in Volts +v_ph=400; //since in delta connection line voltage=phase voltage +f=50; //in Hertz + +//SOLUTION + +//solution (a) +x_ph=2*(%pi)*f*l; //inductive reactance +z_ph=sqrt((r_ph^2)+(x_ph^2)); +I_ph=v_ph/z_ph; +disp(sprintf("(a) The phase current is %f A",I_ph)); + +//solution (b) +I_l=sqrt(3)*I_ph; +disp(sprintf("(b) The line current is %f A",I_l)); + +//solution (c) +pow_fact=r_ph/z_ph; +disp(sprintf("(c) The power factor is %f (lagging)",pow_fact)); + +//solution (d) +p=sqrt(3)*v_l*I_l*pow_fact; +disp(sprintf("(d) The power absorbed is %f W",p)); + +//Answer is different due to precision of floating point numbers + +//END diff --git a/1445/CH3/EX3.4/ch3_ex_4.sce b/1445/CH3/EX3.4/ch3_ex_4.sce new file mode 100644 index 000000000..75f660c01 --- /dev/null +++ b/1445/CH3/EX3.4/ch3_ex_4.sce @@ -0,0 +1,70 @@ +//CHAPTER 3- THREE-PHASE A.C. CIRCUITS +//Example 4 + +disp("CHAPTER 3"); +disp("EXAMPLE 4"); + +//VARIABLE INITIALIZATION +v_l=866; //in Volts +z_delta=177-(%i*246); //in Ohms +z_wire=1+(%i*2); //in Ohms + +//SOLUTION +v_ph=v_l/sqrt(3); +z_star=z_delta/3; +z=z_wire + z_star; +I=v_ph/z; // I_na in rectangular form +//I_na, I_nb and I_nc are same in magnitude and are the line currents for delta connection +//I_na +I_na=sqrt((real(I))^2+(imag(I))^2); //I_na from rectangular to polar form +a=atan(imag(I)/real(I)); //angle in radians +a=a*(180/%pi); //radians to degrees +//I_nb +I_na=sqrt((real(I))^2+(imag(I))^2); +b=a-120; //lags by 120 degrees +//I_nc +I_na=sqrt((real(I))^2+(imag(I))^2); +c=a-240; // lags by another 120 degrees ie.,240 degrees +disp(sprintf("The line currents are %f A (%f degrees), %f A (%f degrees) and %f A (%f degrees)",I_na,a,I_na,b,I_na,c)); + + +//line current lags phase current by 30 degrees, hence (-30) +//I_AB +I_AB=I_na/sqrt(3); +a1=a-(-30); +//I_BC +I_BC=I_na/sqrt(3); +b1=b-(-30); +//I_AC +I_AC=I_na/sqrt(3); +c1=c-(-30); +disp(sprintf("The phase currents are %f A (%f degrees), %f A (%f degrees) and %f A (%f degrees)",I_AB,a1,I_BC,b1,I_AC,c1)); + +//converting z_delta from polar form to rectangular form +z=sqrt((real(z_delta))^2+(imag(z_delta))^2); +angle=atan(imag(z_delta)/real(z_delta)); +angle=angle*(180/%pi); + +//line voltages for load or phase voltages for the delta load- +//v_AB +v_AB=I_AB*z; +a2=a1+angle; +//v_B +v_BC=I_BC*z; +b2=b1+angle; +//v_AC +v_AC=I_AC*z; +c2=c1+angle; +disp(sprintf("The phase voltages for the delta load are %f A (%f degrees), %f A (%f degrees) and %f A (%f degrees)",v_AB,a2,v_BC,b2,v_AC,c2)); + +p_AB=(I_AB^2)*real(z_delta); +p_load=3*p_AB; +disp(sprintf("The power absorbed by the load is %f W",p_load)); +p_l=3*(I_na^2)*real(z_wire); +disp(sprintf("The power dissipated by the line is %f W",p_l)); +p=p_load+p_l; +disp(sprintf("The total power supplied by 3-ϕ source is %f W",p)); + +//Answers may be slightly different due to precision of floating point numbers + +//END diff --git a/1445/CH3/EX3.5/ch3_ex_5.sce b/1445/CH3/EX3.5/ch3_ex_5.sce new file mode 100644 index 000000000..dc38bd18e --- /dev/null +++ b/1445/CH3/EX3.5/ch3_ex_5.sce @@ -0,0 +1,25 @@ +//CHAPTER 3- THREE-PHASE A.C. CIRCUITS +//Example 5 + +disp("CHAPTER 3"); +disp("EXAMPLE 5"); + +//VARIABLE INITIALIZATION +w1=5000; //reading of 1st wattmeter in Watts +w2=-1000; //reading of 2nd wattmeter in Watts + +//SOLUTION + +//solution (a) +p1=w1+w2; +disp(sprintf("(a) The total power is %d W",p1)); + +//solution (b) +p2=w1-w2; +phi=atan((sqrt(3)*p2)/p1); +pow_fact=cos(phi); +disp(sprintf("(b) The power factor of the load is %f", pow_fact)); + +//END + + diff --git a/1445/CH3/EX3.6/ch3_ex_6.sce b/1445/CH3/EX3.6/ch3_ex_6.sce new file mode 100644 index 000000000..60adf0c83 --- /dev/null +++ b/1445/CH3/EX3.6/ch3_ex_6.sce @@ -0,0 +1,34 @@ +//CHAPTER 3- THREE-PHASE A.C. CIRCUITS +//Example 6 + +disp("CHAPTER 3"); +disp("EXAMPLE 6"); + +//VARIABLE INITIALIZATION +v_l=3300; //in Volts +p_out=1500*735.5; //in Watts as 1 metric horsepower= 735.498W +eff=0.85; +pow_fact=0.81; + +//SOLUTION + +//solution (a) +p_in=p_out/eff; +disp(sprintf("(a) The motor input is %f kW",p_in/1000)); + +//solution (b) +I=p_in/(sqrt(3)*v_l*pow_fact); +disp(sprintf("(b) The line and phase current of the alternator is %f A",I)); + +//solution (c) +I_l=I; +I_ph=I_l/sqrt(3); +disp(sprintf("(c) The line current of the motor is %f A",I_l)); +disp(sprintf("The phase current of the motor is %f A",I_ph)); + +//Answers may be different due to precision of floating point numbers + +//END + + + diff --git a/1445/CH3/EX3.7/ch3_ex_7.sce b/1445/CH3/EX3.7/ch3_ex_7.sce new file mode 100644 index 000000000..5e06ddee5 --- /dev/null +++ b/1445/CH3/EX3.7/ch3_ex_7.sce @@ -0,0 +1,33 @@ +//CHAPTER 3- THREE-PHASE A.C. CIRCUITS +//Example 7 + +disp("CHAPTER 3"); +disp("EXAMPLE 7"); + +//VARIABLE INITIALIZATION +v_ph=200; //in Volts +r1=5; //in Ohms +r2=8; //in Ohms +r3=10; //in Ohms + +//SOLUTION +I1=v_ph/r1; +I2=v_ph/r2; +I3=v_ph/r3; +disp(sprintf("The current in the three phases are %d A, %d A and %d A",I1,I2,I3)); + +I_x=0+I2*(sqrt(3)/2)-I3*(sqrt(3)/2); //x-component of the three currents =>I_x = I1*cos(90) + I2*cos(30) + I3*cos(30) +I_y=I1-I2*0.5-I3*0.5; //y-component of the three currents =>I_y = I1*sin(90) + I2*sin(30) + I3*sin(30) +I=sqrt((I_x^2)+(I_y^2)); +disp(sprintf("The neutral current is %f A",I)); + +p1=v_ph*I1; +p2=v_ph*I2; +p3=v_ph*I3; +disp(sprintf("The power consumed in the three phases are %d W, %d W and %d W",p1,p2,p3)); + +p=p1+p2+p3; +disp(sprintf("The total power is %d W",p)); + +//END + diff --git a/1445/CH3/EX3.8/ch3_ex_8.sce b/1445/CH3/EX3.8/ch3_ex_8.sce new file mode 100644 index 000000000..a060c12ad --- /dev/null +++ b/1445/CH3/EX3.8/ch3_ex_8.sce @@ -0,0 +1,34 @@ +//CHAPTER 3- THREE-PHASE A.C. CIRCUITS +//Example 8 + +disp("CHAPTER 3"); +disp("EXAMPLE 8"); + +//VARIABLE INITIALIZATION +v_ph=230; //in Volts and in polar form +z=8+(%i*6); //in Ohms and in rectanglar form + +//SOLUTION +//converting z from rectangular form to polar form +z_mag=sqrt(real(z)^2+imag(z)^2); +phi=atan(imag(z)/real(z)); //atan() gives output in radians + +I_ph=v_ph/z_mag; +I_l=sqrt(3)*I_ph; +disp(sprintf("The line current is %f A",I_l)); + +pow_fact=cos(phi); +disp(sprintf("The power factor is %f",pow_fact)); + +p=sqrt(3)*v_ph*I_l*pow_fact; //phase volt=line volt in delta connection(v_l=v_ph) +disp(sprintf("The power is %f W",p)); + +var=sqrt(3)*v_ph*I_l*sin(phi); +var=var/1000; //from VAR to kVAR +disp(sprintf("The reactive power is %f kVAR",var)); + +va=sqrt(3)*v_ph*I_l; +va=va/1000; //from VA to kVA +disp(sprintf("The total volt amperes is %f kVA",va)); + +//END diff --git a/1445/CH3/EX3.9/Ex3_9.sce b/1445/CH3/EX3.9/Ex3_9.sce new file mode 100644 index 000000000..69339a32f --- /dev/null +++ b/1445/CH3/EX3.9/Ex3_9.sce @@ -0,0 +1,71 @@ +//CHAPTER 3- THREE-PHASE A.C. CIRCUITS +//Example 9 + +clc; +disp("CHAPTER 3"); +disp("EXAMPLE 9"); + +//VARIABLE INITIALIZATION +v_ab=400; //in Volts +v_bc=400; //in Volts +v_ac=400; //in Volts +z_ab=100; //in Ohms +z_bc=100; //in Ohms +z_ac=100; //in Ohms + +//solution (a) + +//function to convert from polar to rectangular form +function [x,y]=pol2rect(mag,angle); +x=mag*cos(angle); +y=mag*sin(angle); +endfunction; + +I_AB=v_ab/z_ab; +mag1=abs(real(I_AB)); +ang1=0; //I_AB is represented as mag1∠ang1 +I_BC=v_bc/z_bc; +ang2=-210*(%pi/180); //I_BC is represented as mag1∠ang2 +I_AC=v_ac/z_ac; +ang3=210*(%pi/180); //I_AB is represented as mag1∠ang3 +[x1,y1]=pol2rect(I_AB,ang1); +[x2,y2]=pol2rect(I_BC,ang2); +[x3,y3]=pol2rect(I_AC,ang3); +//let us consider values X1, Y1, X2, Y2, X3 and Y3 for the ease of calculation (these are not mentioned in the book) +X1=x1-x3; +Y1=y1-y3; +X2=x2-x1; +Y2=y2-y1; +X3=x3-x2; +Y3=y3-y2; +I_A=X1+(%i*Y1); +I_B=X2+(%i*Y2); +I_C=X3+(%i*Y3); + +//function to convert from rectangular to polar form +function [z,angle]=rect2pol(x,y); +z=sqrt((x^2)+(y^2)); //z is impedance & the resultant of x and y +if(x==0 & y>0) then angle=90; //in case atan=∞ +elseif(x==0 & y<0) then angle=-90 //in case atan=-∞ +else +angle=atan(y/x)*(180/%pi); //to convert the angle from radians to degrees +end; +endfunction; + +[mag4,ang4]=rect2pol(X1,Y1); +[mag5,ang5]=rect2pol(X2,Y2); +[mag6,ang6]=rect2pol(X3,Y3); +disp(sprintf("(a) The line current I_A is %f∠%f A",mag4,ang4)); +disp(sprintf("The line current I_B is %f∠%f A",mag5,(180+ang5))); +disp(sprintf("The line current I_C is %f∠%f A",mag6,ang6)); + +//solution (b) +//since power is consumed only by 100Ω resistance in the arm AB +r1=100; +p1=(I_AB^2)*r1; +p2=160000; +r2=p2/p1; +disp(sprintf("(b) The star connected balanced resistance is %d Ω",r2)); + +//END + diff --git a/1445/CH3/EX3.9/ch3_ex_9.sce b/1445/CH3/EX3.9/ch3_ex_9.sce new file mode 100644 index 000000000..db81e1061 --- /dev/null +++ b/1445/CH3/EX3.9/ch3_ex_9.sce @@ -0,0 +1,49 @@ +//CHAPTER 3- THREE-PHASE A.C. CIRCUITS +//Example 9 + +disp("CHAPTER 3"); +disp("EXAMPLE 9"); + +//VARIABLE INITIALIZATION +v_ab=400; //in Volts +v_bc=400; //in Volts +v_ac=400; //in Volts +z_ab=100; //in Ohms +z_bc=100; //in Ohms +z_ac=100; //in Ohms + +//solution (a) + +//function to convert from polar to rectangular form +function [x,y]=pol2rect(mag,angle1); +x=mag*cos(angle1); +y=mag*sin(angle1); +endfunction; + +I_AB=v_ab/z_ab; +mag1=abs(real(I_AB)); +ang1=0; +I_BC=v_bc/z_bc; +ang2=-210*(%pi/180); +I_AC=v_ac/z_ac; +ang3=210*(%pi/180); +[x1,y1]=pol2rect(I_AB,ang1); +[x2,y2]=pol2rect(I_BC,ang2); +[x3,y3]=pol2rect(I_AC,ang3); +I_A=(x1-x3)+(%i*(y1-y3)); +I_B=(x2-x1)+(%i*(y2-y1)); +I_C=(x3-x2)+(%i*(y3-y2)); +disp(sprintf("(a) The line current I_A in rectangular form is (%f + j%d) A",real(I_A),imag(I_A))); +disp(sprintf("The line current I_B in rectangular form is (%f + j%d) A",real(I_B),imag(I_B))); +disp(sprintf("The line current I_C in rectangular form is (%d - j%d) A",real(I_C),-imag(I_C))); + +//solution (b) +//since power is consumed only by 100Ω resistance in the arm AB +r1=100; +p1=(I_AB^2)*r1; +p2=160000; +r2=p2/p1; +disp(sprintf("(b) The star connected balanced resistance is %d Ω",r2)); + +//END + diff --git a/1445/CH4/EX4.1/ch4_ex_1.sce b/1445/CH4/EX4.1/ch4_ex_1.sce new file mode 100644 index 000000000..df7e6aede --- /dev/null +++ b/1445/CH4/EX4.1/ch4_ex_1.sce @@ -0,0 +1,20 @@ +//CHAPTER 4- MEASURING INSTRUMENTS +//Example 1 + +disp("CHAPTER 4"); +disp("EXAMPLE 1"); + +//VARIABLE INITIALIZATION +N=10; //number of turns +I=5; //in amperes +B=500; //flux density in Wb/m^2 +ar=15/10000; //area in m^2 + +//SOLUTION +T_d=N*B*I*ar; +disp(sprintf("The deflecting torque exerted on the coil is %f N-m",T_d)); + +//END + + + diff --git a/1445/CH4/EX4.10/ch4_ex_10.sce b/1445/CH4/EX4.10/ch4_ex_10.sce new file mode 100644 index 000000000..b60ae7828 --- /dev/null +++ b/1445/CH4/EX4.10/ch4_ex_10.sce @@ -0,0 +1,19 @@ +//CHAPTER 4- MEASURING INSTRUMENTS +//Example 10 + +disp("CHAPTER 4"); +disp("EXAMPLE 10"); + +//VARIABLE INITIALIZATION +r1=2; //in Ohms (r1=2 is an assumption) +r2=2; //in Ohms (since r1=r2) +v=100; //in Volts + +//SOLUTION +v1=(v*r1)/(r1+r2); //voltage divider law +v2=(v*r2)/(r1+r2); //voltage divider law +disp(sprintf("Reading of the 1st voltmeter is %d V",v1)); +disp(sprintf("Reading of the 2nd voltmeter is %d V",v2)); + +//END + diff --git a/1445/CH4/EX4.11/ch4_ex_11.sce b/1445/CH4/EX4.11/ch4_ex_11.sce new file mode 100644 index 000000000..c52886b03 --- /dev/null +++ b/1445/CH4/EX4.11/ch4_ex_11.sce @@ -0,0 +1,21 @@ +//CHAPTER 4- MEASURING INSTRUMENTS +//Example 11 + +disp("CHAPTER 4"); +disp("EXAMPLE 11"); + +//VARIABLE INITIALIZATION +r1=30000; //in Ohms +r2=20000; //in Ohms +v=600; //in Volts + +//SOLUTION +v1=(r1*v)/(r1+r2); //voltage divider law +v2=(r2*v)/(r1+r2); //voltage divider law +disp(sprintf("Reading of the 1st voltmeter is %d V",v1)); +disp(sprintf("Reading of the 2nd voltmeter is %d V",v2)); + +//END + + + diff --git a/1445/CH4/EX4.12/ch4_ex_12.sce b/1445/CH4/EX4.12/ch4_ex_12.sce new file mode 100644 index 000000000..4b5b1249e --- /dev/null +++ b/1445/CH4/EX4.12/ch4_ex_12.sce @@ -0,0 +1,22 @@ +//CHAPTER 4- MEASURING INSTRUMENTS +//Example 12 + +disp("CHAPTER 4"); +disp("EXAMPLE 12"); + +//VARIABLE INITIALIZATION +I1=1; //full scale current in 1st ammeter in mA +I2=10; //full scale current in 2nd ammeter in mA +r1=100; //internal resistance of 1st ammeter in Ohms +r2=25; //internal resistance of 2nd ammeter in Ohms + +//SOLUTION +R1=r2/(r1+r2); //resistance for 1st ammeter +R2=r1/(r1+r2); //resistance for 2nd ammeter +I=I1/R1; //by current divider law I1=(I*r2)/(r1+r2) =>I1=I*R1 =>I=I1/R1 +A2=I*R2; //A2=reading of second ammeter +disp(sprintf("The total current that the two ammeters can carry is %d mA",I)); + +//END + + diff --git a/1445/CH4/EX4.2/ch4_ex_2.sce b/1445/CH4/EX4.2/ch4_ex_2.sce new file mode 100644 index 000000000..ef8d23720 --- /dev/null +++ b/1445/CH4/EX4.2/ch4_ex_2.sce @@ -0,0 +1,22 @@ +//CHAPTER 4- MEASURING INSTRUMENTS +//Example 2 + +disp("CHAPTER 4"); +disp("EXAMPLE 2"); + +//VARIABLE INITIALIZATION +G=10; //resistance in Ohms +S=1; //shunt resistance in Ohms +r=12; //total resistance in Ohms +emf=2; //in Volts + +//SOLUTION +I=emf/r; +I_g=(S*I)/(S+G); +disp(sprintf("The current through the galvanometer is %f A",I_g)); + +//END + + + + diff --git a/1445/CH4/EX4.3/ch4_ex_3.sce b/1445/CH4/EX4.3/ch4_ex_3.sce new file mode 100644 index 000000000..aeca30d89 --- /dev/null +++ b/1445/CH4/EX4.3/ch4_ex_3.sce @@ -0,0 +1,27 @@ +//CHAPTER 4- MEASURING INSTRUMENTS +//Example 3 + +disp("CHAPTER 4"); +disp("EXAMPLE 3"); + +//VARIABLE INITIALIZATION +I=1; //in Amperes (I=1 is an assumption) +I_g=I/100; //in Amperes +G=2970; //in Ohms + +//SOLUTION +S=(G*I_g)/(I-I_g); //since I_g=(S*I)/(S+G); + +disp(sprintf("The wire should have a resistance of %f Ω",S)); + +//END + + + + + + + + + + diff --git a/1445/CH4/EX4.4/ch4_ex_4.sce b/1445/CH4/EX4.4/ch4_ex_4.sce new file mode 100644 index 000000000..e99e441b2 --- /dev/null +++ b/1445/CH4/EX4.4/ch4_ex_4.sce @@ -0,0 +1,28 @@ +//CHAPTER 4- MEASURING INSTRUMENTS +//Example 4 + +disp("CHAPTER 4"); +disp("EXAMPLE 4"); + +//VARIABLE INITIALIZATION +r_A=10; //in Ohms +I_A=15/1000; //from mA to A +I=100; //in A +V=500; //in Volts + +//SOLUTION + +//solution (a) +R_sh=r_A/((I/I_A)-1); //(I/I_A) is the multiplying factor of the shunt + +disp(sprintf("The required shunt resistance is %f Ω",R_sh)); + +//solutuion (b) +r=V/I_A; //total resistance required +R_se=r-r_A; +disp(sprintf("The required resistance to be added in series is %f Ω",R_se)); + +//END + + + diff --git a/1445/CH4/EX4.5/ch4_ex_5.sce b/1445/CH4/EX4.5/ch4_ex_5.sce new file mode 100644 index 000000000..d19487bd7 --- /dev/null +++ b/1445/CH4/EX4.5/ch4_ex_5.sce @@ -0,0 +1,26 @@ +//CHAPTER 4- MEASURING INSTRUMENTS +//Example 5 + +disp("CHAPTER 4"); +disp("EXAMPLE 5"); + +//VARIABLE INITIALIZATION +m_c=100; //meter constant in rev/kWh +I=20; //in Amperes +v=230; //in Volts +pow_fact=0.8; +rev_act=360; //actual revolution + +//SOLUTION +E=(v*I*pow_fact)/1000; //from Wh to kWh +rev=m_c*E; //number of revolutions for true energy +disp(sprintf("The number of revolutions made by the meter is %f",rev)); +err=(rev_act-rev)/rev; +err=err*100; //percentage error +disp(sprintf("The percentage error is %f %%",err)); +if(err<0) then +disp("The negative sign indicates that the meter will run slow"); +end + +//END + diff --git a/1445/CH4/EX4.6/ch4_ex_6.sce b/1445/CH4/EX4.6/ch4_ex_6.sce new file mode 100644 index 000000000..8906b37ec --- /dev/null +++ b/1445/CH4/EX4.6/ch4_ex_6.sce @@ -0,0 +1,17 @@ +//CHAPTER 4- MEASURING INSTRUMENTS +//Example 6 + +disp("CHAPTER 4"); +disp("EXAMPLE 6"); + +//VARIABLE INITIALIZATION +I_m=20/1000; //from mA to A +v_m=50/1000; //from mV to V +v=500; //in Volts + +//SOLUTION +r_m=v_m/I_m; +r_s=(v/I_m)-r_m; +disp(sprintf("The series resistance to measure 500 V on full scale is %f Ω",r_s)); + +//END diff --git a/1445/CH4/EX4.7/ch4_ex_7.sce b/1445/CH4/EX4.7/ch4_ex_7.sce new file mode 100644 index 000000000..82962fd60 --- /dev/null +++ b/1445/CH4/EX4.7/ch4_ex_7.sce @@ -0,0 +1,27 @@ +//CHAPTER 4- MEASURING INSTRUMENTS +//Example 7 + +disp("CHAPTER 4"); +disp("EXAMPLE 7"); + +//VARIABLE INITIALIZATION +m_c=100; //meter constant in rev/kwh +I=20; //in Amperes +v=210; //in Volts +pow_fact=0.8; //leading +rev_act=350; //actual revolution + +//SOLUTION +E=(v*I*pow_fact)/1000; //from Wh to kWh +rev_true=m_c*E; +disp(sprintf("The number of revolutions made by the meter is %f",rev_true)); +err=(rev_act-rev_true)/rev_true; +err=err*100; //percentage error +disp(sprintf("The percentage error is %f %%",err)); +if(err<0) then +disp("The negative sign indicates that the meter will run slow"); +end + +//END + + diff --git a/1445/CH4/EX4.8/ch4_ex_8.sce b/1445/CH4/EX4.8/ch4_ex_8.sce new file mode 100644 index 000000000..e5c95a2d3 --- /dev/null +++ b/1445/CH4/EX4.8/ch4_ex_8.sce @@ -0,0 +1,22 @@ +//CHAPTER 4- MEASURING INSTRUMENTS +//Example 8 + +disp("CHAPTER 4"); +disp("EXAMPLE 8"); + +//VARIABLE INITIALIZATION +I_m=15/1000; //from mA to A +r_m=5; //in Ohms +I=2; //in Amperes +v=30; //in Volts + +//SOLUTION +R_sh=(I_m*r_m)/I; //I_m=I*(R_sh/(R_sh+r_m)) if R_sh<<5Ω, then I_m=I*(R_sh/r_m) neglecting R_sh in the denominator +disp(sprintf("In order to read upto 2A, a shunt of %f Ω has to be connected in parallel",R_sh)); + +R_se=(v-(I_m*r_m))/I_m; +disp(sprintf("In order to read upto 30V, a resistance of %f Ω has to be connected in series",R_se)); + +//END + + diff --git a/1445/CH4/EX4.9/ch4_ex_9.sce b/1445/CH4/EX4.9/ch4_ex_9.sce new file mode 100644 index 000000000..4699a6038 --- /dev/null +++ b/1445/CH4/EX4.9/ch4_ex_9.sce @@ -0,0 +1,28 @@ +//CHAPTER 4- MEASURING INSTRUMENTS +//Example 9 + +disp("CHAPTER 4"); +disp("EXAMPLE 9"); + +//VARIABLE INITIALIZATION +I=50; //in Amperes +v=230; //in Volts +rev=61; //revolutions +t=37/3600; //from seconds to hours +m_c=500; //in rev/kwh +pow_fact=1; //since load is purely resistive + +//SOLUTION +E1=(v*I*t*pow_fact)/1000; //energy consumed in 37 seconds +E2=rev/m_c; +err=(E2-E1)/E1; +err=err*100; //percentage error +disp(sprintf("The percentage error is %f %%",err)); +if(err<0) then +disp("The negative sign indicates that the meter will run slow"); +end + +//END + + + diff --git a/1445/CH6/EX6.1/ch6_ex_1.sce b/1445/CH6/EX6.1/ch6_ex_1.sce new file mode 100644 index 000000000..758205da9 --- /dev/null +++ b/1445/CH6/EX6.1/ch6_ex_1.sce @@ -0,0 +1,59 @@ +//CHAPTER 6- MAGNETIC CIRCUITS +//Example 1 + +disp("CHAPTER 6"); +disp("EXAMPLE 1"); + +//VARIABLE INITIALIZATION +lA=17/100; //length of part A in m +l=3/100; //in m +lg=2/1000; //length of air-gap in m +N=1000; //number of turns +AB=10/100; //in m +BC=20/100; //in m +CD=10/100; //in m +I=1; //exciting current in Amperes +murA=1000; //relative permeability of part A +murB=1200; //relative permeability of part B +mu0=4*%pi*10^(-7); //absolute permeability in Henry/m + +//SOLUTION + +//solution (i) +ar=l*l; +rA=lA/(mu0*murA*ar); +disp(sprintf("(i) Reluctance of part A is %E AT/Wb",rA)); + +lB=(AB-(l/2))+(BC-l)+(CD-(l/2)); +rB=lB/(mu0*murB*ar); +disp(sprintf("Reluctance of part B is %E AT/Wb",rB)); + +//solution (ii) +lg=2*lg; +murg=1; +rg=lg/(mu0*murg*ar); +disp(sprintf("(ii) Reluctance of the two air gaps is %E AT/Wb",rg)); + +//solution (iii) +rT=rA+rB+rg; +disp(sprintf("(iii) Total reluctance is %E AT/Wb",rT)); + +//solution (iv) +mmf=N*I; +disp(sprintf("(iv) MMF is %d AT",mmf)); + +//solution (v) +totFlux=mmf/rT; +disp(sprintf("(v) Total flux is %E Wb",totFlux)); + + +//solution (vi) +b=totFlux/ar; +disp(sprintf("(vi) Flux density is %f Wb/m^2",b)); + +//Answers of (v) and (vi) do not match due to calculation mistake in the book + +//END + + + diff --git a/1445/CH6/EX6.2/ch6_ex_2.sce b/1445/CH6/EX6.2/ch6_ex_2.sce new file mode 100644 index 000000000..5c6bd3b41 --- /dev/null +++ b/1445/CH6/EX6.2/ch6_ex_2.sce @@ -0,0 +1,50 @@ +//CHAPTER 6- MAGNETIC CIRCUITS +//Example 2 + +disp("CHAPTER 6"); +disp("EXAMPLE 2"); + +//VARIABLE INITIALIZATION +dr=25/100; //diameter of steel ring in m +ds=3/100; //diameter of circular section in m +lg=1.5/1000; //length of air-gap in m +N=700; //number of turns +mu0=4*%pi*10^(-7); //absolute permeability in Henry/m +I=2; //in Amperes + +//SOLUTION + +//solution (i) +mmf=N*I; +disp(sprintf("(i) MMF is %d AT", mmf)); + +//solution (ii) +netMMF=(mmf-(0.35*mmf)); //mmf taken by iron path is 35% of total mmf +b=(mu0*netMMF)/lg; //phi=b*area, r=lg/(mu0*area) & mmf=phi*r => mmf=(b*lg)/mu0 => b=(mmf*mu0)/lg +disp(sprintf("(ii) The flux density of the air gap is %E Wb/m^2", b)); + +//solution (iii) +ar=%pi*((ds/2)^2); //area of cross-section of circular section +phi=ar*b; +disp(sprintf("(iii) The magnetic flux is %E Wb",phi)); + +//solution (iv) +rt=mmf/phi; +disp(sprintf("(iv) The total reluctance is %E AT/wb",rt)); + +//solution (v) +rg=lg/(mu0*ar); //reluctance of air gap +rs=rt-rg; //reluctance of steel +lr=%pi*dr; //circumference of ring +mur=lr/(mu0*rs*ar); +disp(sprintf("(v) The relative permeability of the steel ring is %E",mur)); + +//solution (vi) +disp(sprintf("(vi) Reluctance of steel is %E AT/Wb",rs)); + +//END + + + + + diff --git a/1445/CH6/EX6.3/ch6_ex_3.sce b/1445/CH6/EX6.3/ch6_ex_3.sce new file mode 100644 index 000000000..f17dfaefc --- /dev/null +++ b/1445/CH6/EX6.3/ch6_ex_3.sce @@ -0,0 +1,49 @@ +//CHAPTER 6- MAGNETIC CIRCUITS +//Example 3 + +disp("CHAPTER 6"); +disp("EXAMPLE 3"); + +//VARIABLE INITIALIZATION +lg1=0.025/100; //length of 1st air-gap in m +a1=(1*1)/10000; //in m^2 +lg2=0.02/100; //length of 2nd air-gap in m +a2=(1*1)/10000; //in m^2 +lg3=0.02/100; //length of 3rd air-gap in m +a3=(2*1)/10000; //in m^2 +phi=0.75/1000; //in Wb +lc1=0.5; //length through outer limb in m +lc2=0.5; //length through outer limb in m +lc3=0.2; //length through central limb in m +mu0=4*%pi*10^(-7); //absolute permeability in Henry/m + +//SOLUTUION + +//solution (a): when mur=infinity i.e., no mmf drops in any member of the core +rg1=lg1/(mu0*a1); //reluctance of 1st air-gap +rg2=lg2/(mu0*a2); //reluctance of 2nd air-gap +rg3=lg3/(mu0*a3); //reluctance of 3rd air-gap +rgeq=(rg1*rg2)/(rg1+rg2); //rgeq=rg2||rg3 +mmf1=phi*(rgeq+rg3); +mmf1=round(mmf1); //to round off the value +disp(sprintf("(a) MMF of the exciting coil when permeability is infinity is %d AT",mmf1)); + +//solution (b): when mur=5000 i.e., reluctance of magnetic core must be considered +mur=5000; +rc1=lc1/(mu0*mur*a1); //reluctance of first path in the core +rc2=lc2/(mu0*mur*a2); //reluctance of second path in the core +rc3=lc3/(mu0*mur*a3); //reluctance of third path in the core +r1=rg1+rc1; +r2=rg2+rc2; +r3=rg3+rc3; +req=(r1*r2)/(r1+r2); +totr=req+r3; +mmf2=phi*totr; +mmf2=round(mmf2); +disp(sprintf("(b) MMF of the exciting coil when permeability is 5000 is %d AT",mmf2)); + +//END + + + + diff --git a/1445/CH6/EX6.4/ch6_ex_4.sce b/1445/CH6/EX6.4/ch6_ex_4.sce new file mode 100644 index 000000000..957c97a28 --- /dev/null +++ b/1445/CH6/EX6.4/ch6_ex_4.sce @@ -0,0 +1,41 @@ +//CHAPTER 6- MAGNETIC CIRCUITS +//Example 4 + +disp("CHAPTER 6"); +disp("EXAMPLE 4"); + +//VARIABLE INITIALIZATION +di=10; //diameter of iron ring in cm +dr=1.5; //diameter of iron rod in cm +mui=900; //relative permeability of rod +mu0=4*%pi*10^(-7); //absolute permeability in Henry/m +lg=5/10; //length of air-gap in cm +N=400; //number of turns +I=3.4; //current through the winding in Amperes + +//SOLUTION +li=(di*%pi)-lg; //length of iron path +area=((dr^2)*%pi)/4; //area of iron cross-section + +//solution (a) +mmf=(4*%pi*N*I)/10; //in gilberts, since 1 AT=(4*pi)/10 +mmf=round(mmf); //to round off the value +disp(sprintf("(a) MMF is %d Gilberts",mmf)); + +//solution (b) +//tot reluctance = iron reluctance + air gap reluctance(mur=1 for air) +totR=(li/(area*mu0*mui))+(lg/(area*mu0*1)); +disp(sprintf("(b) The total reluctance is %E Gilberts/Maxwell",totR)); + +//solution (c) +phi=mmf/totR; +disp(sprintf("(c) The flux in the circuit is %f Maxwell",phi)); + +//solution (d) +b=phi/area; +disp(sprintf("(d) The flux density in the circuit is %f Gauss",b)); + +//Answers of (b), (c) & (d) are different because absolute permeability is not included in (b) + +//END + diff --git a/1445/CH6/EX6.5/ch6_ex_5.sce b/1445/CH6/EX6.5/ch6_ex_5.sce new file mode 100644 index 000000000..f1c1e5afc --- /dev/null +++ b/1445/CH6/EX6.5/ch6_ex_5.sce @@ -0,0 +1,43 @@ +//CHAPTER 6- MAGNETIC CIRCUITS +//Example 5 + +disp("CHAPTER 6"); +disp("EXAMPLE 5"); + +//VARIABLE INITIALIZATION +li=100/100; //length of iron part in m +ls=200/100; //length of steel part in m +lg=1/100; //length of air gap in m +ai=20/10000; //cross-sectional area of iron in m^2 +as=10/10000; //cross-sectional area of steel in m^2 +ag=20/10000; //cross-sectional area of air-gap in m^2 +muRi=300; //relative permeability of iron +muRs=900; //relative permeability of steel +muRg=1; //relative permeability of air +N=170; //number of turns +phi=9000*10^(-8); //flux in Wb (1 line = 10^(-8) Wb) +lkg=1.2; //leakage coefficient +mu0=4*%pi*10^(-7); //absolute permeability in Henry/m + +//SOLUTION +rg=lg/(mu0*muRg*ag); +mg=rg*phi; +mg=round(mg); //to round off the value +disp(sprintf("MMF of the air gap is %d AT",mg)); + +ri=li/(mu0*muRi*ai); +mi=lkg*ri*phi; +mi=round(mi); +disp(sprintf("MMF of iron is %d AT",mi)); + +rs=ls/(mu0*muRs*as); +ms=lkg*rs*phi; +ms=round(ms); +disp(sprintf("MMF of cast steel is %d AT",ms)); + +totMMF=mg+mi+ms; +I=totMMF/N; +disp(sprintf("Current through the coil is %f A",I)); + +//END + diff --git a/1445/CH7/EX7.1/ch7_ex_1.sce b/1445/CH7/EX7.1/ch7_ex_1.sce new file mode 100644 index 000000000..1c326044f --- /dev/null +++ b/1445/CH7/EX7.1/ch7_ex_1.sce @@ -0,0 +1,30 @@ +//CHAPTER 7- SINGLE PHASE TRANSFORMER +//Example 1 + +disp("CHAPTER 7"); +disp("EXAMPLE 1"); + +//VARIABLE INITIALIZATION +I_0=10; //no load current in Amperes +pf=0.25; //power factor +v1=400; //in Volts +f=50; //in Hertz + +//SOLUTION + +//solution (a) +theta=acos(pf); +I_phi=I_0*sin(theta); +disp(sprintf("(a) The magnetizing component of no load current is %f A",I_phi)); + +//solution (b) +p_c=v1*I_0*pf; +disp(sprintf("(b) The iron loss is %d W",p_c)); + +//solution (c) +N1=500; +phi_m=v1/(sqrt(2)*%pi*f*N1); +disp(sprintf("(c) The maximum value of flux in the core is %f mWb",phi_m*1000)); + +//END + diff --git a/1445/CH7/EX7.10/ch7_ex_10.sce b/1445/CH7/EX7.10/ch7_ex_10.sce new file mode 100644 index 000000000..8409d82ea --- /dev/null +++ b/1445/CH7/EX7.10/ch7_ex_10.sce @@ -0,0 +1,28 @@ +//CHAPTER 7- SINGLE PHASE TRANSFORMER +//Example 10 + +disp("CHAPTER 7"); +disp("EXAMPLE 10"); + +//VARIABLE INITIALIZATION +v1=6600; //primary voltage in Volts +v2=220; //secondary voltage in Volts +coreA=0.05; //core section m^2 +fluxD=1.2; //flux density in wm/m^2 +f=50; //Hz + +//SOLUTION +//E1=4.44.f.N1.φm +phiM=coreA*fluxD; +N1=v1/(4.44*f*phiM); +N1=round(N1); +// +//N2=N1.E2/E1 +N2=N1*(v2/v1); +N2=round(N2); +disp(sprintf("The no. of turns on HT side is %f",N1)); +disp(sprintf("The no. of turns on LT side is %f",N2)); +disp(" "); +// +//END + diff --git a/1445/CH7/EX7.11/ch7_ex_11.sce b/1445/CH7/EX7.11/ch7_ex_11.sce new file mode 100644 index 000000000..9c41d49e9 --- /dev/null +++ b/1445/CH7/EX7.11/ch7_ex_11.sce @@ -0,0 +1,27 @@ +//CHAPTER 7- SINGLE PHASE TRANSFORMER +//Example 11 + +disp("CHAPTER 7"); +disp("EXAMPLE 11"); + +//VARIABLE INITIALIZATION +va=44000; // +v1=2200; //primary voltage in Volts +v2=220; //secondary voltage in Volts +N2=50; //turns in secondary coil + +//SOLUTION +// N1/N2=V1/V2 +N1=N2*(v1/v2); +disp("SOLUTION (a)"); +disp(sprintf("The no. of turns on HT side is %f",N1)); +// +//since losses are negligible, input=output, V1I1=V2I2 +I1=va/v1; +I2=va/v2; +disp("SOLUTION (b)"); +disp(sprintf("The primary full load current is %f Amp",I1)); +disp(sprintf("The secondary full load current is %f Amp",I2)); +disp(" "); +// +//END diff --git a/1445/CH7/EX7.12/ch7_ex_12.sce b/1445/CH7/EX7.12/ch7_ex_12.sce new file mode 100644 index 000000000..ee0c6f904 --- /dev/null +++ b/1445/CH7/EX7.12/ch7_ex_12.sce @@ -0,0 +1,31 @@ +//CHAPTER 7- SINGLE PHASE TRANSFORMER +//Example 12 + +disp("CHAPTER 7"); +disp("EXAMPLE 12"); + +//VARIABLE INITIALIZATION +v1=400; //primary voltage in Volts +f=50; //Hz +Io=10; //in Amp no load current +pf =0.25; //lagging +N1=500; //given + +//SOLUTION +// N1/N2=V1/V2 +phi0=acos(pf); +Iphi=Io*sin(phi0); +disp("SOLUTION (a)"); +disp(sprintf("The magnetic component of no load current is %f Amp",Iphi)); +// +ironLoss=v1*Io*pf; +disp("SOLUTION (b)"); +disp(sprintf("The iron loss on no load is %f W",ironLoss)); +// +//E1=4.44.f.N1.φm +phiM=v1/(4.44*f*N1); +disp("SOLUTION (c)"); +disp(sprintf("The value of flux in the core is %f Wb",phiM)); +disp(" "); +// +//END diff --git a/1445/CH7/EX7.13/ch7_ex_13.sce b/1445/CH7/EX7.13/ch7_ex_13.sce new file mode 100644 index 000000000..c217cb56d --- /dev/null +++ b/1445/CH7/EX7.13/ch7_ex_13.sce @@ -0,0 +1,27 @@ +//CHAPTER 7- SINGLE PHASE TRANSFORMER +//Example 13 + +disp("CHAPTER 7"); +disp("EXAMPLE 13"); + +//VARIABLE INITIALIZATION +v1=230; //primary voltage in Volts +v2=115; +f=50; //Hz +Io=2; //in Amp no load current +pf0 =0.28; //lagging +I2=20; // +pf2=0.8; //lagging + +//SOLUTION +// +phi0=acos(pf0); +phi2=acos(pf2); +I_dash_2=I2*v2/v1; +Ix=Io*sin(phi0)+I_dash_2*sin(phi2); +Iy=Io*cos(phi0)+I_dash_2*cos(phi2); +I1=sqrt(Ix^2+Iy^2); +disp(sprintf("The current taken by primary is %f Amp",I1)); +disp(" "); +// +//END diff --git a/1445/CH7/EX7.14/ch7_ex_14.sce b/1445/CH7/EX7.14/ch7_ex_14.sce new file mode 100644 index 000000000..3771b28b0 --- /dev/null +++ b/1445/CH7/EX7.14/ch7_ex_14.sce @@ -0,0 +1,50 @@ +//CHAPTER 7- SINGLE PHASE TRANSFORMER +//Example 14 + +disp("CHAPTER 7"); +disp("EXAMPLE 14"); + +//VARIABLE INITIALIZATION +va=22000; //apparent power +v1=1100; //primary voltage in Volts +v2=110; //secondary voltage in Volts +R1=2; //in Ohms +R2=0.02; //in Ohms +X1=5; //in Ohms +X2=0.045; //in Ohms + +//SOLUTION +//N1byN2=v1/v2; + +R_dash_2=R2*((v1/v2)^2); +X_dash_2=X2*((v1/v2)^2); +disp("SOLUTION (a)"); +disp(sprintf("The equivalent resistance of secondary referred to primary is %fΩ",R_dash_2)); +disp(sprintf("The equivalent reactance of secondary referred to primary is %f Ω",X_dash_2)); +// +R_e1=R_dash_2+R1; +X_e1=X_dash_2+X1; +disp("SOLUTION (b)"); +disp(sprintf("The total resistance referred to primary is %f Ω",R_e1)); +disp(sprintf("The total reactance referred to primary is %f Ω",X_e1)); +// +R_dash_1=R1*((v2/v1)^2); +X_dash_1=X1*((v2/v1)^2); +disp("SOLUTION (c)"); +disp(sprintf("The equivalent resistance of secondary referred to secondary is %f Ω",R_dash_1)); +disp(sprintf("The equivalent reactance of secondary referred to secondary is %f Ω",X_dash_1)); +// +R_e2=R_dash_1+R2; +X_e2=X_dash_1+X2; +disp("SOLUTION (d)"); +disp(sprintf("The total resistance referred to secondary is %f Ω",R_e2)); +disp(sprintf("The total reactance referred to secondary is %f Ω",X_e2)); +// +I1=va/v1; +I2=va/v2; +copperLoss=R1*I1^2+R2*I2^2; +disp("SOLUTION (e)"); +disp(sprintf("The total copper loss is %f W",copperLoss)); +disp(" "); +// +//END diff --git a/1445/CH7/EX7.15/ch7_ex_15.sce b/1445/CH7/EX7.15/ch7_ex_15.sce new file mode 100644 index 000000000..309cbc524 --- /dev/null +++ b/1445/CH7/EX7.15/ch7_ex_15.sce @@ -0,0 +1,38 @@ +//CHAPTER 7- SINGLE PHASE TRANSFORMER +//Example 15 + +disp("CHAPTER 7"); +disp("EXAMPLE 15"); + +//VARIABLE INITIALIZATION +va=20000; //apparent power +v1=2000; //primary voltage in Volts +v2=200; //secondary voltage in Volts +R1=2.5; //in Ohms +R2=0.04; //in Ohms +X1=8; //in Ohms +X2=0.07; //in Ohms +pf2=0.8; + +//SOLUTION +//N1byN2=v1/v2; +I2=va/v2; +phi2=acos(pf2); +// +R_dash_1=R1*((v2/v1)^2); +X_dash_1=X1*((v2/v1)^2); +// +R_e2=R_dash_1+R2; +X_e2=X_dash_1+X2; +//disp(sprintf("The total resistance referred to secondary is %f Ω",R_e2)); +//disp(sprintf("The total reactance referred to secondary is %f Ω",X_e2)); +// +//R=ercosphi2+vx.sinphi2 +//E2=V2+I2.R +V2=v2-(I2*R_e2*pf2+I2*X_e2*sin(phi2)); +%reg=(v2-V2)*100/v2; +disp(sprintf("The secondary terminal voltage is %f V",V2)); +disp(sprintf("The percent regulation at full load is %f",%reg)); +disp(" "); +// +//END diff --git a/1445/CH7/EX7.16/ch7_ex_16.sce b/1445/CH7/EX7.16/ch7_ex_16.sce new file mode 100644 index 000000000..b878ffd23 --- /dev/null +++ b/1445/CH7/EX7.16/ch7_ex_16.sce @@ -0,0 +1,46 @@ +//CHAPTER 7- SINGLE PHASE TRANSFORMER +//Example 16 + +disp("CHAPTER 7"); +disp("EXAMPLE 16"); + +//VARIABLE INITIALIZATION +va=20000; //apparent power +v1=2000; //primary voltage in Volts +v2=200; //secondary voltage in Volts +R1=2.5; //in Ohms +R2=0.04; //in Ohms +X1=8; //in Ohms +X2=0.07; //in Ohms +pf2=0.8; + +//SOLUTION +//N1byN2=v1/v2; +I2=va/v2; +phi2=acos(pf2); + +// +R_dash_1=R1*((v2/v1)^2); +X_dash_1=X1*((v2/v1)^2); +// +R_e2=R_dash_1+R2; +X_e2=X_dash_1+X2; +//disp(sprintf("The total resistance referred to secondary is %f Ω",R_e2)); +//disp(sprintf("The total reactance referred to secondary is %f Ω",X_e2)); +// +//power factor angle at which regulation is zero is given by tan.phi2=-Re2/Xe2 +phi2=atan(-R_e2/X_e2); +disp(sprintf("The PF at which the regulation is zero is %f",cos(phi2))); +// +//power factor angle at which regulation is maximum is given by tan.phi2=Xe2/Re2 +phi2=atan(X_e2/R_e2); +disp(sprintf("The PF at which the regulation is maximum is %f",cos(phi2))); +//R=ercosphi2+vx.sinphi2 +//E2=V2+I2.R + +V2=v2-(I2*R_e2*cos(phi2)+I2*X_e2*sin(phi2)); +%reg=(v2-V2)*100/v2; +disp(sprintf("The maximum value of percent regulation is %f ",%reg)); +disp(" "); +// +//END diff --git a/1445/CH7/EX7.17/ch7_ex_17.sce b/1445/CH7/EX7.17/ch7_ex_17.sce new file mode 100644 index 000000000..42758d943 --- /dev/null +++ b/1445/CH7/EX7.17/ch7_ex_17.sce @@ -0,0 +1,42 @@ +//CHAPTER 7- SINGLE PHASE TRANSFORMER +//Example 17 + +disp("CHAPTER 7"); +disp("EXAMPLE 17"); + +//VARIABLE INITIALIZATION +va=200000; // +ironLoss=1000; // Watts +cuLoss=2000; //Watts +pf=0.8; +// +//SOLUTION +// +Pout=va*pf; +loss=ironLoss+cuLoss; +Pin=Pout+loss; +eff=Pout*100/Pin; +disp("SOLUTION (a)"); +disp(sprintf("The percent efficiency at full load is %f",eff)); +// +//at half load +Pout=va*pf/2; +loss=ironLoss+cuLoss*(1/2)^2; +Pin=Pout+loss; +eff=Pout*100/Pin; +disp("SOLUTION (b)"); +disp(sprintf("The percent efficiency at full load is %f",eff)); +// +//fraction x of copperloss=ironloss for maximum efficiency +//x^2.cuLoss=ironLoss +x=sqrt(ironLoss/cuLoss); +Pout=x*va*pf; +loss=ironLoss+cuLoss*x^2; +Pin=Pout+loss; +eff=Pout*100/Pin; +disp("SOLUTION (c)"); +disp(sprintf("The percent efficiency at %f load is %f ",x,eff)); + +disp(" "); +// +//END diff --git a/1445/CH7/EX7.18/ch7_ex_18.sce b/1445/CH7/EX7.18/ch7_ex_18.sce new file mode 100644 index 000000000..d60c214e0 --- /dev/null +++ b/1445/CH7/EX7.18/ch7_ex_18.sce @@ -0,0 +1,46 @@ +//CHAPTER 7- SINGLE PHASE TRANSFORMER +//Example 18 + +disp("CHAPTER 7"); +disp("EXAMPLE 18"); + +//VARIABLE INITIALIZATION +va=400000; // +ironLoss=1500; // Watts +cuLoss=4000; //Watts +//during the day frommidnight to midnight is as below: +h1=6; //first 6 hours from midnight to 6 hrs +load1=0; +pf1=0; +h2=6; //next 6 hours from 6 am to noon +load2=100000; //kVA converted to VA +pf2=0.8; +h3=5; //next from noon to 5 pm +load3=400000; +pf3=0.8; +h4=3; //next from 5 pm to 8 pm +load4=300000; +pf4=0.7; +h5=4; //next from 8 pm to midnight +load5=200000; +pf5=0.85; +// +//SOLUTION +// +//energy loss at any load=(VA output/VA rated)^2 .Full load cuLoss +loss1=h1*load1; +loss2=h2*(load2/va)^2*cuLoss; +loss3=h3*(load3/va)^2*cuLoss; +loss4=h4*(load4/va)^2*cuLoss; +loss5=h5*(load5/va)^2*cuLoss; +//loss in 24 hours +loss24=loss1+loss2+loss3+loss4+loss5; +//disp(sprintf("The all day loss is %f ",loss24)); +Pout=h1*load1*pf1+h2*load2*pf2+h3*load3*pf3+h4*load4*pf4+h5*load5*pf5; +//disp(sprintf("The all day energy output is %f ",Pout)); +Pin=Pout+ironLoss*24+loss24; +eff=Pout*100/Pin; +disp(sprintf("The all day percent efficiency is %f ",eff)); +disp(" "); +// +//END diff --git a/1445/CH7/EX7.19/ch7_ex_19.sce b/1445/CH7/EX7.19/ch7_ex_19.sce new file mode 100644 index 000000000..03fc658d7 --- /dev/null +++ b/1445/CH7/EX7.19/ch7_ex_19.sce @@ -0,0 +1,66 @@ +//CHAPTER 7- SINGLE PHASE TRANSFORMER +//Example 19 + +disp("CHAPTER 7"); +disp("EXAMPLE 19"); + +//VARIABLE INITIALIZATION +va=10000; //apparent power +v1=500; //primary voltage in Volts +v2=250; //secondary voltage in Volts +f=50; +//open circuit parameters +Voc=500; +Io=2; +Wi=100; // watts HT side +Woc=Wi; //just another nomenclature +//short circuit test +Vsc=25; +Isc=20; +Wc=90; // watts HT side +// +pf=0.8; +//SOLUTION +//open circuit +phi0=acos(Woc/(v1*Io)); +Ic=Io*cos(phi0); +Iphi=Io*sin(phi0); +Rc=v1/Ic; +X=v1/Iphi; +disp("SOLUTION (a)"); +disp(sprintf("The value of Ic is %f Amp",Ic)); +disp(sprintf("The value of IΦ is %f Amp",Iphi)); +disp(sprintf("The value of Rc is %f Ohm",Rc)); +disp(sprintf("The value of X is %fΩ",X)); +// +//short circuit +phisc=acos(Wc/(Vsc*Isc)); +pf1=cos(phisc); +R_e1=Vsc*pf1/Isc; +Z_e1=Vsc/Isc; +X_e1=sqrt(Z_e1^2-R_e1^2); +disp(sprintf("The value of Power factor is %f",pf1)); +disp(sprintf("The value of Re1 is %f Ohm",R_e1)); +disp(sprintf("The value of Ze1 is %f Ohm",Z_e1)); +disp(sprintf("The value of Xe1 is %fΩ",X_e1)); +// +I1=va/v1; +phi=acos(pf); +//R=ercosphi2+vx.sinphi2 +//E2=V2+I2.R +%reg=(Isc*R_e1*pf+Isc*X_e1*sin(phi))*100/v1; +disp("SOLUTION (c(i))"); +disp(sprintf("The percent regulation at full load is %f",%reg)); +// +//full load output at pf=0.8 +Pout=va*pf; +ironLoss=Wi; +cuLoss=Wc; +loss=ironLoss+cuLoss; +Pin=Pout+loss; +eff=Pout*100/Pin; +disp("SOLUTION (c(ii))"); +disp(sprintf("The percent efficiency at full load is %f",eff)); +disp(" "); +// +//END diff --git a/1445/CH7/EX7.2/ch7_ex_2.sce b/1445/CH7/EX7.2/ch7_ex_2.sce new file mode 100644 index 000000000..ac414b445 --- /dev/null +++ b/1445/CH7/EX7.2/ch7_ex_2.sce @@ -0,0 +1,32 @@ +//CHAPTER 7- SINGLE PHASE TRANSFORMER +//Example 2 + +disp("CHAPTER 7"); +disp("EXAMPLE 2"); + +//VARIABLE INITIALIZATION +v1=400; //primary voltage in Volts +v2=200; //secondary voltage in Volts +I0=1; //in Amperes +pf1=0.4; //power factor in degrees +I2=50; //secondary current in Amperes +pf2=0.8; //lagging power factor in degrees + +//SOLUTION + +//function to convert from polar to rectangular form +function [x,y]=pol2rect(mag,angle1); +x=mag*cos(angle1); +y=mag*sin(angle1); +endfunction; + +phi_0=acos(pf1); +phi=acos(pf2); +I2_dash=(v2*I2)/v1; +[x0,y0]=pol2rect(I0,-phi_0); +[x2_dash,y2_dash]=pol2rect(I2_dash,-phi); +I1_x=x0+x2_dash; //x-component of I1 +I1_y=y0+y2_dash; //y-component of I1 +disp(sprintf("The primary current in reactangular form is (%f-j%f) A",I1_x,-I1_y)); + +//END diff --git a/1445/CH7/EX7.20/ch7_ex_20.sce b/1445/CH7/EX7.20/ch7_ex_20.sce new file mode 100644 index 000000000..44a1e8bcd --- /dev/null +++ b/1445/CH7/EX7.20/ch7_ex_20.sce @@ -0,0 +1,40 @@ +//CHAPTER 7- SINGLE PHASE TRANSFORMER +//Example 20 + +disp("CHAPTER 7"); +disp("EXAMPLE 20"); + +//VARIABLE INITIALIZATION +va=4000; //apparent power +v1=200; //primary voltage in Volts +v2=400; //secondary voltage in Volts +f=50; +R_e1=0.15; +Pi=60; //core losses iron core +pf1=0.9; +pf2=0.8; + +//SOLUTION +R_e2=(v2/v1)^2*R_e1; +I1=va/v1; +I2=va/v2; +Pcu=I2^2*R_e2; //cu losses +disp("SOLUTION (i)"); +disp(sprintf("The value of Copper Losses at full load is %f W",Pcu)); +// +Pout=va*pf1; +Pin=Pout+Pi+Pcu; +eff=Pout*100/Pin; +disp("SOLUTION (ii)"); +disp(sprintf("The percent efficiency at full load %f PF is %f",pf1,eff)); +// +//at half load +Pout=va*pf2/2; +Pin=Pout+Pi+Pcu*(1/2)^2; +eff=Pout*100/Pin; +disp("SOLUTION (ii)"); +disp(sprintf("The percent efficiency at full load %f PF is %f",pf2,eff)); + +disp(" "); +// +//END diff --git a/1445/CH7/EX7.21/ch7_ex_21.sce b/1445/CH7/EX7.21/ch7_ex_21.sce new file mode 100644 index 000000000..62f944d87 --- /dev/null +++ b/1445/CH7/EX7.21/ch7_ex_21.sce @@ -0,0 +1,35 @@ +//CHAPTER 7- SINGLE PHASE TRANSFORMER +//Example 21 + +disp("CHAPTER 7"); +disp("EXAMPLE 21"); + +//VARIABLE INITIALIZATION +va=5000; //apparent power +v1=250; //primary voltage in Volts +v2=125; //secondary voltage in Volts +R1=0.2; +X1=0.75; +R2=0.05; +X2=0.2; +pf=0.8; //leading + +//SOLUTION +R_e2=(v2/v1)^2*R1+R2; +X_e2=(v2/v1)^2*X1+X2; +I1=va/v1; +I2=va/v2; +// +//at full load leading +phi=acos(pf); +%reg=(I2*R_e2*pf-I2*X_e2*sin(phi))*100/v2; +disp("SOLUTION (i)"); +disp(sprintf("The percent regulation at full load is %f",%reg)); +// +//%R=(E2-V2).100/E2 +V2=v2-%reg*v2/100; +disp("SOLUTION (ii)"); +disp(sprintf("The secondary terminal at full load is %f V",V2)); +disp(" "); +// +//END diff --git a/1445/CH7/EX7.22/ch7_ex_22.sce b/1445/CH7/EX7.22/ch7_ex_22.sce new file mode 100644 index 000000000..105b35b3e --- /dev/null +++ b/1445/CH7/EX7.22/ch7_ex_22.sce @@ -0,0 +1,27 @@ +//CHAPTER 7- SINGLE PHASE TRANSFORMER +//Example 22 + +disp("CHAPTER 7"); +disp("EXAMPLE 22"); + +//VARIABLE INITIALIZATION +v1=6600; //primary voltage in Volts +v2=400; //secondary voltage in Volts +R1=2.5; +R2=0.01; +X2=0.2; +pf=0.8; //leading + +//SOLUTION +//transfer R2 resistance to R'2 +R_dash_2=R2*(v1/v2)^2; +R_e1=R1+R_dash_2; +// +R_dash_1=R1*(v2/v1)^2; +R_e2=R2+R_dash_1; +// +disp(sprintf("The total equivalent resistance referred to primary is %f Ω",R_e1)); +disp(sprintf("The total equivalent resistance referred to secondary is %f Ω",R_e2)); +disp(" "); +// +//END diff --git a/1445/CH7/EX7.23/ch7_ex_23.sce b/1445/CH7/EX7.23/ch7_ex_23.sce new file mode 100644 index 000000000..39a725cd2 --- /dev/null +++ b/1445/CH7/EX7.23/ch7_ex_23.sce @@ -0,0 +1,60 @@ +//CHAPTER 7- SINGLE PHASE TRANSFORMER +//Example 23 + +disp("CHAPTER 7"); +disp("EXAMPLE 23"); + +//VARIABLE INITIALIZATION +va=33000; +v1=2200; //primary voltage in Volts +v2=220; //secondary voltage in Volts +f=50; +R1=2.4; +X1=6; +R2=0.03; +X2=0.07; + +//SOLUTION +// +R_dash_2=R2*(v1/v2)^2; +R_e1=R1+R_dash_2; +X_dash_2=X2*(v1/v2)^2; +X_e1=X1+X_dash_2; +// +R_dash_1=R1*(v2/v1)^2; +R_e2=R2+R_dash_1; +X_dash_1=X1*(v2/v1)^2; +X_e2=X2+X_dash_1; + +disp("SOLUTION (a)"); +disp(sprintf("The primary resistance referred to secondary %f Ω",R_dash_1)); +disp(sprintf("The primary leakage reactance referred to secondary %f Ω",X_dash_1)); +// +disp("SOLUTION (b)"); +disp(sprintf("The secondary resistance referred to secondary %f Ω",R_dash_2)); +disp(sprintf("The secondary leakage reactance referred to secondary %f Ω",X_dash_2)); +// +disp("SOLUTION (C(i))"); +disp(sprintf("The equivalent resistance referred to primary %f Ω",R_e1)); +disp(sprintf("The equivalent leakage reactance referred to primary %f Ω",X_e1)); +// +disp("SOLUTION (C(ii))"); +disp(sprintf("The equivalent resistance referred to secondaryy %f Ω",R_e2)); +disp(sprintf("The equivalent leakage reactance referred to secondary %f Ω",X_e2)); +// +I1=va/v1; +I2=va/v2; +oLoss=I2^2*R_e2; +disp("SOLUTION (d)"); +disp(sprintf("The ohmic loss at full load %f W",oLoss)); +// +Z_e1=sqrt(R_e1^2+X_e1^2); +//voltage to be applied on HV side +V=160*(v2/v1)*Z_e1; +P=(160*(v2/v1))^2*R_e1; +disp("SOLUTION (e)"); +disp(sprintf("The voltage to be applied on HV side is %f V",V)); +disp(sprintf("The power input is %f W",P)); +disp(" "); +// +//END diff --git a/1445/CH7/EX7.24/ch7_ex_24.sce b/1445/CH7/EX7.24/ch7_ex_24.sce new file mode 100644 index 000000000..46b03988a --- /dev/null +++ b/1445/CH7/EX7.24/ch7_ex_24.sce @@ -0,0 +1,43 @@ +//CHAPTER 7- SINGLE PHASE TRANSFORMER +//Example 24 + +disp("CHAPTER 7"); +disp("EXAMPLE 24"); + +//VARIABLE INITIALIZATION +va=10000; +v1=2500; //primary voltage in Volts +v2=250; //secondary voltage in Volts +R1=4.8; +X1=11.2; +R2=0.048; +X2=0.112; + +//SOLUTION +// +R_dash_2=R2*(v1/v2)^2; +R_e1=R1+R_dash_2; +X_dash_2=X2*(v1/v2)^2; +X_e1=X1+X_dash_2; +// +R_dash_1=R1*(v2/v1)^2; +R_e2=R2+R_dash_1; +X_dash_1=X1*(v2/v1)^2; +X_e2=X2+X_dash_1; +//leakage impedence +z0=R_e2+X_e2*%i; +//applied load +Zl=5+3.5*%i; +//total impedence in series +Z=z0+Zl; +magZ=sqrt(real(Z)^2+imag(Z)^2); +magZl=sqrt(real(Zl)^2+imag(Zl)^2); +I2=v2/magZ; +V2=I2*magZl +disp("SOLUTION (a)"); +disp(sprintf("The secondary terminal voltage is %f V",V2)); +// +//part (b) of the problem cannot be solved mathematically alone. +disp(" "); +// +//END diff --git a/1445/CH7/EX7.25/ch7_ex_25.sce b/1445/CH7/EX7.25/ch7_ex_25.sce new file mode 100644 index 000000000..eaae0cb77 --- /dev/null +++ b/1445/CH7/EX7.25/ch7_ex_25.sce @@ -0,0 +1,55 @@ +//CHAPTER 7- SINGLE PHASE TRANSFORMER +//Example 25 + +disp("CHAPTER 7"); +disp("EXAMPLE 25"); + +//VARIABLE INITIALIZATION +va=25000; +v1=2200; //primary voltage in Volts +v2=110; //secondary voltage in Volts +f=50; +R1=1.75; +X1=2.6; +R2=0.0045; +X2=0.0075; + +//SOLUTION +// +R_dash_2=R2*(v1/v2)^2; +R_e1=R1+R_dash_2; +X_dash_2=X2*(v1/v2)^2; +X_e1=X1+X_dash_2; +// +R_dash_1=R1*(v2/v1)^2; +R_e2=R2+R_dash_1; +X_dash_1=X1*(v2/v1)^2; +X_e2=X2+X_dash_1; +// +Z_e1=R_e1+X_e1*%i; +Z_e2=R_e2+X_e2*%i; +magZ_e1=sqrt(real(Z_e1)^2+imag(Z_e1)^2); +magZ_e2=sqrt(real(Z_e2)^2+imag(Z_e2)^2); +// +disp("SOLUTION (C(i))"); +disp("SOLUTION (a)"); +disp(sprintf("The equivalent resistance referred to primary %f Ω",R_e1)); +disp("SOLUTION (b)"); +disp(sprintf("The equivalent resistance referred to secondaryy %f Ω",R_e2)); +disp("SOLUTION (c)"); +disp(sprintf("The equivalent leakage reactance referred to primary %f Ω",X_e1)); +disp("SOLUTION (d)"); +disp(sprintf("The equivalent leakage reactance referred to secondary %f Ω",X_e2)); +disp("SOLUTION (e)"); +disp(sprintf("The equivalent impedance referred to primary %f Ω",magZ_e1)); +disp("SOLUTION (f)"); +disp(sprintf("The equivalent impedance referred to secondary %f Ω",magZ_e2)); +// +I1=va/v1; +I2=va/v2; +Pcu=I2^2*R_e2; +disp("SOLUTION (d)"); +disp(sprintf("The copper loss at full load %f W",Pcu)); +disp(" "); +// +//END diff --git a/1445/CH7/EX7.26/ch7_ex_26.sce b/1445/CH7/EX7.26/ch7_ex_26.sce new file mode 100644 index 000000000..71049f9d5 --- /dev/null +++ b/1445/CH7/EX7.26/ch7_ex_26.sce @@ -0,0 +1,66 @@ +//CHAPTER 7- SINGLE PHASE TRANSFORMER +//Example 26 + +disp("CHAPTER 7"); +disp("EXAMPLE 26"); + +//VARIABLE INITIALIZATION +va=10000; //apparent power +v1=500; //primary voltage in Volts +v2=250; //secondary voltage in Volts +f=50; +//open circuit parameters +Voc=500; +Io=2; +Wi=100; // watts HT side +Woc=Wi; //just to keep symbology +//short circuit test +Vsc=25; +Isc=20; +Wc=90; // watts HT side +// +pf=0.8; +//SOLUTION +//open circuit +phi0=acos(Woc/(v1*Io)); +Ic=Io*cos(phi0); +Iphi=Io*sin(phi0); +Rc=v1/Ic; +X=v1/Iphi; +disp("SOLUTION (a)"); +disp(sprintf("The value of Ic is %f Amp",Ic)); +disp(sprintf("The value of IΦ is %f Amp",Iphi)); +disp(sprintf("The value of Rc is %f Ohm",Rc)); +disp(sprintf("The value of X is %fΩ",X)); +// +//short circuit +phisc=acos(Wc/(Vsc*Isc)); +pf1=cos(phisc); +R_e1=Vsc*pf1/Isc; +Z_e1=Vsc/Isc; +X_e1=sqrt(Z_e1^2-R_e1^2); +disp(sprintf("The value of Power factor is %f",pf1)); +disp(sprintf("The value of Re1 is %f Ohm",R_e1)); +disp(sprintf("The value of Ze1 is %f Ohm",Z_e1)); +disp(sprintf("The value of Xe1 is %fΩ",X_e1)); +// +I1=va/v1; +phi=acos(pf); +//R=ercosphi2+vx.sinphi2 +//E2=V2+I2.R +%reg=(Isc*R_e1*pf+Isc*X_e1*sin(phi))*100/v1; +disp("SOLUTION (c(i))"); +disp(sprintf("The percent regulation at full load is %f",%reg)); +// +//full load output at pf=0.8 +Pout=va*pf; +ironLoss=Wi; +cuLoss=Wc; +loss=ironLoss+cuLoss; +Pin=Pout+loss; +eff=Pout*100/Pin; +disp("SOLUTION (c(ii))"); +disp(sprintf("The percent efficiency at full load is %f",eff)); +disp(" "); +// +//END diff --git a/1445/CH7/EX7.27/ch7_ex_27.sce b/1445/CH7/EX7.27/ch7_ex_27.sce new file mode 100644 index 000000000..ed201edae --- /dev/null +++ b/1445/CH7/EX7.27/ch7_ex_27.sce @@ -0,0 +1,69 @@ +//CHAPTER 7- SINGLE PHASE TRANSFORMER +//Example 27 + +disp("CHAPTER 7"); +disp("EXAMPLE 27"); + +//VARIABLE INITIALIZATION +va=200000; //apparent power +v1=11000; //primary voltage in Volts +v2=400; //secondary voltage in Volts +f=50; +//open circuit parameters +V3=400; +I3=9; +W3=1500; // watts HT side +//short circuit test +Vsc=350; +Isc=20; +Wc=2100; // watts HT side +// +pf=0.8; +//SOLUTION +Voc=V3/sqrt(3); +Io=9; +Wi=W3/3; // watts HT side +Pc=Wi; //core losses +//open circuit +phi0=acos(Wi/(Voc*Io)); +Ic=Io*cos(phi0); +Iphi=Io*sin(phi0); +Rc=Voc/Ic; +X=Voc/Iphi; +disp("SOLUTION (a)"); +disp(sprintf("The value of Ic is %f Amp",Ic)); +disp(sprintf("The value of IΦ is %f Amp",Iphi)); +disp(sprintf("The value of Rc is %f Ohm",Rc)); +disp(sprintf("The value of X is %fΩ",X)); +// +//core loss resistance referred to hv side +Rch=Rc*(v1/Voc)^2; +XphiH=X*(v1/Voc)^2; +disp(sprintf("The value of Rch is %f kΩ",Rch/1000)); +disp(sprintf("The value of XΦh is %f KΩ",XphiH/1000)); +//short circuit +//first find rated current +Isc=va/(3*v1); +Psc=Wc/3; //ohmic loss per phase +phisc=acos(Wc/(Vsc*Isc)); +pf1=cos(phisc); +R_e1=Psc/Isc^2; +Z_e1=Vsc/Isc; +X_e1=sqrt(Z_e1^2-R_e1^2); +disp(sprintf("The value of Power factor is %f",pf1)); +disp(sprintf("The value of Re1 is %f Ohm",R_e1)); +disp(sprintf("The value of Ze1 is %f Ohm",Z_e1)); +disp(sprintf("The value of Xe1 is %fΩ",X_e1)); +// +//efficiency at half load +pf=1; //unity power factor +Pout=(va/3)*(1/2)*pf; +//core losses=Pc +//cuLosses ohmic loss =Psc +Pin=Pout+Pc+(1/2)^2*Psc; +eff=Pout*100/Pin; +disp(sprintf("The efficiency at half load is %f",eff)); + +disp(" "); +// +//END diff --git a/1445/CH7/EX7.28/ch7_ex_28.sce b/1445/CH7/EX7.28/ch7_ex_28.sce new file mode 100644 index 000000000..8d9b3185f --- /dev/null +++ b/1445/CH7/EX7.28/ch7_ex_28.sce @@ -0,0 +1,94 @@ +//CHAPTER 7- SINGLE PHASE TRANSFORMER +//Example 28 + +disp("CHAPTER 7"); +disp("EXAMPLE 28"); + +//VARIABLE INITIALIZATION +va=10000; //apparent power +v1=2500; //primary voltage in Volts +v2=250; //secondary voltage in Volts +f=50; +//open circuit parameters +Voc=250; +Io=0.8; +Wi=50; // watts HT side +//short circuit test +Vsc=60; +Isc=3; +Wc=45; // watts HT side +// +//loads +pf=0.8; +//SOLUTION +I1=va/v1; //full rated current on hv side +Psc0=Wc*(I1/Isc)^2; //ohmic loss/ cu loss at full load rated current +Pc=Wi; // core losses +// 1/4 load +Psc=(1/4)^2*Psc0; +Pout=va*pf*(1/4); +Pin=Pout+Pc+Psc; +eff=Pout*100/Pin; +disp("SOLUTION (a)"); +disp(sprintf("The efficiency at 1/4 load is %f",eff)); +// +// 1/2 load +Psc=(1/2)^2*Psc0; +Pout=va*pf*(1/2); +Pin=Pout+Pc+Psc; +eff=Pout*100/Pin; +disp(sprintf("The efficiency at 1/2 load is %f",eff)); +// +// full load +Psc=(1/1)^2*Psc0; +Pout=va*pf*(1/1); +Pin=Pout+Pc+Psc; +eff=Pout*100/Pin; +disp(sprintf("The efficiency at full load is %f",eff)); +// +// 1 1/4 = 5/4 load +Psc=(5/4)^2*Psc0; +Pout=va*pf*(5/4); +Pin=Pout+Pc+Psc; +eff=Pout*100/Pin; +disp(sprintf("The efficiency at 1 1/4 or 5/4 load is %f",eff)); +// +//maximum efficiency at x, but then ohmic loss=core loss +x=sqrt(Pc/Psc0); +Pout=va*x*pf; +Pin=Pout+Pc+Pc; //Ohmic losses = core losses at max efficiency +eff=Pout*100/Pin; +disp("SOLUTION (b)"); +disp(sprintf("The maximum efficiency is %f",eff)); +// +//short circuit +phisc=acos(Wc/(Vsc*Isc)); +pf1=cos(phisc); +R_e1=Vsc*pf1/Isc; +Z_e1=Vsc/Isc; +X_e1=sqrt(Z_e1^2-R_e1^2); +disp("SOLUTION (c)"); +disp(sprintf("The value of Re1 is %f Ohm",R_e1)); +disp(sprintf("The value of Ze1 is %f Ohm",Z_e1)); +disp(sprintf("The value of Xe1 is %fΩ",X_e1)); +// +//ee, ex; +er=I1*R_e1/v1; +ex=I1*X_e1/v1; +disp(sprintf("The value of Er is %f pu",er)); +disp(sprintf("The value of Ex is %f",ex)); +// +phi=acos(pf); +//R=ercosphi2+vx.sinphi2 +//E2=V2+I2.R +%reg=(I1*R_e1*pf+I1*X_e1*sin(phi))*100/v1; //same as using er and ex +disp(sprintf("The percent regulation at full load lagging is %f",%reg)); +%reg1=(I1*R_e1*pf-I1*X_e1*sin(phi))*100/v1; //same as using er and ex +disp(sprintf("The percent regulation at full load leading is %f",%reg1)); +V21=(1-%reg/100)*v2; +V22=(1-%reg1/100)*v2; +disp(sprintf("The secondary terminal voltage at full load lagging is %f",V21)); +disp(sprintf("The secondary terminal voltage at full load leading is %f",V22)); +disp(" "); +// +//END diff --git a/1445/CH7/EX7.29/ch7_ex_29.sce b/1445/CH7/EX7.29/ch7_ex_29.sce new file mode 100644 index 000000000..3a0def33d --- /dev/null +++ b/1445/CH7/EX7.29/ch7_ex_29.sce @@ -0,0 +1,58 @@ +//CHAPTER 7- SINGLE PHASE TRANSFORMER +//Example 29 + +disp("CHAPTER 7"); +disp("EXAMPLE 29"); + +//VARIABLE INITIALIZATION +va=200000; //apparent power +v1=4000; //primary voltage in Volts +v2=1000; //secondary voltage in Volts +f=50; +//loads +pf=1; +eff=0.97; // at full load and at 60% of full load +nlpf=0.5; //no load pf +lpf=0.8 //lagging pf +reg=0.05; //%regulation at 0.8 pf +// +//SOLUTION +loss=(1-eff)*va/eff; //=Pc+Pcu losses +//simultaneous equation to be solved +//eq 1: Pc+Pcu=loss; +//fractipon of copper/ ohmic losses +f=(0.6)^2; // 60% of full load +//the 2nd equation is Pc+f*Pcu=loss +//now the matrix +M=[1,1;1,f]; +A=[loss,loss*0.6]; +Mi=inv(M); +Ans=A*inv(M); +Pc=Ans(1,1); +Pcu=Ans(1,2); +//disp(sprintf("The Pc is %f",Pc)); +//disp(sprintf("The Pcu is %f",Pcu)); +//LV side +R_e2=Pcu/va; +//from %reg find X_e2 +phi=acos(lpf); +X_e2=(reg-R_e2*cos(phi))/sin(phi); +//in oms units +R_e2=R_e2*v2^2/va; // in ohms +X_e2=X_e2*v2^2/va; // in ohms +disp(sprintf("The Re2 is %f Ω",R_e2)); +disp(sprintf("The Xe2 is %f Ω",X_e2)); +// +Rc=v2^2/Pc; +Ie2=Pc/(v2*0.25); +Ic=Pc/v2; +Iphi=sqrt(Ie2^2-Ic^2); +Xphi=v2/Iphi; +disp(sprintf("The Rc is %f Ω",Rc)); +disp(sprintf("The Ie2 is %f A",Ie2)); +disp(sprintf("The Ic is %f A",Ic)); +disp(sprintf("The Iphi is %f A",Iphi)); +disp(sprintf("The Xphi is %f Ω",Xphi)); +disp(" "); +// +//END diff --git a/1445/CH7/EX7.3/ch7_ex_3.sce b/1445/CH7/EX7.3/ch7_ex_3.sce new file mode 100644 index 000000000..980731a82 --- /dev/null +++ b/1445/CH7/EX7.3/ch7_ex_3.sce @@ -0,0 +1,67 @@ +//CHAPTER 7- SINGLE PHASE TRANSFORMER +//Example 3 + +disp("CHAPTER 7"); +disp("EXAMPLE 3"); + +//VARIABLE INITIALIZATION +v1=2300; //primary voltage in Volts +v2=230; //secondary voltage in Volts +f=50; +R1=0.286; +X1=0.73; +R_dash_2=0.319; +X_dash_2=0.73; +Rc=250; +Xphi=1250; +Zl=0.387+0.29*%i; +// +//SOLUTION +Z_e1=(R1+R_dash_2)+(X1+X_dash_2)*%i; +Z_dash_l=(v1/v2)^2*Zl; +// +I_dash_1=v1/(Z_dash_l+Z_e1); +//[mag,angle]=rect2pol(real(I_dash_1),imag(I_dash_1)); +//disp(sprintf("The current is %f <%f A",mag,angle)); +//impedance of shunt branch +Zm=Rc*(Xphi*%i)/(Rc+Xphi*%i); +//[mag,angle]=rect2pol(real(Zm),imag(Zm)); +//disp(sprintf("The Zm is %f <%f A",mag,angle)); +I0=v1/Zm; +//[mag,angle]=rect2pol(real(I0),imag(I0)); +//disp(sprintf("The I0 is %f <%f A",mag,angle)); +// +//primary current +I1=I0+I_dash_1; +function [mag,angle]=rect2pol(x,y); +mag=sqrt((x^2)+(y^2)); //z is impedance & the resultant of x and y +angle=atan(y/x)*(180/%pi); //to convert the angle from radians to degrees +endfunction; +[mag,angle]=rect2pol(real(I1),imag(I1)); +theta1=angle; +disp("SOLUTION (i)"); +disp(sprintf("The primay current is %f%f A",real(I1),imag(I1))); +disp(sprintf("The primay current is %f <%f A",mag,angle)); +// +//input power +Pin=v1*I1; ; //=I1.cos(theta1) +disp(sprintf("The input power is %f W",Pin)); +//output power +V_dash_2=I_dash_1*Z_dash_l; +[mag,angle]=rect2pol(real(V_dash_2),imag(V_dash_2)); +theta2=angle; +disp(sprintf("The V_dash_2 is %f <%f A",mag,angle)); +// +Pout= V_dash_2*I_dash_1; //I_dash_1.cos(theta1) +disp(sprintf("The output power is %f W",real(Pout))); +Pc=v1*I0; //core loss +loss=Pin-Pout; +Pcu=loss-Pc; //copper loss +disp(sprintf("The core loss is %f W",Pc)); +disp(sprintf("The copper loss is %f W",Pcu)); +//efficiency +eff=Pout*100/Pin; +disp(sprintf("The percent efficiency is %f W",eff)); +disp(" "); +// The answers from V_dash_2 calculation onward do not match with the book on page 7.21 and 7.22 +//END diff --git a/1445/CH7/EX7.30/ch7_ex_30.sce b/1445/CH7/EX7.30/ch7_ex_30.sce new file mode 100644 index 000000000..ad002b39f --- /dev/null +++ b/1445/CH7/EX7.30/ch7_ex_30.sce @@ -0,0 +1,21 @@ +//CHAPTER 7- SINGLE PHASE TRANSFORMER +//Example 30 + +disp("CHAPTER 7"); +disp("EXAMPLE 30"); + +//VARIABLE INITIALIZATION +v1=6600; //primary voltage in Volts +v2=440; //secondary voltage in Volts +e_r=0.02; //equivalent resistance +e_x=0.05; //equivalent reactance +pf=0.8; +// +//SOLUTION +phi=acos(pf); +reg=e_r*cos(phi)+e_x*sin(phi); +V2=v2*(1-reg); +disp(sprintf("The secondary terminal voltage is %f V",V2)); +disp(" "); +// +//END diff --git a/1445/CH7/EX7.31/ch7_ex_31.sce b/1445/CH7/EX7.31/ch7_ex_31.sce new file mode 100644 index 000000000..94c6252e2 --- /dev/null +++ b/1445/CH7/EX7.31/ch7_ex_31.sce @@ -0,0 +1,28 @@ +//CHAPTER 7- SINGLE PHASE TRANSFORMER +//Example 31 + +disp("CHAPTER 7"); +disp("EXAMPLE 31"); + +//VARIABLE INITIALIZATION +N1=400; +N2=1000; +coreA=60; //net core area in cm^2 +v1=500; //primary voltage in Volts +f=50; // + +// +//SOLUTION +//v1=E1=4.44.Φm.N1.f Volts +phiM=v1/(4.44*N1*f); +//flux density Bm=Φm/area +Bm=phiM/coreA; //lines per cm +//voltage per turn +vpt=v1/N1; +v2=N2*vpt; +// +disp(sprintf("The maximum flux density is %f10^-5 Wb per cm^2",Bm*10^5)); +disp(sprintf("The secondary voltage is %f V",v2)); +disp(" "); +// +//END diff --git a/1445/CH7/EX7.32/ch7_ex_32.sce b/1445/CH7/EX7.32/ch7_ex_32.sce new file mode 100644 index 000000000..5d5a8be92 --- /dev/null +++ b/1445/CH7/EX7.32/ch7_ex_32.sce @@ -0,0 +1,52 @@ +//CHAPTER 7- SINGLE PHASE TRANSFORMER +//Example 32 + +disp("CHAPTER 7"); +disp("EXAMPLE 32"); + +//VARIABLE INITIALIZATION +va=50000; +v1=4400; //primary voltage in Volts +v2=220; //secondary voltage in Volts +f=50; +R1=3.45; +X1=5.2; +R2=0.0009; +X2=0.015; + +//SOLUTION +// +R_dash_2=R2*(v1/v2)^2; +R_e1=R1+R_dash_2; +X_dash_2=X2*(v1/v2)^2; +X_e1=X1+X_dash_2; +// +R_dash_1=R1*(v2/v1)^2; +R_e2=R2+R_dash_1; +X_dash_1=X1*(v2/v1)^2; +X_e2=X2+X_dash_1; +// +Z_e1=R_e1+X_e1*%i; +Z_e2=R_e2+X_e2*%i; +magZ_e1=sqrt(real(Z_e1)^2+imag(Z_e1)^2); +magZ_e2=sqrt(real(Z_e2)^2+imag(Z_e2)^2); +// +disp("SOLUTION (i)"); +disp(sprintf("The equivalent resistance referred to primary %f Ω",R_e1)); +disp("SOLUTION (ii)"); +disp(sprintf("The equivalent resistance referred to secondaryy %f Ω",R_e2)); +disp("SOLUTION (iii)"); +disp(sprintf("The equivalent leakage reactance referred to primary %f Ω",X_e1)); +disp(sprintf("The equivalent leakage reactance referred to secondary %f Ω",X_e2)); +disp("SOLUTION (iv)"); +disp(sprintf("The equivalent impedance referred to primary %f Ω",magZ_e1)); +disp(sprintf("The equivalent impedance referred to secondary %f Ω",magZ_e2)); +// +I1=va/v1; +I2=va/v2; +Pcu=I2^2*R_e2; +disp("SOLUTION (d)"); +disp(sprintf("The copper loss at full load %f W",Pcu)); +disp(" "); +//The answers in the book on page 7.77 are wrong for all but Xe1 and Xe2 values. +//END diff --git a/1445/CH7/EX7.33/ch7_ex_33.sce b/1445/CH7/EX7.33/ch7_ex_33.sce new file mode 100644 index 000000000..aeedc8524 --- /dev/null +++ b/1445/CH7/EX7.33/ch7_ex_33.sce @@ -0,0 +1,64 @@ +//CHAPTER 7- SINGLE PHASE TRANSFORMER +//Example 33 + +disp("CHAPTER 7"); +disp("EXAMPLE 33"); + +//VARIABLE INITIALIZATION +va=5000; //apparent power +v1=400; //primary voltage in Volts +v2=200; //secondary voltage in Volts +f=50; +//no load parameters +Voc=400; +Io=1; +Woc=50; // watts HT side +//short circuit test +Vsc=12; +Isc=10; +Wc=40; // watts HT side +// +pf=0.8; +//SOLUTION +//no load condition +phi0=acos(Woc/(v1*Io)); +Ic=Io*cos(phi0); +Iphi=Io*sin(phi0); +Rc=v1/Ic; +X=v1/Iphi; +disp("SOLUTION (i)"); +disp(sprintf("The value of Ic is %f Amp",Ic)); +disp(sprintf("The value of IΦ is %f Amp",Iphi)); +//disp(sprintf("The value of Rc is %f Ohm",Rc)); +//disp(sprintf("The value of X is %fΩ",X)); +// +//short circuit +phisc=acos(Wc/(Vsc*Isc)); +pf1=cos(phisc); +R_e1=Vsc*pf1/Isc; +Z_e1=Vsc/Isc; +X_e1=sqrt(Z_e1^2-R_e1^2); +disp(sprintf("The value of Re1 is %f Ohm",R_e1)); +disp(sprintf("The value of Ze1 is %f Ohm",Z_e1)); +disp(sprintf("The value of Xe1 is %fΩ",X_e1)); +// +I1=va/v1; +phi=acos(pf); +//R=ercosphi2+vx.sinphi2 +//E2=V2+I2.R +%reg=(I1*R_e1*pf+I1*X_e1*sin(phi))*100/v1; +disp("SOLUTION (c(i))"); +disp(sprintf("The percent regulation at full load is %f",%reg)); +// +//full load output at pf=0.8 +Pout=va*pf; +ironLoss=Woc; +cuLoss=Wc; +loss=ironLoss+cuLoss; +Pin=Pout+loss; +eff=Pout*100/Pin; +disp("SOLUTION (c(ii))"); +disp(sprintf("The percent efficiency at full load is %f",eff)); +disp(" "); +// +//END diff --git a/1445/CH7/EX7.34/ch7_ex_34.sce b/1445/CH7/EX7.34/ch7_ex_34.sce new file mode 100644 index 000000000..5c15489d2 --- /dev/null +++ b/1445/CH7/EX7.34/ch7_ex_34.sce @@ -0,0 +1,30 @@ +//CHAPTER 7- SINGLE PHASE TRANSFORMER +//Example 34 + +disp("CHAPTER 7"); +disp("EXAMPLE 34"); + +//VARIABLE INITIALIZATION +va=50000; //apparent power +I2=200; //secondary full load current +R1=0.55; +R2=0.023; +pf=0.8; +//turn ratio +K=1/5; +//SOLUTION +R_dash_1=K^2*R1; +R_e2=R2+R_dash_1; +Pcu=I2^2*R_e2; +//cu loss at 2/3 of the load +Pcu23=(2/3)^2*Pcu; +Pc=Pcu23; //at maximum efficiency Pc=Pcu +//full load output +Pout=va*pf; +loss=Pc+Pcu; //at full load +Pin=Pout+loss; +eff=Pout*100/Pin; +disp(sprintf("The percent efficiency at full load is %f",eff)); +disp(" "); +// +//END diff --git a/1445/CH7/EX7.35/ch7_ex_35.sce b/1445/CH7/EX7.35/ch7_ex_35.sce new file mode 100644 index 000000000..6a7cfb05b --- /dev/null +++ b/1445/CH7/EX7.35/ch7_ex_35.sce @@ -0,0 +1,39 @@ +//CHAPTER 7- SINGLE PHASE TRANSFORMER +//Example 35 + +disp("CHAPTER 7"); +disp("EXAMPLE 35"); + +//VARIABLE INITIALIZATION +va=200000; //apparent power +v1=11000; //primary voltage in Volts +v2=230; //secondary voltage in Volts +Woc=1600; //watts also equals core losses +Wc=2600; //watts, also equals cu losses +f=50; +//no load parameters +//day cycle given +h1=8; +load1=160000; +pf1=0.8; +h2=6; +load2=100000; +pf2=1; +h3=10; +load3=0; +pf3=0; +//SOLUTION +//24 hr energy output +Pout=load1*h1*pf1+load2*h2*pf2+load3*h3*pf3; +Pc24=Woc*24; // 24 hours Pc loss +//cu loss= hours.(kva output/kva rated)^2.Full load Cu loss +Pcu24=h1*(load1/va)^2*Wc+h2*(load2/va)^2*Wc+h3*(load3/va)^2*Wc; +Pin=Pout+Pc24+Pcu24; +eff=Pout*100/Pin; +//disp(sprintf("The value Pout is %f",Pout)); +//disp(sprintf("The value Pc is %f",Pc24)); +//disp(sprintf("The value Pcu is %f",Pcu24)); +disp(sprintf("The percent efficiency at full load is %f",eff)); +disp(" "); +// +//END diff --git a/1445/CH7/EX7.36/ch7_ex_36.sce b/1445/CH7/EX7.36/ch7_ex_36.sce new file mode 100644 index 000000000..2aa003af2 --- /dev/null +++ b/1445/CH7/EX7.36/ch7_ex_36.sce @@ -0,0 +1,45 @@ +//CHAPTER 7- SINGLE PHASE TRANSFORMER +//Example 36 + +disp("CHAPTER 7"); +disp("EXAMPLE 36"); + +//VARIABLE INITIALIZATION +va=100000; //apparent power +v1=440; //primary voltage in Volts +v2=11000; //secondary voltage in Volts +f=50; +//loads +pf=1; +eff1=0.985; // at full load at 0.8pf +eff2=0.99; //at half full load at unity pf +pf1=0.8; // +pf2=1; // +// +//SOLUTION +loss1=(1-eff1)*va*pf1/eff1; //=Pc+Pcu losses +loss2=(1-eff2)*va*(1/2)*pf2/eff2; //=Pc+Pcu losses +//simultaneous equation to be solved +//eq 1: Pc+Pcu=loss; +//fractipon of copper/ ohmic losses +f=(1/2)^2; // 60% of full load +//the 2nd equation is Pc+f*Pcu=loss +//now the matrix +M=[1,1;1,f]; //Pc+Pcu=loss1; Pc+(1/2)^2*Pcu=loss2: 1,1,; 1,f +A=[loss1,loss2]; +Mi=inv(M); +Ans=A*inv(M); +Pc=Ans(1,1); +Pcu=Ans(1,2); +disp(sprintf("The Pc is %f W",Pc)); +disp(sprintf("The Pcu is %f W",Pcu)); +// +//maximumefficiency at farction x times the full load;and then f.Pcu=Pc +x=sqrt(Pc/Pcu); +disp(sprintf("The maximum efficiency would occur at a load of %f VA",x*va)); +I1=va/v1; +I1maxEff=I1*x; +disp(sprintf("The current at maximum efficeincy is %f A",I1maxEff)); +disp(" "); +// +//END diff --git a/1445/CH7/EX7.37/ch7_ex_37.sce b/1445/CH7/EX7.37/ch7_ex_37.sce new file mode 100644 index 000000000..585ba6fd0 --- /dev/null +++ b/1445/CH7/EX7.37/ch7_ex_37.sce @@ -0,0 +1,39 @@ +//CHAPTER 7- SINGLE PHASE TRANSFORMER +//Example 37 + +disp("CHAPTER 7"); +disp("EXAMPLE 37"); + +//VARIABLE INITIALIZATION +va=500000; //apparent power +v1=3300; //primary voltage in Volts +v2=500; //secondary voltage in Volts +f=50; +//loads +pf=1; +eff=0.97; // at 3/4 full load at unity pf +pf2=0.8; +// +//SOLUTION +I1=va/v1; +loss=(1-eff)*va*(3/4)*pf/eff; //=Pc+Pcu losses at 3/4 load +//since the eff value is maximum, Pcu=Pc; therefore, 2*Pc=loss +Pc=loss/2; +//(3/4)^2*Pcu=Pc; +f=(3/4)^2; //3/4 load +//Pcu=Pc/f +Pcu=Pc/f; +//disp(sprintf("The Pc is %f W",Pc)); +//disp(sprintf("The Pcu is %f W",Pcu)); +// +R_e1=Pcu/I1^2; +disp(sprintf("The value of Re1 is %f W",R_e1)); +//10% impedance +Z_e1=v1*0.1/I1; +X_e1=sqrt(Z_e1^2-R_e1^2); +phi=acos(0.8); +%reg=(I1*R_e1*cos(phi)+I1*X_e1*sin(phi))*100/v1; +disp(sprintf("The percent regulation at full load 0.8 pf is %f W",%reg)); +disp(" "); +// +//END diff --git a/1445/CH7/EX7.38/ch7_ex_38.sce b/1445/CH7/EX7.38/ch7_ex_38.sce new file mode 100644 index 000000000..a9988b934 --- /dev/null +++ b/1445/CH7/EX7.38/ch7_ex_38.sce @@ -0,0 +1,29 @@ +//CHAPTER 7- SINGLE PHASE TRANSFORMER +//Example 38 + +disp("CHAPTER 7"); +disp("EXAMPLE 38"); + +//VARIABLE INITIALIZATION +v1=220; //primary voltage in Volts +v2=115; //secondary voltage in Volts +f1=25; +f2=50; +//loads +V=440 +We1=100; //in Watts at 220 V, eddy losses +Pc1=2*We1; //Total iron losses which equals We+Wh due to eddy and hysteresis +Wh1=Pc1-We1; +// +//SOLUTION +//since we know that We=kh.f.B^1.6 and Wh=Ke.Kf^2.f^2.B^2 +//since all being constant exept frequency, we may take We2/We1=f2^2/f1^2 +//and Wh2/Wh1=f2/f1 +//find values for We2 and Wh2, whence Pc2=We2+Wh2 +We2=f2^2*We1/f1^2; +Wh2=f2*Wh1/f1; +Pc2=We2+Wh2; +disp(sprintf("The total no load losses at 400 V is %f W",Pc2)); +disp(" "); +// +//END diff --git a/1445/CH7/EX7.39/ch7_ex_39.sce b/1445/CH7/EX7.39/ch7_ex_39.sce new file mode 100644 index 000000000..c63aff2d6 --- /dev/null +++ b/1445/CH7/EX7.39/ch7_ex_39.sce @@ -0,0 +1,39 @@ +//CHAPTER 7- SINGLE PHASE TRANSFORMER +//Example 39 + +disp("CHAPTER 7"); +disp("EXAMPLE 39"); + +//VARIABLE INITIALIZATION +v1=220; //primary voltage in Volts +v2=440; //secondary voltage in Volts +f1=50; +f2=25; +//loads +V=110 +//say, else computation may not be possible using computer +Pout1=100; //in watt, just assumed for computational purposes for the 220V supply +We1=0.01*Pout1; //in Watts at 220 V, eddy losses which are 1% of the output at 220V +Wh1=0.01*Pout1; //in Watts at 220 V, hysteresis losses which are 1% of the output at 220V +//Pc1=We1+Wh1; //Total iron losses which equals We+Wh due to eddy and hysteresis +Pcu1=0.01*Pout1; //copper losses +// +//SOLUTION +//since on connecting to half the power ie 110V, the output would get halved +Pout2=Pout1/2; +xPcu=Pcu1/Pout2; +disp(sprintf("The copper losses at 110 V would be %f percent of the output",xPcu*100)); +//now coming to frequency dependant losses ie eddy and hysteresis +//since we know that We=kh.f.B^1.6 and Wh=Ke.Kf^2.f^2.B^2 +//since all being constant exept frequency, we may take We2/We1=f2^2/f1^2 +//and Wh2/Wh1=f2/f1 +//find values for We2 and Wh2, whence Pc2=We2+Wh2 +We2=f2^2*We1/f1^2; +Wh2=f2*Wh1/f1; +xWe=We2/Pout2; +xWh=Wh2/Pout2; +disp(sprintf("The eddy losses at 110 V would be %f percent of the output",xWe*100)); +disp(sprintf("The hysteresis losses at 110 V would be %f percent of the output",xWh*100)); +disp(" "); +// +//END diff --git a/1445/CH7/EX7.4/ch7_ex_4.sce b/1445/CH7/EX7.4/ch7_ex_4.sce new file mode 100644 index 000000000..61e99861b --- /dev/null +++ b/1445/CH7/EX7.4/ch7_ex_4.sce @@ -0,0 +1,30 @@ +//CHAPTER 7- SINGLE PHASE TRANSFORMER +//Example 4 + +disp("CHAPTER 7"); +disp("EXAMPLE 4"); + +//VARIABLE INITIALIZATION +va=10*1000; //apparent power +N1=50; //number of turns on primary side +N2=10; //number of turns on secondary side +v1=440; //primary voltage in Volts +f=50; //in Hertz + +//SOLUTION + +//solution (a) +v2=v1*(N2/N1); +disp(sprintf("(a) The secondary voltage on no load is %d V",v2)); + +//solution (b) +I1=va/v1; +disp(sprintf("(b) The full load primary current is %f A",I1)); +I2=va/v2; +disp(sprintf("The full load secondary current is %f A",I2)); + +//solution (c) +phi_m=v2/(4.44*N1*N2); +disp(sprintf("(c) The maximum value of the flux is %f mWb",phi_m*1000)); + +//END diff --git a/1445/CH7/EX7.40/ch7_ex_40.sce b/1445/CH7/EX7.40/ch7_ex_40.sce new file mode 100644 index 000000000..12f74fecc --- /dev/null +++ b/1445/CH7/EX7.40/ch7_ex_40.sce @@ -0,0 +1,20 @@ +//CHAPTER 7- SINGLE PHASE TRANSFORMER +//Example 40 + +disp("CHAPTER 7"); +disp("EXAMPLE 40"); + +//VARIABLE INITIALIZATION +loss=50; //core loss in Watts +I0=2; //no load current in Amperes +v0=220; //induced emf in Volts + +//SOLUTION +pf=loss/(v0*I0); +I_c=I0*pf; //core loss component +I_phi=I0*sin(acos(pf)); //magnetizing component +disp(sprintf("The magnetizing component, I_c= %f A, is plotted along x-axis",I_phi)); +disp(sprintf("& the core loss component, I_Φ= %f A, is plotted along y-axis",I_c)); + +//END + diff --git a/1445/CH7/EX7.41/ch7_ex_41.sce b/1445/CH7/EX7.41/ch7_ex_41.sce new file mode 100644 index 000000000..555aa3969 --- /dev/null +++ b/1445/CH7/EX7.41/ch7_ex_41.sce @@ -0,0 +1,30 @@ +//CHAPTER 7- SINGLE PHASE TRANSFORMER +//Example 41 + +disp("CHAPTER 7"); +disp("EXAMPLE 41"); + +//VARIABLE INITIALIZATION +v1=550; //primary voltage in Volts +v2=440; //secondary voltage in Volts +p=400*1000; //in Watts +pf=0.8; //power factor(lagging) + +//SOLUTION + +//solution (a) +I2=p/(sqrt(3)*v2*pf); +I1=I2*(v2/v1); //since I1:I2=N2:N1 +I=I2-I1; //in sections Oa, Ob and Oc +disp(sprintf("(a) The current flowing in sections Oa, Ob and Oc is %f A",I)); +disp(sprintf("The current flowing in sections aA, bB and cC is %f A",I1)); + +//solution (b) +p_o=p*(1-(v2/v1)); //k=v2/v1 +disp(sprintf("(b) The power transferred by transformer action %f kW",p_o/1000)); + +//solution (c) +p_d=p-p_o; +disp(sprintf("(c) The power conducted directly %d kW",p_d/1000)); + +//END diff --git a/1445/CH7/EX7.5/ch7_ex_5.sce b/1445/CH7/EX7.5/ch7_ex_5.sce new file mode 100644 index 000000000..50142bcc0 --- /dev/null +++ b/1445/CH7/EX7.5/ch7_ex_5.sce @@ -0,0 +1,25 @@ +//CHAPTER 7- SINGLE PHASE TRANSFORMER +//Example 5 + +disp("CHAPTER 7"); +disp("EXAMPLE 5"); + +//VARIABLE INITIALIZATION +N1=350; //number of turns on primary side +N2=1050; //number of turns on secondary side +v1=400; //primary voltage in Volts +f=50; //in Hertz +ar=50/10000; //cross-sectional area in m^2 + +//SOLUTION + +//solution (i) +B=v1/(4.44*ar*f*N1); +disp(sprintf("(i) The maximum flux density is %f Wb/m^2",B)); + +//solution (ii) +ratio=N2/N1; +v2=ratio*v1; +disp(sprintf("(ii) The induced emf in the secondary winding is %d V",v2)); + +//END diff --git a/1445/CH7/EX7.6/ch7_ex_6.sce b/1445/CH7/EX7.6/ch7_ex_6.sce new file mode 100644 index 000000000..c6d3cb9af --- /dev/null +++ b/1445/CH7/EX7.6/ch7_ex_6.sce @@ -0,0 +1,34 @@ +//CHAPTER 7- SINGLE PHASE TRANSFORMER +//Example 6 + +disp("CHAPTER 7"); +disp("EXAMPLE 6"); + +//VARIABLE INITIALIZATION +v1=2200; //primary voltage in Volts +v2=220; //secondary voltage in Volts +I=0.6; //exciting current in Amperes +p_c=361; //core loss in Watts +I2=60; //load current in Amperes +pf=0.8; //power factor + +//SOLUTION + +//solution (a) +I1=p_c/v1; //vertical component of I0 +I_phi=sqrt((I^2)-(I1^2)); //horizontal component of I0 +disp(sprintf("(a) The core loss component is %f A",I1)); +disp(sprintf("And the magnetising component is %f A",I_phi)); + +//solution (b) +I1_dash=(v2/v1)*I2; +theta=acos(pf); +I1_x=I1_dash*sin(theta)+I_phi; //horizontal component of I0 +I1_y=I1_dash*pf+I1; //vertical component of I0 +I1_res=sqrt((I1_x^2)+(I1_y^2)); //primary current +pf_p=I1_y/I1_res; //primary power factor +disp(sprintf("(b) The primary current is %f A",I1_res)); +disp(sprintf("And the power factor is %f A",pf_p)); + +//END + diff --git a/1445/CH7/EX7.8/ch7_ex_8.sce b/1445/CH7/EX7.8/ch7_ex_8.sce new file mode 100644 index 000000000..9e85c1cc0 --- /dev/null +++ b/1445/CH7/EX7.8/ch7_ex_8.sce @@ -0,0 +1,55 @@ +//CHAPTER 7- SINGLE PHASE TRANSFORMER +//Example 8 + +disp("CHAPTER 7"); +disp("EXAMPLE 8"); + +//VARIABLE INITIALIZATION +va=23000; //apparent power +v1=2300; //primary voltage in Volts +v2=230; //secondary voltage in Volts +r1=4; //in Ohms +r2=0.04; //in Ohms +X1=12; //in Ohms +X2=0.12; //in Ohms +pf=0.866; //power factor(leading) + +//SOLUTION +r1_dash=r1*((v2/v1)^2); +r_e2=r1_dash+r2; +X1_dash=X1*((v2/v1)^2); +X_e2=X1_dash+X2; +// +//disp(sprintf("The value of Re2 %f and Xe2 %f",r_e2,X_e2)); +I2=0.75*(va/v2); //since transformer operates at 75% of its rated load +// +function [x,y]=pol2rect(mag,angle); +x=mag*cos(angle*(%pi/180)); //to convert the angle from degrees to radians +y=mag*sin(angle*(%pi/180)); +endfunction; +[x,y]=pol2rect(I2,-30); +I_dash_2=x+y*%i; +//disp(sprintf("The value %f %f",real(I_dash_2),imag(I_dash_2))); +// +Z_e2=r_e2+X_e2*%i; //in rect coordinates +//disp(sprintf("The value %f %f",real(Z_e2),imag(Z_e2))); +// +V_dash_1=v2+I_dash_2*Z_e2; +//disp(sprintf("The value %f %f",real(V_dash_1),imag(V_dash_1))); +// +function [mag,angle]=rect2pol(x,y); +mag=sqrt((x^2)+(y^2)); //z is impedance & the resultant of x and y +angle=atan(y/x)*(180/%pi); //to convert the angle from radians to degrees +endfunction; +// +[magV1,angleV1]=rect2pol(real(V_dash_1),imag(V_dash_1)); +//disp(sprintf("The value %f <%f",magV1,angleV1)); +// +Pin=magV1*I2*cos((30+angleV1)*%pi/180); +Pout=v2*I2*cos(30*%pi/180); +eff=Pout*100/Pin; +// +disp(sprintf("The efficiency of the transformer is %f",eff)); +disp(" "); +// +//END diff --git a/1445/CH7/EX7.9/ch7_ex_9.sce b/1445/CH7/EX7.9/ch7_ex_9.sce new file mode 100644 index 000000000..6796c2715 --- /dev/null +++ b/1445/CH7/EX7.9/ch7_ex_9.sce @@ -0,0 +1,28 @@ +//CHAPTER 7- SINGLE PHASE TRANSFORMER +//Example 9 + +disp("CHAPTER 7"); +disp("EXAMPLE 9"); + +//VARIABLE INITIALIZATION +v1=11000; //primary voltage in Volts +v2=400; //secondary voltage in Volts +Io=1; //primary current +pf=0.24 //power factor lagging + +//SOLUTION +Ic=Io*pf; +disp("SOLUTION (a)"); +disp(sprintf("The value of core loss current is %f Amp",Ic)); +// +Iphi=sqrt(Io^2-Ic^2); +disp("SOLUTION (b)"); +disp(sprintf("The value of core loss current is %f Amp",Iphi)); +// +IronLoss=v1*pf; +disp("SOLUTION (c)"); +disp(sprintf("The iron loss is %f W",IronLoss)); +disp(" "); +// +//END + diff --git a/1445/CH8/EX8.1/ch8_ex_1.sce b/1445/CH8/EX8.1/ch8_ex_1.sce new file mode 100644 index 000000000..b02f8d679 --- /dev/null +++ b/1445/CH8/EX8.1/ch8_ex_1.sce @@ -0,0 +1,22 @@ +//CHAPTER 8- DIRECT CURRENT MACHINES +//Example 1 + +disp("CHAPTER 8"); +disp("EXAMPLE 1"); + +//VARIABLE INITIALIZATION +v_t=250; //terminal voltage in Volts +I_l=500; //load current in Amperes +r_a=0.04; //armature resistance in Ohms +r_f=50; //shunt field resistance in Ohms + +//SOLUTION +I_f=v_t/r_f; +I_a=I_l+I_f; +E_a=v_t+(I_a*r_a); //here E_a=emf of generator +disp(sprintf("The generated emf is %f V",E_a)); + +//END + + + diff --git a/1445/CH8/EX8.10/ch8_ex_10.sce b/1445/CH8/EX8.10/ch8_ex_10.sce new file mode 100644 index 000000000..8ecea55db --- /dev/null +++ b/1445/CH8/EX8.10/ch8_ex_10.sce @@ -0,0 +1,55 @@ +//CHAPTER 8- DIRECT CURRENT MACHINES +//Example 10 + +disp("CHAPTER 8"); +disp("EXAMPLE 10"); + +//VARIABLE INITIALIZATION +P=6; //number of poles +I=80; //current per conductor in Amperes +Z=400; //tottal number of conductors +phi=0.020; //flux per pole in Wb +N=1800; //in rpm + +//SOLUTION + +//soluion (a): for wave connected +disp("(a) For Wave connected"); + +//(i) +A=2; //A=number of parallel paths +I_a=I*A; +disp(sprintf("(i) The total current is %f A",I_a)); + +//(ii) +E_a=(phi*Z*N*P)/(60*A); +disp(sprintf("(ii) The emf is %f V",E_a)); + +//(iii) +p=E_a*I_a; +disp(sprintf("(iii) The power developed in armature is %f kW",p/1000)); +w=(2*%pi*N)/60; +T_e=p/w; +disp(sprintf("The electromagnetic torque is %f N-m",T_e)); + + +//soluion (b): for lap connected +disp("(b) For Lap connected"); + +//(i) +A=P; +I_a=I*A; +disp(sprintf("(i) The total current is %f A",I_a)); + +//(ii) +E_a=(phi*Z*N*P)/(60*A); +disp(sprintf("(ii) The emf is %f V",E_a)); + +//(iii) +p=E_a*I_a; +disp(sprintf("(iii) The power developed in armature is %f kW",p/1000)); +w=(2*%pi*N)/60; +T_e=p/w; +disp(sprintf("The electromagnetic torque is %f N-m",T_e)); + +//END diff --git a/1445/CH8/EX8.11/ch8_ex_11.sce b/1445/CH8/EX8.11/ch8_ex_11.sce new file mode 100644 index 000000000..9a2478738 --- /dev/null +++ b/1445/CH8/EX8.11/ch8_ex_11.sce @@ -0,0 +1,25 @@ +//CHAPTER 8- DIRECT CURRENT MACHINES +//Example 11 + +disp("CHAPTER 8"); +disp("EXAMPLE 11"); + +//VARIABLE INITIALIZATION +p_o=20*1000; //output in W +v_t=250; //in Volts +r_a=0.05; //aramture resistance in Ohms +r_se=0.025; //series resistance in Ohms +r_sh=100; //shunt resistance in Ohms + +//SOLUTION +I_t=p_o/v_t; +v_se=I_t*r_se; //for series winding +v_sh=v_t+v_se; //for shunt winding +I_sh=v_sh/r_sh; +I_a=I_sh+I_t; +E_a=v_t+(I_a*r_a)+v_se; +disp(sprintf("The total emf generated is %f V",E_a)); + +//END + + diff --git a/1445/CH8/EX8.12/ch8_ex_12.sce b/1445/CH8/EX8.12/ch8_ex_12.sce new file mode 100644 index 000000000..96cd57019 --- /dev/null +++ b/1445/CH8/EX8.12/ch8_ex_12.sce @@ -0,0 +1,28 @@ +//CHAPTER 8- DIRECT CURRENT MACHINES +//Example 12 + +disp("CHAPTER 8"); +disp("EXAMPLE 12"); + +//VARIABLE INITIALIZATION +P=4; //number of poles +N=750; //in rpm +r_a=0.4; //in Ohms +r_f=200; //in Ohms +Z=720; +phi=2.895*(10^6)*(10^(-8)); //in Wb (1 line=10^(-8) Wb) +r_l=10; //load resistance in Ohms +A=2; //for wave winding + +//SOLUTION +E_a=(phi*Z*N*P)/(60*A); +disp(sprintf("The induced emf is %f V",E_a)); +// E_a=v+(I_a*r_a) but I_a=I_l+I_f and I_l=v/r_l, I_f=v/r_f =>I_a=(v/r_l) + (v/r_f) +// =>E_a=v+(((v/r_l) + (v/r_f))*r_a) +// taking v common, the following equation is obtained +v=E_a/(1+(r_a/r_f)+(r_a/r_l)); +disp(sprintf("The terminal voltage of the machine is %f V",v)); + +//The answer is slightly different due to the precision of floating point numbers + +//END diff --git a/1445/CH8/EX8.13/ch8_ex_13.sce b/1445/CH8/EX8.13/ch8_ex_13.sce new file mode 100644 index 000000000..a9f1555de --- /dev/null +++ b/1445/CH8/EX8.13/ch8_ex_13.sce @@ -0,0 +1,30 @@ +//CHAPTER 8- DIRECT CURRENT MACHINES +//Example 13 + +disp("CHAPTER 8"); +disp("EXAMPLE 13"); + +//VARIABLE INITIALIZATION +P=4; //number of poles +v_t=220; //in Volts +I_l=42; //load current in Amperes +r_a=0.1; //in Ohms +r_f=110; //in Ohms +drop=1; //contact drop per brush +//SOLUTION + +//solution (i) +A=P; //for lap winding +I_f=v_t/r_f; //I_f is same as I_sh +I_a=I_l+I_f; +I_c=I_a/A; //conductor current +disp(sprintf("The current in each conductor of the armature is %d A",I_c)); + +//solution (ii) +v_a=I_a*r_a; //armature voltage drop +v_b=2*drop; //brush drop +emf=v_t+v_a+v_b; +disp(sprintf("The total emf generated is %f V",emf)); + +//END + diff --git a/1445/CH8/EX8.14/ch8_ex_14.sce b/1445/CH8/EX8.14/ch8_ex_14.sce new file mode 100644 index 000000000..2dedf26ce --- /dev/null +++ b/1445/CH8/EX8.14/ch8_ex_14.sce @@ -0,0 +1,33 @@ +//CHAPTER 8- DIRECT CURRENT MACHINES +//Example 14 + +disp("CHAPTER 8"); +disp("EXAMPLE 14"); + +//VARIABLE INITIALIZATION +v_t=220; //in Volts +I_l=196; //in Amperes +s_loss=720; //stray loss in Watts +r_f=55; //shunt field ressitance in Ohms +eff=88/100; //efficiency + +//SOLUTION +p_o=v_t*I_l; +p_i=p_o/eff; //electrical input +tot_loss=p_i-p_o; +I_f=v_t/r_f; +I_a=I_l+I_f; +cu_loss=v_t*I_f; //shunt field copper loss +c_loss=cu_loss+s_loss; //constant loss +arm_loss=tot_loss-c_loss; //armature copper loss +r_a=arm_loss/(I_a^2); +disp(sprintf("The armature resistance is %f Ω",r_a)); + +//for maximum efficiency, armature loss = constant loss =>(I_a^2)*r_a=c_loss +I_a=sqrt(c_loss/r_a); +disp(sprintf("The load current corresponding to maximum efficiency is %f A",I_a)); + +//END + + + diff --git a/1445/CH8/EX8.15/ch8_ex_15.sce b/1445/CH8/EX8.15/ch8_ex_15.sce new file mode 100644 index 000000000..e7909058b --- /dev/null +++ b/1445/CH8/EX8.15/ch8_ex_15.sce @@ -0,0 +1,30 @@ +//CHAPTER 8- DIRECT CURRENT MACHINES +//Example 15 + +disp("CHAPTER 8"); +disp("EXAMPLE 15"); + +//VARIABLE INITIALIZATION +v_t=230; //in Volts +I_a1=3.33; //in Amperes +N1=1000; //in rpm +r_a=0.3; //armature resistance in Ohms +r_f=160; //field resistance in Ohms +I_l=40; //in Amperes +phi1=1; //in Wb (phi=1 is an assumption) +phi2=(1-(4/100)); //in Wb (phi2=0.96 of phi1) + +//SOLUTION + +//At no load +E_a1=v_t-(I_a1*r_a); +I_f=v_t/r_f; + +//At full load +I_a2=I_l-I_f; +E_a2=v_t-(I_a2*r_a); +N2=(E_a2/E_a1)*(phi1/phi2)*N1; +N2=round(N2); //to round off the value +disp(sprintf("The full load speed is %d rpm",N2)); + +//END diff --git a/1445/CH8/EX8.16/ch8_ex_16.sce b/1445/CH8/EX8.16/ch8_ex_16.sce new file mode 100644 index 000000000..ef76b6ef8 --- /dev/null +++ b/1445/CH8/EX8.16/ch8_ex_16.sce @@ -0,0 +1,45 @@ +//CHAPTER 8- DIRECT CURRENT MACHINES +//Example 16 + +disp("CHAPTER 8"); +disp("EXAMPLE 16"); + +//VARIABLE INITIALIZATION +v_t=250; //in Volts +P=4; //number of poles +Z=500; //number of conductors +r_a=0.25; //in Ohms +r_f=125; //in Ohms +phi=0.02; //in Wb +I_l=14; //in Amperes +A=2; +rot_loss=300; //rotational loss in Watts + +//SOLUTION + +//solution (i) +I_f=v_t/r_f; +I_a=I_l-I_f; +E_a=v_t-(I_a*r_a); +N=(E_a*A*60)/(phi*Z*P); +N=round(N); //to round off the value of N +disp(sprintf("(i) The speed is %d rpm",N)); +p_e=E_a*I_a; +w=(2*%pi*N)/60; +T1=p_e/w; +disp(sprintf("The internal torque developed is %f N-m",T1)); + +//solution (ii) +p_o=p_e-rot_loss; +disp(sprintf("(ii)The shaft power is %f W",p_o)); +T2=p_o/w; +disp(sprintf("The shaft torque is %f N-m",T2)); +p_i=v_t*I_l; +eff=(p_o/p_i)*100; +disp(sprintf("The efficiency is %f %%",eff)); + +//END + + + + diff --git a/1445/CH8/EX8.17/ch8_ex_17.sce b/1445/CH8/EX8.17/ch8_ex_17.sce new file mode 100644 index 000000000..d2c9b4413 --- /dev/null +++ b/1445/CH8/EX8.17/ch8_ex_17.sce @@ -0,0 +1,44 @@ +//CHAPTER 8- DIRECT CURRENT MACHINES +//Example 17 + +disp("CHAPTER 8"); +disp("EXAMPLE 17"); + +//VARIABLE INITIALIZATION +v_t=200; //in Volts +I_l=22; //in Amperes +N1=1000; //in rpm +r_a=0.1; //in Ohms +r_f=100; //in Ohms +N2=800; //in rpm + +//SOLUTION + +//solution (i) +I_f=v_t/r_f; +I_a1=I_l-I_f; +E_a1=v_t-(I_a1*r_a); +//on rearranging the equation E_a2:E_a1=N2:N1, where E_a2=v_t-I_a1*(r_a+r_s) and E_a1=v_t-(I_a1*r_a), we get, +r_s1=((v_t - ((N2*E_a1)/N1))/I_a1)-r_a; +disp(sprintf("(i) When the load torque is independent of speed, the additional resistance is %f Ω",r_s1)); + +//solution (ii) +I_a2=(N2/N1)*I_a1; +//on rearranging the equation E_a2:E_a1=N2:N1, where E_a2=v_t-I_a2*(r_a+r_s) and E_a1=v_t-(I_a1*r_a), we get, +r_s2=((v_t - ((N2*E_a1)/N1))/I_a2)-r_a; +disp(sprintf("(ii)When the load torque is proportional to speed, the additional resistance is %f Ω",r_s2)); + +//solution (iii) +I_a2=(N2^2/N1^2)*I_a1; +//on rearranging the equation E_a2:E_a1=N2:N1, where E_a2=v_t-I_a2*(r_a+r_s) and E_a1=v_t-(I_a1*r_a), we get, +r_s3=((v_t - ((N2*E_a1)/N1))/I_a2)-r_a; +disp(sprintf("(iii)When the load torque varies as the square of speed, the additional resistance is %f Ω",r_s3)); + +//solution (iv) +I_a2=(N2^3/N1^3)*I_a1; +//on rearranging the equation E_a2:E_a1=N2:N1, where E_a2=v_t-I_a2*(r_a+r_s) and E_a1=v_t-(I_a1*r_a), we get, +r_s4=((v_t - ((N2*E_a1)/N1))/I_a2)-r_a; +disp(sprintf("(iv)When the load torque varies as the cube of speed, the additional resistance is %f Ω",r_s4)); + +//END + diff --git a/1445/CH8/EX8.18/ch8_ex_18.sce b/1445/CH8/EX8.18/ch8_ex_18.sce new file mode 100644 index 000000000..ba0966842 --- /dev/null +++ b/1445/CH8/EX8.18/ch8_ex_18.sce @@ -0,0 +1,28 @@ +//CHAPTER 8- DIRECT CURRENT MACHINES +//Example 18 + +disp("CHAPTER 8"); +disp("EXAMPLE 18"); + +//VARIABLE INITIALIZATION +v_t=460; //in Volts +p_o=10*736; //in Watts (1 metric H.P=735.5 W) +ratio=85/100; //as given in the question +eff=84/100; +I_f=1.1; //in Amperes +r_a=0.2; //in Ohms + +//SOLUTION +p_i=p_o/eff; +I_l=p_i/v_t; +I_a=I_l-I_f; +E1=v_t-(I_a*r_a); +E2=E1*ratio; //E2:E1=N2:N1=ratio +v=v_t-E2; //voltage drop across r_a and r_s (r_s is the series resistance to be inserted) +r_s=(v/I_a)-r_a; +disp(sprintf("The resistance required is %f Ω",r_s)); + +//The answer is different because ratio equals 85/100 and not 75/100 + +//END + diff --git a/1445/CH8/EX8.19/ch8_ex_19.sce b/1445/CH8/EX8.19/ch8_ex_19.sce new file mode 100644 index 000000000..66ce6423f --- /dev/null +++ b/1445/CH8/EX8.19/ch8_ex_19.sce @@ -0,0 +1,32 @@ +//CHAPTER 8- DIRECT CURRENT MACHINES +//Example 19 + +disp("CHAPTER 8"); +disp("EXAMPLE 19"); + +//VARIABLE INITIALIZATION +v_t=250; //in Volts +r_a=0.5; //in Ohms +r_f=250; //in Ohms +N1=600; //in rpm +I=21; //in Amperes +r_s=250; //in Ohms + +//SOLUTION +I_f1=v_t/r_f; +I_f2=v_t/(r_f+r_s); +I_a1=I-I_f1; +// T is directly proportional to (Φ*I_a) +// I_f is directly proportional to Φ +// => I_f1*I_a1=I_f2*I_a2, therefore, +I_a2=(I_f1*I_a1)/I_f2; +E_b1=v_t-(I_a1*r_a); +E_b2=v_t-(I_a2*r_a); +// E_b is directly proportional to (Φ*N) +// (Φ*N) is directly proportinal to (I_f*N) +// =>E_b1:E_b2=(I_f1:I_f2)*(N1:N2) +N2=(I_f1/I_f2)*(E_b2/E_b1)*N1; +N2=round(N2); //to round off the value +disp(sprintf("The new speed of the motor is %d rpm",N2)); + +//END diff --git a/1445/CH8/EX8.2/ch8_ex_2.sce b/1445/CH8/EX8.2/ch8_ex_2.sce new file mode 100644 index 000000000..c1c419419 --- /dev/null +++ b/1445/CH8/EX8.2/ch8_ex_2.sce @@ -0,0 +1,29 @@ +//CHAPTER 8- DIRECT CURRENT MACHINES +//Example 2 + +disp("CHAPTER 8"); +disp("EXAMPLE 2"); + +//VARIABLE INITIALZATION +v_t=230; //terminal voltage in Volts +r_a=0.5; //armature resistance in Ohms +r_f=115; //shunt field resistance in Ohms +I_l=40; //line current in Amperes + +//SOLUTION + +//for generator +I_f=v_t/r_f; +I_a=I_l+I_f; +E_a=v_t+(I_a*r_a); //here E_a=emf of generator + +//for motor +I_f=v_t/r_f; +I_a=I_l-I_f; +E_b=v_t-(I_a*r_a); //here E_b=emf of motor + +ratio=E_a/E_b; //E_a:E_b=(k_a*flux*N_g):(k_a*flux*N_m) =>E_a:E_b=N_g:N_m (as flux is constant) +disp(sprintf("The ratio of speed as a generator to the speed as a motor i.e. N_g:N_m is %f",ratio)); + +//END + diff --git a/1445/CH8/EX8.20/ch8_ex_20.sce b/1445/CH8/EX8.20/ch8_ex_20.sce new file mode 100644 index 000000000..54ce57258 --- /dev/null +++ b/1445/CH8/EX8.20/ch8_ex_20.sce @@ -0,0 +1,34 @@ +//CHAPTER 8- DIRECT CURRENT MACHINES +//Example 20 + +disp("CHAPTER 8"); +disp("EXAMPLE 20"); + +//VARIABLE INITIALIZATION +v_t=250; //in Volts +I_a1=20; //in Amperes +N1=1000; //in rpm +r_a=0.5; //in Ohms +drop=1; //brush contact drop in Volts +ratio=1.5; //N2:N1=1.5 +phi1=1; //it is an assumption + +//SOLUTION +E_1=v_t-(I_a1*r_a)-(2*drop); +//solving the quadratic equation directly, +a=1; +b=-496; +c=14280; +D=b^2-(4*a*c); +x1=(-b+sqrt(D))/(2*a); +x2=(-b-sqrt(D))/(2*a); +if(x1<40) +I_a2=x1; +else if(x2<40) +I_a2=x2; +end; +phi2=(I_a1/I_a2)*phi1; +phi=(1-phi2)*100; +disp(sprintf("The flux to be reduced is %f %% of the main flux",phi)); + +//END diff --git a/1445/CH8/EX8.21/ch8_ex_21.sce b/1445/CH8/EX8.21/ch8_ex_21.sce new file mode 100644 index 000000000..81ba71e3b --- /dev/null +++ b/1445/CH8/EX8.21/ch8_ex_21.sce @@ -0,0 +1,36 @@ +//CHAPTER 8- DIRECT CURRENT MACHINES +//Example 21 + +disp("CHAPTER 8"); +disp("EXAMPLE 21"); + +//VARIABLE INITIALIZATION +p_o=10*1000; //in Watts +P=6; //number of poles +E_g=200; //in Volts +N=1500; //in rpm +A=P; //since the armature is lap connected +B=0.9; //flux density in Tesla +l=0.25; //length of armature in m +dia=0.2; //diameter of armature in m + +//SOLUTION + +//solution (a) +area=2*%pi*(dia/2)*l; +phi=B*area; +disp(sprintf("(a) The flux per pole is %f Wb",phi)); + +//solution (b) +Z=(60*E_g)/(phi*N); +disp(sprintf("(b) The total number of active conductors is %d",Z)); + +//solution (c) +I_a=50; +p=E_g*I_a; +w=(2*%pi*N)/60; +T=p/w; +disp(sprintf("(c) The torque developed when armature current is 50 A is %f N-m",T)); + +//END + diff --git a/1445/CH8/EX8.22/ch8_ex_22.sce b/1445/CH8/EX8.22/ch8_ex_22.sce new file mode 100644 index 000000000..6864da4e0 --- /dev/null +++ b/1445/CH8/EX8.22/ch8_ex_22.sce @@ -0,0 +1,46 @@ +//CHAPTER 8- DIRECT CURRENT MACHINES +//Example 22 + +disp("CHAPTER 8"); +disp("EXAMPLE 22"); + +//VARIABLE INITIALIZATION +N1=600; //in rpm +v=230; //in Volts +I_l1=50; //line current in Amperes +r_a=0.4; //armature resistance in Ohms +r_f=104.5; //field resistance in Ohms +drop=2; //brush drop in Volts + +//SOLUTION + +//solution (i) +I_l2=5; +I_a1=I_l1-(v/r_f); +E_b1=v-(I_a1*r_a)-drop; +I_a2=I_l2-(v/r_f); +E_b2=v-(I_a2*r_a)-drop; +N2=(E_b2/E_b1)*N1; +N2=round(N2); +disp(sprintf("(i) The speed at no load is %d rpm",N2)); + +//solution (ii) +I_l2=50; +N2=500; +E_b2=(N2/N1)*E_b1; +dif=v-drop; //difference +I_a2=I_l2-(v/r_f); +r_se=((dif-E_b2)/I_a2)-r_a; +disp(sprintf("(ii) The additional resistance is %f Ω",r_se)); + +//solution (iii) +phi1=1; //it is an assumption +I_a3=30; +N2=750; +E_b3=v-(I_a3*r_a)-drop; +phi2=(E_b3/E_b1)*(N1/N2)*phi1; +red=((1-phi2)*100*phi1)/phi1; +disp(sprintf("(iii) The percentage reduction of flux per pole is %f %%",red)); + +//END + diff --git a/1445/CH8/EX8.23/ch8_ex_23.sce b/1445/CH8/EX8.23/ch8_ex_23.sce new file mode 100644 index 000000000..55b53553d --- /dev/null +++ b/1445/CH8/EX8.23/ch8_ex_23.sce @@ -0,0 +1,25 @@ +//CHAPTER 8- DIRECT CURRENT MACHINES +//Example 23 + +disp("CHAPTER 8"); +disp("EXAMPLE 23"); + +//VARIABLE INITIALIZATION +v=230; //in Volts +r_a=0.4; //in Ohms +r_f1=115; //in Ohms +I_a=20; //in Amperes +N1=800; //in rpm +N2=1000; //in rpm + +//SOLUTION +I_f1=v/r_f1; //redundant step +E_b1=v-(I_a*r_a); +//rearranging the equation, we get, +r_f2=((E_b1*N2)/((v*N1)-(N1*I_a*r_a)))*r_f1; +r_f2_dash=r_f2-r_f1; +disp(sprintf("The external resistance is %f Ω",r_f2_dash)); + +//The answer is slightly different due to the precision of floating point numbers + +//END diff --git a/1445/CH8/EX8.24/ch8_ex_24.sce b/1445/CH8/EX8.24/ch8_ex_24.sce new file mode 100644 index 000000000..e330f4a03 --- /dev/null +++ b/1445/CH8/EX8.24/ch8_ex_24.sce @@ -0,0 +1,28 @@ +//CHAPTER 8- DIRECT CURRENT MACHINES +//Example 24 + +disp("CHAPTER 8"); +disp("EXAMPLE 24"); + +//This example is same as example 19 + +//VARIABLE INITIALIZATION +v=250; //in Volts +r_a=0.5; //in Ohms +r_f=250; //in Ohms +N1=600; //in rpm +I_l=21; //in Amperes +r=250; //in Ohms + +//SOLUTION +I_f1=v/r_f; +I_a1=I_l-I_f1; +I_a2=2*I_a1; +E_b1=v-(I_a1*r_a); +E_b2=v-(I_a2*r_a); +ratio=(r+r_f)/r_f; +N2=(ratio*N1*E_b2)/E_b1; +N2=round(N2); +disp(sprintf("The new speed is %d rpm",N2)); + +//END diff --git a/1445/CH8/EX8.25/ch8_ex_25.sce b/1445/CH8/EX8.25/ch8_ex_25.sce new file mode 100644 index 000000000..8ab814ab4 --- /dev/null +++ b/1445/CH8/EX8.25/ch8_ex_25.sce @@ -0,0 +1,44 @@ +//CHAPTER 8- DIRECT CURRENT MACHINES +//Example 25 + +disp("CHAPTER 8"); +disp("EXAMPLE 25"); + + +//VARIABLE INITIALIZATION +slot=24; //number of slots +P=2; //number of poles +N=18; //number of turns per coil +B=1; //in Webers +l=20/100; //effective length in meters +rad=10/100; //radius in meters +w=183.2; //angular velocity in rad/s + +//SOLUTION +A=2; +Z=slot*P*N; //total number of conductors +ar1=(2*%pi*rad*l)/P; +ar2=ar1*0.8; //since the magnetic poles 80% of the armature periphery +phi=B*ar2; //effective flux per pole + +//solution (a) +E_a=(P*Z*phi*w)/(2*%pi*A); +disp(sprintf("(a) The induced emf is %f V",E_a)); + +//solution (b) +coil=slot/P; //number of coils in each path +E_coil=E_a/coil; +disp(sprintf("(b) The induced emf per coil is %f V",E_coil)); + +//solution (c) +E_turn=E_coil/N; +disp(sprintf("(c) The induced emf per turn is %f V",E_turn)); + +//solution (d) +E_cond=E_turn/A; +disp(sprintf("(d) The induced emf per conductor is %f V",E_cond)); + +//The answers are slightly different due to the precision of floating point numbers + +//END + diff --git a/1445/CH8/EX8.27/ch8_ex_27.sce b/1445/CH8/EX8.27/ch8_ex_27.sce new file mode 100644 index 000000000..1c74876c6 --- /dev/null +++ b/1445/CH8/EX8.27/ch8_ex_27.sce @@ -0,0 +1,27 @@ +//CHAPTER 8- DIRECT CURRENT MACHINES +//Example 27 + +disp("CHAPTER 8"); +disp("EXAMPLE 27"); + + +//VARIABLE INITIALIZATION +v_t=200; //in volts +r_a=0.06; //in Ohms +r_se=0.04; //in Ohms +p_i=20*1000; //in Watts + +//SOLUTION + +//solution (a) +I_a=p_i/v_t; +E_b=v_t-I_a*(r_a+r_se); +disp(sprintf("(a) The counter emf of the motor is %d V",E_b)); + +//solution (b) +p_a=E_b*I_a; +p_a=p_a/1000; //from W to kW +disp(sprintf("(b) The power developed in the armature is %d kW",p_a)); + +//END + diff --git a/1445/CH8/EX8.28/ch8_ex_28.sce b/1445/CH8/EX8.28/ch8_ex_28.sce new file mode 100644 index 000000000..318634584 --- /dev/null +++ b/1445/CH8/EX8.28/ch8_ex_28.sce @@ -0,0 +1,24 @@ +//CHAPTER 8- DIRECT CURRENT MACHINES +//Example 28 + +disp("CHAPTER 8"); +disp("EXAMPLE 28"); + +//VARIABLE INITIALIZATION +E_a=120; //in Volts +r_se=0.03; //in Ohms +r_a=0.02; //in Ohms +v1=240; //in Volts +r=0.25; //in Ohms +I=300; //in Amperes + +//SOLUTION +v=I*(r_se+r_a+r); +disp(sprintf("The voltage drop across the three resistances is %d V",v)); +v_t=v1+E_a-v; +disp(sprintf("The voltage between far end and the bus bar is %d V",v_t)); +disp(sprintf("The net increase of %d V may be beyond the desired limit",v_t-v1)); +disp("Hence, a field diverter resistance may be necessary to regulate the far-end terminal voltage"); + +//END + diff --git a/1445/CH8/EX8.29/ch8_ex_29.sce b/1445/CH8/EX8.29/ch8_ex_29.sce new file mode 100644 index 000000000..ee4e53e7d --- /dev/null +++ b/1445/CH8/EX8.29/ch8_ex_29.sce @@ -0,0 +1,21 @@ +//CHAPTER 8- DIRECT CURRENT MACHINES +//Example 29 + +disp("CHAPTER 8"); +disp("EXAMPLE 29"); + +//VARIABLE INITIALIZATION +r_a=1; //in Ohms +N1=800; //in rpm +v_t=200; //in Volts +I_a=15; //in Amperes +r_s=5; //series resistance in Ohms + +//SOLUTION +E_b1=v_t-(I_a*r_a); +E_b2=v_t-I_a*(r_a+r_s); +N2=(E_b2/E_b1)*N1; +N2=round(N2); //to round off the value +disp(sprintf("The speed attained after connecting the series resistance is %d rpm",N2)); + +//END diff --git a/1445/CH8/EX8.3/ch8_ex_3.sce b/1445/CH8/EX8.3/ch8_ex_3.sce new file mode 100644 index 000000000..198d7214a --- /dev/null +++ b/1445/CH8/EX8.3/ch8_ex_3.sce @@ -0,0 +1,38 @@ +//CHAPTER 8- DIRECT CURRENT MACHINES +//Example 3 + +disp("CHAPTER 8"); +disp("EXAMPLE 3"); + +//VARIABLE INITIALIZATION +p_o=10*1000; //output of generator in Watts +v_t=250; //terminal voltage in Volts +N=1000; //speed in rpm +r_a=0.15; //armature resistance in Ohms +I_f=1.64; //field current in Amperes +rot_loss=540; //rotational loss in Watts + +//SOLUTION + +//solution (i) +I_l=p_o/v_t; +I_a=I_l+I_f; +E_a=v_t+(I_a*r_a); +disp(sprintf("(i) The armature induced emf is %f V",E_a)); + +//solution (ii) +w=(2*%pi*N)/60; //in radian/sec +T_e=(E_a*I_a)/w; +disp(sprintf("(ii) The torque developed is %f N-m",T_e)); + +//solution (iii) +arm_loss=(I_a^2)*r_a; //armature loss +fld_loss=v_t*I_f; //field loss +tot_loss=rot_loss+arm_loss+fld_loss; +p_i=p_o+tot_loss; +eff=(p_o/p_i)*100; +disp(sprintf("(iii) The efficiency is %f %%",eff)); + +//END + + diff --git a/1445/CH8/EX8.30/ch8_ex_30.sce b/1445/CH8/EX8.30/ch8_ex_30.sce new file mode 100644 index 000000000..3c80b3dd7 --- /dev/null +++ b/1445/CH8/EX8.30/ch8_ex_30.sce @@ -0,0 +1,20 @@ +//CHAPTER 8- DIRECT CURRENT MACHINES +//Example 30 + +disp("CHAPTER 8"); +disp("EXAMPLE 30"); + +//VARIABLE INITIALIZATION +p=5*735.5; //in Watts (1 metric H.P.=735.5 W) +N=1000; //in rpm +I=30; //in Amperes +I_s=45; //starting current in Amperes + +//SOLUTION +T=(p*60)/(2*%pi*1000); +T_s=(T*(I_s^2))/(I^2); +disp(sprintf("The starting torque is %f N-m",T_s)); + +//The answer is slightly different due to precision of floating point numbers + +//END diff --git a/1445/CH8/EX8.31/ch8_ex_31.sce b/1445/CH8/EX8.31/ch8_ex_31.sce new file mode 100644 index 000000000..0fc0fecfb --- /dev/null +++ b/1445/CH8/EX8.31/ch8_ex_31.sce @@ -0,0 +1,26 @@ +//CHAPTER 8- DIRECT CURRENT MACHINES +//Example 31 + +disp("CHAPTER 8"); +disp("EXAMPLE 31"); + +//VARIABLE INITIALIZATION +r_a=0.1; //combined resistance of armature & field resistance in Ohms +v_t=230; //in Volts +I_a1=100; //in Amperes +N1=1000; //in rpm +I_a2=200; //in Amperes +ratio=1.2; //ratio of Φ2:Φ1=1.2 + +//SOLUTION +E_b1=v_t-(I_a1*r_a); //numerator of LHS according to the book +E_b2=v_t-(I_a2*r_a); //denominator of LHS according to the book +N2=(E_b2/E_b1)*(1/ratio)*N1; +N2=round(N2); //to round off the value +disp(sprintf("The new speed of the armature is %d rpm",N2)); + +//END + + + + diff --git a/1445/CH8/EX8.32/ch8_ex_32.sce b/1445/CH8/EX8.32/ch8_ex_32.sce new file mode 100644 index 000000000..e072ece81 --- /dev/null +++ b/1445/CH8/EX8.32/ch8_ex_32.sce @@ -0,0 +1,66 @@ +//CHAPTER 8- DIRECT CURRENT MACHINES +//Example 32 + +disp("CHAPTER 8"); +disp("EXAMPLE 32"); + +//VARIABLE INITIALIZATION +v_t=250; //in Volts +I=20; //in Amperes +N1=1000; //in rpm +P=4; //number of poles +r_p=0.05; //resistance of field coil on each pole in Ohms +r_a=0.2; //in Ohms + +//SOLUTION + +r_se=P*r_p; +r_m=r_a+r_se; //resistance of motor +E_b1=v_t-(I*r_m); +T1=I^2; + +//solution (a) +//solving the quadratic equation directly, +r=10; //in Ohms +a=1.02; +b=-25; +c=-400; +D=b^2-(4*a*c); +x1=(-b+sqrt(D))/(2*a); +x2=(-b-sqrt(D))/(2*a); +//to extract the positive root out of the two +if (x1>0 & x2<0) +I1=x1; +else (x1<0 & x2>0) +I1=x2; +end; +I_a=((10.2*I1)-v_t)/r; +E_b2=v_t-(I_a*r_a); +N2=((E_b2/E_b1)*I*N1)/I1; +N2=round(N2); //to round off the value +disp(sprintf("(a) The speed with 10 Ω resistance in parallel with the armature is %d rpm",N2)); + +//solution (b) +//solving the quadratic equation directly, +a=5/7; +b=0; +c=-400; +D=b^2-(4*a*c); +y1=(-b+sqrt(D))/(2*a); +y2=(-b-sqrt(D))/(2*a); +//to extract the positive root out of the two +if (y1>0 & y2<0) +I2=y1; +else (y1<0 & y2>0) +I2=y2; +end; +E_b3=v_t-(I2*r_a); +N3=((E_b3/E_b1)*I*N1)/(I2*a); +N3=round(N3); //to round off the value +disp(sprintf("(b) The speed with 0.5 Ω resistance in parallel with series field is %d rpm",N3)); + +//The answers are slightly different due to the precision of floating point numbers + +//END + + diff --git a/1445/CH8/EX8.33/ch8_ex_33.sce b/1445/CH8/EX8.33/ch8_ex_33.sce new file mode 100644 index 000000000..28ccd4097 --- /dev/null +++ b/1445/CH8/EX8.33/ch8_ex_33.sce @@ -0,0 +1,30 @@ +//CHAPTER 8- DIRECT CURRENT MACHINES +//Example 33 + +disp("CHAPTER 8"); +disp("EXAMPLE 33"); + +//VARIABLE INITIALIZATION +v_t=230; //in Volts +N1=1500; //in rpm +I_a1=20; //in Amperes +r_a=0.3; //armature resistance in Ohms +r_se=0.2; //series field resistance in Ohms + +//SOLUTION + +//solution (a) +E_b=0; //at starting +nr1=v_t-I_a1*(r_a+r_se); //value of numerator +r_ext=nr1/I_a1; +disp(sprintf("(a) At starting, the resistance that must be added is %f Ω",r_ext)); + +//solution (b) +I_a2=I_a1; +N2=1000; +ratio=N2/N1; +nr2=v_t-I_a2*(r_a+r_se); +r_ext=((ratio*nr1)-nr2)/(-I_a2); +disp(sprintf("(b) At 1000 rpm, the resistance that must be added is %f Ω",r_ext)); + +//END diff --git a/1445/CH8/EX8.34/ch8_ex_34.sce b/1445/CH8/EX8.34/ch8_ex_34.sce new file mode 100644 index 000000000..4695c56c7 --- /dev/null +++ b/1445/CH8/EX8.34/ch8_ex_34.sce @@ -0,0 +1,30 @@ +//CHAPTER 8- DIRECT CURRENT MACHINES +//Example 34 + +disp("CHAPTER 8"); +disp("EXAMPLE 34"); + +//VARIABLE INITIALIZATION +r_a=0.06; //armature resistance in Ohms +r_se=0.04; //series resistance in Ohms +r_sh=25; //shunt resistance in Ohms +v_t=110; //in Volts +I_l=100; //in Amperes + +//SOLUTION + +//solution (a) +I_sh=v_t/r_sh; +I_a=I_sh+I_l; +E_g=v_t+I_a*(r_a+r_se); +disp("(a) When the machine is connected as long shunt compound generator-"); +disp(sprintf("The armature current is %f A and the total emf is %f V",I_a,E_g)); + +//solution (b) +I_sh=(v_t/r_sh)+(I_l*r_se/r_sh); +I_a=I_sh+I_l; +E_g=v_t+(I_a*r_a)+(I_l*r_se); +disp("(b) When the machine is connected as short shunt compound generator-"); +disp(sprintf("The armature current is %f A and the total emf is %f V",I_a,E_g)); + +//END diff --git a/1445/CH8/EX8.35/ch8_ex_35.sce b/1445/CH8/EX8.35/ch8_ex_35.sce new file mode 100644 index 000000000..e387ab83e --- /dev/null +++ b/1445/CH8/EX8.35/ch8_ex_35.sce @@ -0,0 +1,30 @@ +//CHAPTER 8- DIRECT CURRENT MACHINES +//Example 35 + +disp("CHAPTER 8"); +disp("EXAMPLE 35"); + +//VARIABLE INITIALIZATION +r_a=0.06; //armature resistance in Ohms +r_se=0.04; //series resistance in Ohms +r_sh=25; //shunt resistance in Ohms +v_t=110; //in Volts +I_l=100; //in Amperes + +//SOLUTION + +//solution (a) +I_sh=v_t/r_sh; +I_a=I_l-I_sh; +E_g=v_t-I_a*(r_a+r_se); +disp("(a) When the machine is connected as long shunt compound generator-"); +disp(sprintf("The armature current is %f A and the total emf is %f V",I_a,E_g)); + +//solution (b) +I_sh=(v_t/r_sh)-(I_l*r_se/r_sh); +I_a=I_l-I_sh; +E_g=v_t-(I_a*r_a)-(I_l*r_se); +disp("(b) When the machine is connected as short shunt compound generator-"); +disp(sprintf("The armature current is %f A and the total emf is %f V",I_a,E_g)); + +//END diff --git a/1445/CH8/EX8.36/ch8_ex_36.sce b/1445/CH8/EX8.36/ch8_ex_36.sce new file mode 100644 index 000000000..9ed702c6f --- /dev/null +++ b/1445/CH8/EX8.36/ch8_ex_36.sce @@ -0,0 +1,37 @@ +//CHAPTER 8- DIRECT CURRENT MACHINES +//Example 36 + +disp("CHAPTER 8"); +disp("EXAMPLE 36"); + +//VARIABLE INITIALIZATION +v_t=250; //in Volts +I_l=150; //in Amperes +loss1=1200; //core loss at full load in Watts +loss2=800; //mechanical loss in Watts +r_b=0.08; //brush resistance in Ohms +r_sh=62.5; //shunt field resistance in Ohms +r_se=0.03; //series field resistance in Ohms +r_ip=0.02; //interpole resistance in Ohms + +//SOLUTION + +//solution (a) +p_o=v_t*I_l; +I_sh=v_t/r_sh; +I_a=I_l+I_sh; +r_tot=r_b+r_se+r_ip; +arm_loss=(I_a^2)*r_tot; //armature circuit copper loss +cu_loss=v_t*I_sh; //shunt field copper loss +c_loss=cu_loss+loss1+loss2; //constant loss +disp(sprintf("(a) The constant loss is %f W",c_loss)); + +//solution (b) +tot_loss=arm_loss+c_loss; //total loss +p_i=p_o+tot_loss; +eff=(p_o/p_i)*100; +disp(sprintf("(b) The full load efficiency is %f %%",eff)); + +//END + + diff --git a/1445/CH8/EX8.37/ch8_ex_37.sce b/1445/CH8/EX8.37/ch8_ex_37.sce new file mode 100644 index 000000000..3cea8b20c --- /dev/null +++ b/1445/CH8/EX8.37/ch8_ex_37.sce @@ -0,0 +1,43 @@ +//CHAPTER 8- DIRECT CURRENT MACHINES +//Example 37 + +disp("CHAPTER 8"); +disp("EXAMPLE 37"); + +//VARIABLE INITIALIZATION +p_o=50*1000; //in Watts +v_t=250; //in Volts +loss1=5000; //total core loss in Watts +loss2=2000; //total core loss in Watts (when speed is reduced to half) +speed=125/100; + +//SOLUTION + +//solution (a) + +//W_h=A*N, where W_h=hysteresis loss, A=constant and N=speed +//W_e=B*(N^2), where W_e=eddy current loss, B=constant and N=speed +//W_h+(W_e^2)=loss1 =>W_h+W_e=5000 +//(W_h/2)+(W_e/4)=loss2 =>(0.5*W_h)+(0.25*W_e)=2000 (when speed reduces to half) +//So, we get two equations +//W_h+W_e=5000.......................eq(i) +//(0.5*W_h)+(0.25*W_e)=2000..........eq(ii) +//solving the equations by matrix method +A=[1 1;0.5 0.25]; +b=[5000;2000]; +x=inv(A)*b; +W_h1=x(1,:); //to access the 1st row of 2X1 matrix +W_e1=x(2,:); //to access the 2nd row of 2X1 matrix +disp("Solution (a)"); +disp(sprintf("The hysteresis loss at full speed is %d W",W_h1)); +disp(sprintf("The eddy current loss at full speed is %d W",W_e1)); + +//solution (b) +W_h2=speed*W_h1; +W_e2=(speed^2)*W_e1; +disp("Solution (b)"); +disp(sprintf("The hysteresis loss at 125%% of the full speed is %d W",W_h2)); +disp(sprintf("The eddy current loss at 125%% of the full speed is %d W",W_e2)); + +//END + diff --git a/1445/CH8/EX8.38/ch8_ex_38.sce b/1445/CH8/EX8.38/ch8_ex_38.sce new file mode 100644 index 000000000..96d7543dc --- /dev/null +++ b/1445/CH8/EX8.38/ch8_ex_38.sce @@ -0,0 +1,30 @@ +//CHAPTER 8- DIRECT CURRENT MACHINES +//Example 38 + +disp("CHAPTER 8"); +disp("EXAMPLE 38"); + +//VARIABLE INITIALIZATION +v_t=215; //in Volts +r_a=0.4; //in Ohms +p=5*1000; //in Watts +N_g=1000; //speed as generator in rpm +ratio=1.1; //according to the solution, Φ_b:Φ_a=1.1 + +//SOLUTION + +//As generator +I_ag=p/v_t; +E_a=v_t+(I_ag*r_a); + +//As motor +I_am=p/v_t; +E_b=v_t-(I_am*r_a); +N_m=(1/ratio)*N_g*(E_b/E_a); +N_m=round(N_m); //to round off the value +disp(sprintf("The speed of the machine as motor is %d rpm",N_m)); + +//END + + + diff --git a/1445/CH8/EX8.4/ch8_ex_4.sce b/1445/CH8/EX8.4/ch8_ex_4.sce new file mode 100644 index 000000000..74fed07cb --- /dev/null +++ b/1445/CH8/EX8.4/ch8_ex_4.sce @@ -0,0 +1,34 @@ +//CHAPTER 8- DIRECT CURRENT MACHINES +//Example 4 + +disp("CHAPTER 8"); +disp("EXAMPLE 4"); + +//VARIABLE INITIALIZATION +v_t=240; //in Volts +I_l=200; //full load current in Amperes +r_f=60; //shunt field resisatnce in Ohms +eff=90; //percentage full load efficiency +s_loss=800; //stray(iron + friction) loss in Watts + +//SOLUTION + +//solution (a) +p_o=v_t*I_l; //output +eff=eff/100; +p_i=p_o/eff; +tot_loss=p_i-p_o; //since input=output+loss +I_f=v_t/r_f; +I_a=I_l+I_f; +cu_loss=(I_f^2)*r_f; //copper loss +c_loss=cu_loss+s_loss; //constant loss +arm_loss=tot_loss-c_loss; //armature loss ((I_a^2)*r_a) +r_a=arm_loss/(I_a^2); +disp(sprintf("(a) The armature resisatnce is %f Ω",r_a)); + +//solution (b) +//for maximum efficiency, armature loss = constant loss =>(I_a^2)*r_a=c_loss +I_a=sqrt(c_loss/r_a); +disp(sprintf("(b) The load current corresponding to maximum efficiency is %f A",I_a)); + +//END diff --git a/1445/CH8/EX8.5/ch8_ex_5.sce b/1445/CH8/EX8.5/ch8_ex_5.sce new file mode 100644 index 000000000..3cfbaaa8a --- /dev/null +++ b/1445/CH8/EX8.5/ch8_ex_5.sce @@ -0,0 +1,40 @@ +//CHAPTER 8- DIRECT CURRENT MACHINES +//Example 5 + +disp("CHAPTER 8"); +disp("EXAMPLE 5"); + +//VARIABLE INITIALIZATION +v_t=200; //in Volts +I_l=50; //in Amperes +r_a=0.1; //armature resistance in Ohms +r_f=100; //field resistance in Ohms +s_loss=500; //core and iron loss in Watts + +//SOLUTION + +//solution (a) +I_f=v_t/r_f; //I_sh is same as I_f and r_sh is same as r_f +I_a=I_f+I_l; +E_a=v_t+(I_a*r_a); +disp(sprintf("(a) The induced emf is %f V",E_a)); + +//solution (b) +arm_loss=(I_a^2)*r_a; //armature copper loss +sh_loss=(I_f^2)*r_f; //shunt field copper loss +tot_loss=arm_loss+sh_loss+s_loss; +p_o=v_t*I_l; //output power +p_i=p_o+tot_loss; //input power +bhp=p_i/735.5; //1 metric horsepower= 735.498W +disp(sprintf("(b) The Break Horse Power(B.H.P.) of the prime mover is %f H.P.(metric)",bhp)); + +//solution (c) +c_eff=(p_o/p_i)*100; +p_EE=E_a*I_a; //electrical power +m_eff=(p_EE/p_i)*100; +e_eff=(p_o/p_EE)*100; +disp(sprintf("(c) The commercial efficiency is %f %%, the mechanical efficiency is %f %% and the electrical efficiency is %f %%",c_eff,m_eff,e_eff)); + +//END + + diff --git a/1445/CH8/EX8.6/ch8_ex_6.sce b/1445/CH8/EX8.6/ch8_ex_6.sce new file mode 100644 index 000000000..31e4aebbb --- /dev/null +++ b/1445/CH8/EX8.6/ch8_ex_6.sce @@ -0,0 +1,52 @@ +//CHAPTER 8- DIRECT CURRENT MACHINES +//Example 6 + +disp("CHAPTER 8"); +disp("EXAMPLE 6"); + +//VARIABLE INITIALIZATION +p_o=20*746; //output power from H.P. to Watts (1 H.P.=745.699 or 746 W) +v_t=230; //in Volts +N=1150; //speed in rpm +P=4; //number of poles +Z=882; //number of armature conductors +r_a=0.188; //armature resistance in Ohms +I_a=73; //armature current in Amperes +I_f=1.6; //field current in Amperes + +//SOLUTION + +//solution (i) +E_b=v_t-(I_a*r_a); +w=(2*%pi*N)/60; //in radian/sec +T_e=(E_b*I_a)/w; +disp(sprintf("(i) The electromagnetic torque is %f N-m",T_e)); + +//solution (ii) +A=P; //since it is lap winding, so A=P and A=number of parallel paths +phi=(E_b*60*A)/(P*N*Z); +disp(sprintf("(ii) The flux per pole is %f Wb",phi)); + +//solution (iii) +p_rotor=E_b*I_a; //power developed on rotor +p_rot=p_rotor-p_o; //p_shaft=p_out +disp(sprintf("(iii) The rotational power is %f W",p_rot)); + +//solution (iv) +tot_loss=p_rot+((I_a^2)*r_a)+(v_t*I_f); +p_i=p_o+tot_loss; +eff=(p_o/p_i)*100; +disp(sprintf("(iv) The efficiency is %f %%",eff)); + +//solution (v) +T=p_o/w; +disp(sprintf("(v) The shaft torque is %f N-m",T)); + +//The answers are slightly different due to the precision of floating point numbers + +//END + + + + + diff --git a/1445/CH8/EX8.7/ch8_ex_7.sce b/1445/CH8/EX8.7/ch8_ex_7.sce new file mode 100644 index 000000000..510984fa8 --- /dev/null +++ b/1445/CH8/EX8.7/ch8_ex_7.sce @@ -0,0 +1,32 @@ +//CHAPTER 8- DIRECT CURRENT MACHINES +//Example 7 + +disp("CHAPTER 8"); +disp("EXAMPLE 7"); + +//VARIABLE INITIALIZATION +p_o=20*746; //output power from H.P. to Watts (1 H.P.=745.699 or 746 W) +v_t=230; //in Volts +N1=1150; //speed in rpm +P=4; //number of poles +Z=882; //number of armature conductors +r_a=0.188; //armature resistance in Ohms +I_a1=73; //armature current in Amperes +I_f=1.6; //field current in Amperes +ratio=0.8; //phi2:phi1=0.8 (here phi=flux) + +//SOLUTION + +E_b1=v_t-(I_a1*r_a); +I_a2=I_a1/ratio; //(phi2*I_a2)=(phi1*I_a1) +E_b2=v_t-(I_a2*r_a); +N2=(E_b2/E_b1)*(1/ratio)*N1; //N2:N1=(E_b2/E_b1)*(phi1/phi2) +N2=round(N2); //to round off the value of N2 (before rounding off N2=1414.695516 rpm) +disp(sprintf("The new operating speed is %d rpm",N2)); + +//The answer is slightly different due to the precision of floating point numbers + +//END + + + diff --git a/1445/CH8/EX8.8/ch8_ex_8.sce b/1445/CH8/EX8.8/ch8_ex_8.sce new file mode 100644 index 000000000..8370c62fb --- /dev/null +++ b/1445/CH8/EX8.8/ch8_ex_8.sce @@ -0,0 +1,44 @@ +//CHAPTER 8- DIRECT CURRENT MACHINES +//Example 8 + +disp("CHAPTER 8"); +disp("EXAMPLE 8"); + +//VARIABLE INITIALIZATION +v_t=250; //in Volts +r_a=0.1; //armature resistance in Ohms +r_f=125; //field resistance in Ohms +p_o=20*1000; //output power in Watts +N_g=1000; //speed as generator in rpm + +//SOLUTION + +//machine as a generator +I_l=p_o/v_t; +I_f=v_t/r_f; //I_f is same as I_sh +I_ag=I_l+I_f; +E_a=v_t+(I_ag*r_a); //induced emf = E_a = E_g + +//machine as a motor +I_l=p_o/v_t; +I_f=v_t/r_f; +I_am=I_l-I_f; +E_b=v_t-(I_am*r_a); //back emf = E_b = E_m + +//solution (a) +N_m=(N_g*E_b)/E_a; +N_m=round(N_m); //to round off the value of N_m +disp(sprintf("(a) The speed of the same machine as a motor is %d rpm",N_m)); + +//solution (b) + +//(i) +p1=(E_a*I_ag)/1000; //to express the answer in kW +disp(sprintf("(b) (i) The internal power developed as generator is %f kW",p1)); + +//(ii) +p2=(E_b*I_am)/1000; +disp(sprintf("(b) (ii) The internal power developed as motor is %f kW",p2)); + +//END + diff --git a/1445/CH8/EX8.9/ch8_ex_9.sce b/1445/CH8/EX8.9/ch8_ex_9.sce new file mode 100644 index 000000000..464608dc5 --- /dev/null +++ b/1445/CH8/EX8.9/ch8_ex_9.sce @@ -0,0 +1,29 @@ +//CHAPTER 8- DIRECT CURRENT MACHINES +//Example 9 + +disp("CHAPTER 8"); +disp("EXAMPLE 9"); + +//VARIABLE INITIALIZATION +P=4; //number of poles +v_t=230; //in Volts +I_l=52; //in Amperes +Z=600; //tottal number of conductors +r_f=115; //in Ohms +d=30/100; //airgap diameter from cm to m +l=20/100; //effective length of pole +B=4100/10000; //flux density from Gauss to Wb/m^2 + +//SOLUTION +I_f=v_t/r_f; //I_f is same as I_sh +I_a=I_l-I_f; +ar=(%pi*d*l)/P; //area of pole +phi=ar*B; //phi = flux +A=P; +T=(phi*Z*I_a)/(2*%pi*A); +disp(sprintf("The torque developed in the motor is %f N-m",T)); + +//The answer is different as 'A' has not been included in the denominator(in the book) + +//END + |