initial commit / add all books

11 files changed, 156 insertions, 0 deletions

diff --git a/2252/CH18/EX18.1/Ex18_1.jpeg b/2252/CH18/EX18.1/Ex18_1.jpeg
new file mode 100755
index 000000000..9ab33c091
--- /dev/null
+++ b/2252/CH18/EX18.1/Ex18_1.jpeg
diff --git a/2252/CH18/EX18.1/Ex18_1.sce b/2252/CH18/EX18.1/Ex18_1.sce
new file mode 100755
index 000000000..8c3078f53
--- /dev/null
+++ b/2252/CH18/EX18.1/Ex18_1.sce
@@ -0,0 +1,17 @@
+

+i=linspace(0,1.6,9)

+V=[0 40 66 86 101 112 121 128 133]

+plot(i,V,rect=[0 0 1.6 133])

+xtitle("Magnetization curve for example 18.1","Field Current","Generated emf")

+

+//refer Fig. 18.4 in the textbook

+Rsh=94//resistance of shunt field winding

+//OA is the field resistance line for this resistance

+Voc=126//voltage corresponding to point A

+mprintf("Open circuit voltage when the field circuit resistance is 94 ohm=%d V\n",Voc)

+//D is point on OCC corresponding to 110 V. OD represents the field resistance line to generate this voltage 

+R=70/.6//total resistance of shunt field circuit

+mprintf("Additional resistance in the shunt field circuit is %f ohm\n", R-Rsh)

+//line OE represents the critical resistance of shunt field

+Rc=40/.2

+mprintf("Critical resistance=%d ohm",Rc)

diff --git a/2252/CH18/EX18.2/Ex18_2.jpeg b/2252/CH18/EX18.2/Ex18_2.jpeg
new file mode 100755
index 000000000..34b81de5d
--- /dev/null
+++ b/2252/CH18/EX18.2/Ex18_2.jpeg
diff --git a/2252/CH18/EX18.2/Ex18_2.sce b/2252/CH18/EX18.2/Ex18_2.sce
new file mode 100755
index 000000000..fbc373841
--- /dev/null
+++ b/2252/CH18/EX18.2/Ex18_2.sce
@@ -0,0 +1,30 @@
+

+i=linspace(0,3.5,8)

+V=[0 60 120 138 145 149 151 152]

+plot2d(i,V)

+xtitle("Magnetization curve for example 18.2","Field Current","Generated emf")

+

+//refer Fig. 18.5 in the textbook

+Rsh=60//shunt field resistance

+//line OA is field resistance line

+Voc=149//voltage corresponding to point A

+mprintf("Open circuit voltage=%d V\n",Voc)

+//resistance represented by OE is critical resistance

+Rc=120

+mprintf("Critical resistance of shunt field=%d ohm\n",Rc)

+//when the load has a resistance of 4 ohm

+R=4

+//load current I=V/4

+//Ish=V/60

+//Ia=I+Ish

+Eg=Voc

+Ra=.1//armature resistance

+//V=Eg-Ia*Ra

+V=Eg/(1+(1/R+1/Rsh)*Ra)

+mprintf("Terminal voltage, V=%f V\n",V)

+//when the terminal voltage is 100 V

+V=100//terminal voltage

+Ia=(Eg-V)/Ra

+Ish=V/Rsh

+I=Ia-Ish

+mprintf("Load current=%f A",I)

diff --git a/2252/CH18/EX18.3/Ex18_3.jpeg b/2252/CH18/EX18.3/Ex18_3.jpeg
new file mode 100755
index 000000000..959079b88
--- /dev/null
+++ b/2252/CH18/EX18.3/Ex18_3.jpeg
diff --git a/2252/CH18/EX18.3/Ex18_3.sce b/2252/CH18/EX18.3/Ex18_3.sce
new file mode 100755
index 000000000..bf8b49107
--- /dev/null
+++ b/2252/CH18/EX18.3/Ex18_3.sce
@@ -0,0 +1,22 @@
+

+i=linspace(0,2.5,6)

+V=[0 50 84 105 120 131]

+plot(i,V)

+xtitle("Magnetization curve for example 18.3","Field Current","Generated emf")

+

+//refer Fig.18.6 in the textbook

+//OE is the field resistance line of critical resistance

+Rc=100

+//solving (iii)

+Rsh=70//field resistance

+N=750//speed in rpm

+Nc=Rsh/Rc*N

+mprintf("When the field resistance is 70 ohm, critical speed=%d rpm\n",round(Nc))

+//solving (iv)

+Eg=100//open-circuit voltage

+Rsh=55//shunt field resistance

+//now, the operating point is M instead of A

+//LM/LN=N1/N

+//from the graph, LM/LN=100/115

+N1=100/115*N//desired speed

+mprintf("With shunt field resistance of 55 ohm, reduction in speed to make the open circuit voltage equal to 100 V=%d rpm",round(N-N1))

diff --git a/2252/CH18/EX18.4/Ex18_4.jpeg b/2252/CH18/EX18.4/Ex18_4.jpeg
new file mode 100755
index 000000000..77da17518
--- /dev/null
+++ b/2252/CH18/EX18.4/Ex18_4.jpeg
diff --git a/2252/CH18/EX18.4/Ex18_4.sce b/2252/CH18/EX18.4/Ex18_4.sce
new file mode 100755
index 000000000..12f47052d
--- /dev/null
+++ b/2252/CH18/EX18.4/Ex18_4.sce
@@ -0,0 +1,19 @@
+

+//generated emf is directly proportional to speed

+//readings for OCC at 1000 rpm are

+Eg2=[10*(1000/800) 112*(1000/800) 198*(1000/800) 232*(1000/800) 252*(1000/800) 266*(1000/800)]

+i=linspace(0,5,6)

+plot2d(i,Eg2) 

+xtitle("Magnetization curve for example 18.4","Field current","Generated emf")

+

+//refer Fig.18.7 in the textbook

+Rsh=70//resistance of field circuit

+//line OA is field resistance line

+V=330//voltage corresponding to point A

+mprintf("No load terminal voltage is %d V\n",V)

+//now, no load terminal voltage is 270 V

+V=270

+//the operating point is D

+//line OD is corresponding field resistance line

+R=V/2.4//resistance represented by line OD

+mprintf("Additional resistance required in the field circuit to reduce the voltage to 270 V=%f ohm\n",R-Rsh)

diff --git a/2252/CH18/EX18.5/Ex18_5.sce b/2252/CH18/EX18.5/Ex18_5.sce
new file mode 100755
index 000000000..e78558b3b
--- /dev/null
+++ b/2252/CH18/EX18.5/Ex18_5.sce
@@ -0,0 +1,21 @@
+

+//for generator A

+V1=240//initial terminal voltage

+V2=225//final terminal voltage

+Ia=120//armature current

+Ra=(V1-V2)/Ia//armature resistance

+//for generator B

+V1=230//initial terminal voltage

+V2=215//final terminal voltage

+Ib=100//armature current

+Rb=(V1-V2)/Ib//armature resistance

+I=200//total load current

+//I1+I2=I, V=240-I1*Ra, V=230-I2*Rb

+//solving for V, I1 and I2

+a=[1 1 0;Ra 0 1;0 Rb 1]

+b=[200;240;230]

+x=inv(a)*b

+I1=x(1,1)

+I2=x(2,1)

+V=x(3,1)

+mprintf("Bus-bar voltage=%f V,\nGenerator A supplies %f A,\nGenerator B supplies %f A", V,I1,I2)

diff --git a/2252/CH18/EX18.6/Ex18_6.sce b/2252/CH18/EX18.6/Ex18_6.sce
new file mode 100755
index 000000000..acae7f29c
--- /dev/null
+++ b/2252/CH18/EX18.6/Ex18_6.sce
@@ -0,0 +1,19 @@
+

+Ra=.03//armature resistance of each generator

+Rsh=60//field resistance of each generator

+I=4500//total load current

+//I1+I2=4500, Ish=V/60

+//Ia1=I1+V/60

+//Ia2=I2+V/60

+Ea1=500//induced emf in generator 1

+//500=V+Ia1*.03

+Ea2=510//induced emf in generator 2

+//510=V+Ia2*.03

+//solving for V,I1 and I2

+a=[1 1 0;.03 0 1+.03/60;0 .03 1+.03/60]

+b=[4500;500;510]

+x=inv(a)*b

+I1=x(1,1)

+I2=x(2,1)

+V=x(3,1)

+mprintf("Bus-bar voltage=%f V,\nLoad shared by generator 1=%f A,\nLoad shared by generator 2=%f A", V,I1,I2)

diff --git a/2252/CH18/EX18.7/Ex18_7.sce b/2252/CH18/EX18.7/Ex18_7.sce
new file mode 100755
index 000000000..66d04f71e
--- /dev/null
+++ b/2252/CH18/EX18.7/Ex18_7.sce
@@ -0,0 +1,28 @@
+

+//Let V be bus-bar voltage and I1, I2 be the currents supplied by generators 1 and 2 respectively

+Il=3000//total load current

+//I1+I2=Il

+//for generator 1

+Rsh1=30//field resistance

+Ra1=.05//armature resistance

+Eg1=400//induced emf

+//for generator 2

+Rsh2=25//field resistance

+Ra2=.03//armature resistance

+Eg2=380//induced emf

+//Ish1=V/Rsh1

+//Ish2=V/Rsh2

+//Ia1=I1+Ish1

+//Ia2=I2+Ish2

+//Eg1=V+Ia1*Ra1;Eg2=V+Ia2*Ra2

+//solving for I1,I2 and V

+a=[1 1 0;Ra1 0 1+Ra1/Rsh1;0 Ra2 1+Ra2/Rsh2]

+b=[Il;Eg1;Eg2]

+x=inv(a)*b

+I1=x(1,1)

+I2=x(2,1)

+V=x(3,1)

+P1=V*I1

+P2=V*I2

+mprintf("Output of generator 1=%f kW\nOutput of generator 2=%f kW", P1/1000,P2/1000)

+//answers vary from the textbook due to round off error