initial commit / add all books

33 files changed, 479 insertions, 0 deletions

diff --git a/833/CH7/EX7.10/Ex7_10.sce b/833/CH7/EX7.10/Ex7_10.sce
new file mode 100755
index 000000000..84a6ed1a2
--- /dev/null
+++ b/833/CH7/EX7.10/Ex7_10.sce
@@ -0,0 +1,18 @@
+//Caption: Calculate the speed of the motor when it is loaded and takes 60A from the mains

+//Exa:7.10

+clc;

+clear;

+close;

+V=230//Voltage of motor(in volts)

+n=800//Speedof motor(in r.p.m)

+i=5//Current taken by motor(in A)

+r_a=0.25//Armature resistance(in ohms)

+r_f=230//field resistance(in ohms)

+i_l=60//Load current(in A)

+i_f=V/r_f

+i_a=i-i_f

+E_b1=V-(i_a*r_a)

+i_al=i_l-i_f

+E_b2=V-(i_al*r_a)

+N=(n*E_b2)/E_b1

+disp(N,'Required speed of motor(in r.p.m) is=')
\ No newline at end of file
diff --git a/833/CH7/EX7.10/Ex7_10.txt b/833/CH7/EX7.10/Ex7_10.txt
new file mode 100755
index 000000000..84a6ed1a2
--- /dev/null
+++ b/833/CH7/EX7.10/Ex7_10.txt
@@ -0,0 +1,18 @@
+//Caption: Calculate the speed of the motor when it is loaded and takes 60A from the mains

+//Exa:7.10

+clc;

+clear;

+close;

+V=230//Voltage of motor(in volts)

+n=800//Speedof motor(in r.p.m)

+i=5//Current taken by motor(in A)

+r_a=0.25//Armature resistance(in ohms)

+r_f=230//field resistance(in ohms)

+i_l=60//Load current(in A)

+i_f=V/r_f

+i_a=i-i_f

+E_b1=V-(i_a*r_a)

+i_al=i_l-i_f

+E_b2=V-(i_al*r_a)

+N=(n*E_b2)/E_b1

+disp(N,'Required speed of motor(in r.p.m) is=')
\ No newline at end of file
diff --git a/833/CH7/EX7.10/Result7_10.txt b/833/CH7/EX7.10/Result7_10.txt
new file mode 100755
index 000000000..3ec2d7d34
--- /dev/null
+++ b/833/CH7/EX7.10/Result7_10.txt
@@ -0,0 +1,4 @@
+Required speed of motor(in r.p.m) is=   

+ 

+    751.96507  

+ 
\ No newline at end of file
diff --git a/833/CH7/EX7.11/Ex7_11.sce b/833/CH7/EX7.11/Ex7_11.sce
new file mode 100755
index 000000000..2cb6e029f
--- /dev/null
+++ b/833/CH7/EX7.11/Ex7_11.sce
@@ -0,0 +1,16 @@
+//Caption: Calculate Power and torque developed

+//Exa:7.11

+clc;

+clear;

+close;

+p=4//Number of poles

+d=20//Diameter of armature(in cm)

+l=25//Core length(in cm)

+c=300//Number of conductors

+i_a=50//Armature current(in A)

+B=0.3//Average flux density(in weber/m^2)

+n=1000//Speedofmotor(in r.p.m)

+T=(B*(l/100)*(i_a/p)*c*(d/100)*(1/2))

+s=(2*%pi*n)/(60)

+P=(T*s)/1000

+disp(T,P,'Power(in KW) and Torque(in Nm) developed is=')
\ No newline at end of file
diff --git a/833/CH7/EX7.11/Ex7_11.txt b/833/CH7/EX7.11/Ex7_11.txt
new file mode 100755
index 000000000..2cb6e029f
--- /dev/null
+++ b/833/CH7/EX7.11/Ex7_11.txt
@@ -0,0 +1,16 @@
+//Caption: Calculate Power and torque developed

+//Exa:7.11

+clc;

+clear;

+close;

+p=4//Number of poles

+d=20//Diameter of armature(in cm)

+l=25//Core length(in cm)

+c=300//Number of conductors

+i_a=50//Armature current(in A)

+B=0.3//Average flux density(in weber/m^2)

+n=1000//Speedofmotor(in r.p.m)

+T=(B*(l/100)*(i_a/p)*c*(d/100)*(1/2))

+s=(2*%pi*n)/(60)

+P=(T*s)/1000

+disp(T,P,'Power(in KW) and Torque(in Nm) developed is=')
\ No newline at end of file
diff --git a/833/CH7/EX7.11/Result7_11.txt b/833/CH7/EX7.11/Result7_11.txt
new file mode 100755
index 000000000..ab3cc8033
--- /dev/null
+++ b/833/CH7/EX7.11/Result7_11.txt
@@ -0,0 +1,6 @@
+Power(in KW) and Torque(in Nm) developed is=   

+ 

+    2.9452431  

+ 

+    28.125  

+ 
\ No newline at end of file
diff --git a/833/CH7/EX7.12/Ex7_12.sce b/833/CH7/EX7.12/Ex7_12.sce
new file mode 100755
index 000000000..cfd2cb63e
--- /dev/null
+++ b/833/CH7/EX7.12/Ex7_12.sce
@@ -0,0 +1,15 @@
+//Caption: Determineper pole (a)Number of cross magnetising ampereturns,and (b)Demagnetising ampereturns 

+//Exa:7.12

+clc;

+clear;

+close;

+I=100//Current(in A)

+c=500//Armature conductors

+p=6//Poles 

+t=10//Angle of lead(in degree)

+a=2//Wave wound

+e=(10*p)/2

+F_d=(c*I*2*e)/(2*a*p*180)

+disp(F_d,'(a)Number of cross magnetising ampereturns=')

+F_c=(c*I)*(1-((2*e)/180))/(2*a*p)

+disp(F_c,'(b)Demagnetising ampereturns=')
\ No newline at end of file
diff --git a/833/CH7/EX7.12/Ex7_12.txt b/833/CH7/EX7.12/Ex7_12.txt
new file mode 100755
index 000000000..cfd2cb63e
--- /dev/null
+++ b/833/CH7/EX7.12/Ex7_12.txt
@@ -0,0 +1,15 @@
+//Caption: Determineper pole (a)Number of cross magnetising ampereturns,and (b)Demagnetising ampereturns 

+//Exa:7.12

+clc;

+clear;

+close;

+I=100//Current(in A)

+c=500//Armature conductors

+p=6//Poles 

+t=10//Angle of lead(in degree)

+a=2//Wave wound

+e=(10*p)/2

+F_d=(c*I*2*e)/(2*a*p*180)

+disp(F_d,'(a)Number of cross magnetising ampereturns=')

+F_c=(c*I)*(1-((2*e)/180))/(2*a*p)

+disp(F_c,'(b)Demagnetising ampereturns=')
\ No newline at end of file
diff --git a/833/CH7/EX7.12/Result7_12.txt b/833/CH7/EX7.12/Result7_12.txt
new file mode 100755
index 000000000..d373d279c
--- /dev/null
+++ b/833/CH7/EX7.12/Result7_12.txt
@@ -0,0 +1,8 @@
+ (a)Number of cross magnetising ampereturns=   

+ 

+    694.44444  

+ 

+ (b)Demagnetising ampereturns=   

+ 

+    1388.8889  

+ 
\ No newline at end of file
diff --git a/833/CH7/EX7.13/Ex7_13.sce b/833/CH7/EX7.13/Ex7_13.sce
new file mode 100755
index 000000000..f1657c3d0
--- /dev/null
+++ b/833/CH7/EX7.13/Ex7_13.sce
@@ -0,0 +1,17 @@
+//Caption:Find the time of Commutation

+//Exa:7.13

+clc;

+clear;

+close;

+p=4//Number of poles

+n=600//Speed of generator(in r.p.m)

+d=0.4//Diameter of commutator(in m)

+c=243//Number ofcommutator segments

+c_s=3//Coil sides per layer

+w=12.5//Width of brush(in mm)

+W=0.6//Width of mica between commutator segments

+W_c=(%pi*d*1000)/(c)

+D=w-W+(2*W_c)

+V_c=(%pi*d*n)/60

+T=D/V_c*(10^(-3))

+disp(T,'Time of commutation(in sec)=')
\ No newline at end of file
diff --git a/833/CH7/EX7.13/Ex7_13.txt b/833/CH7/EX7.13/Ex7_13.txt
new file mode 100755
index 000000000..f1657c3d0
--- /dev/null
+++ b/833/CH7/EX7.13/Ex7_13.txt
@@ -0,0 +1,17 @@
+//Caption:Find the time of Commutation

+//Exa:7.13

+clc;

+clear;

+close;

+p=4//Number of poles

+n=600//Speed of generator(in r.p.m)

+d=0.4//Diameter of commutator(in m)

+c=243//Number ofcommutator segments

+c_s=3//Coil sides per layer

+w=12.5//Width of brush(in mm)

+W=0.6//Width of mica between commutator segments

+W_c=(%pi*d*1000)/(c)

+D=w-W+(2*W_c)

+V_c=(%pi*d*n)/60

+T=D/V_c*(10^(-3))

+disp(T,'Time of commutation(in sec)=')
\ No newline at end of file
diff --git a/833/CH7/EX7.13/Result7_13.txt b/833/CH7/EX7.13/Result7_13.txt
new file mode 100755
index 000000000..53baa06da
--- /dev/null
+++ b/833/CH7/EX7.13/Result7_13.txt
@@ -0,0 +1,4 @@
+ Time of commutation(in sec)=   

+ 

+    0.0017700  

+ 
\ No newline at end of file
diff --git a/833/CH7/EX7.14/Ex7_14.sce b/833/CH7/EX7.14/Ex7_14.sce
new file mode 100755
index 000000000..c51280bee
--- /dev/null
+++ b/833/CH7/EX7.14/Ex7_14.sce
@@ -0,0 +1,13 @@
+//Caption: Find average reactance voltage produce due to commutation

+//Exa:7.14

+clc;

+clear;

+close;

+p=4//Number of poles

+I=300//Current delievered by generator on full load(in A)

+L=0.02*(10^(-3))//Inductance of each coil(in mH)

+a=2//Wavw wound

+i=I/2//Current in conductors in each path(in A)

+T_c=0.00174//Time of commutation(in sec)

+E_r=(2*L*i)/T_c

+disp(E_r,'Average reactance voltage(in volts)=')
\ No newline at end of file
diff --git a/833/CH7/EX7.14/Ex7_14.txt b/833/CH7/EX7.14/Ex7_14.txt
new file mode 100755
index 000000000..c51280bee
--- /dev/null
+++ b/833/CH7/EX7.14/Ex7_14.txt
@@ -0,0 +1,13 @@
+//Caption: Find average reactance voltage produce due to commutation

+//Exa:7.14

+clc;

+clear;

+close;

+p=4//Number of poles

+I=300//Current delievered by generator on full load(in A)

+L=0.02*(10^(-3))//Inductance of each coil(in mH)

+a=2//Wavw wound

+i=I/2//Current in conductors in each path(in A)

+T_c=0.00174//Time of commutation(in sec)

+E_r=(2*L*i)/T_c

+disp(E_r,'Average reactance voltage(in volts)=')
\ No newline at end of file
diff --git a/833/CH7/EX7.14/Result7_14.txt b/833/CH7/EX7.14/Result7_14.txt
new file mode 100755
index 000000000..02ea36d66
--- /dev/null
+++ b/833/CH7/EX7.14/Result7_14.txt
@@ -0,0 +1,4 @@
+ Average reactance voltage(in volts)=   

+ 

+    3.4482759  

+ 
\ No newline at end of file
diff --git a/833/CH7/EX7.15/Ex7_15.sce b/833/CH7/EX7.15/Ex7_15.sce
new file mode 100755
index 000000000..cd9802f13
--- /dev/null
+++ b/833/CH7/EX7.15/Ex7_15.sce
@@ -0,0 +1,18 @@
+//Caption: Calculate the number of turns needed on each commutating pole

+//Exa:7.15

+clc;

+clear;

+close;

+p=4//Number of poles

+P=125000//Power delievered by generator(in watts)

+V=230//Voltage of generator(in volts)

+z=240//Armature conductors 

+B=0.3//Flux density under the interpolar gap(in weber/m^2)

+g=0.01//Interpolar airgap(in m)

+a=p//LAP connection

+I_a=P/V

+F_a=(z*I_a)/(2*a*p)

+A=(B*g)/(4*%pi*(10^(-7)))

+A_t=A+F_a

+T=A_t/I_a

+disp(T,'The number of turns on each commutating pole=')
\ No newline at end of file
diff --git a/833/CH7/EX7.15/Ex7_15.txt b/833/CH7/EX7.15/Ex7_15.txt
new file mode 100755
index 000000000..cd9802f13
--- /dev/null
+++ b/833/CH7/EX7.15/Ex7_15.txt
@@ -0,0 +1,18 @@
+//Caption: Calculate the number of turns needed on each commutating pole

+//Exa:7.15

+clc;

+clear;

+close;

+p=4//Number of poles

+P=125000//Power delievered by generator(in watts)

+V=230//Voltage of generator(in volts)

+z=240//Armature conductors 

+B=0.3//Flux density under the interpolar gap(in weber/m^2)

+g=0.01//Interpolar airgap(in m)

+a=p//LAP connection

+I_a=P/V

+F_a=(z*I_a)/(2*a*p)

+A=(B*g)/(4*%pi*(10^(-7)))

+A_t=A+F_a

+T=A_t/I_a

+disp(T,'The number of turns on each commutating pole=')
\ No newline at end of file
diff --git a/833/CH7/EX7.15/Result7_15.txt b/833/CH7/EX7.15/Result7_15.txt
new file mode 100755
index 000000000..7be861f1c
--- /dev/null
+++ b/833/CH7/EX7.15/Result7_15.txt
@@ -0,0 +1,4 @@
+ The number of turns on each commutating pole=   

+ 

+    11.892676  

+ 
\ No newline at end of file
diff --git a/833/CH7/EX7.3/Ex7_3.sce b/833/CH7/EX7.3/Ex7_3.sce
new file mode 100755
index 000000000..96c85bd5a
--- /dev/null
+++ b/833/CH7/EX7.3/Ex7_3.sce
@@ -0,0 +1,20 @@
+//Caption:Find effect of change in connection on voltage,current and output

+//Exa:7.3

+clc;

+clear;

+close;

+P=50000//Power of generator(in watt)

+V_b1=230//Voltage of generator(in volts)

+p=4//Number of poles

+a=4//Number of parallel paths for lap winding

+b=2//Number of parallel paths for wave winding

+C=268//Number of conductors with LAP winding

+t=2//Two turns coils are used

+c=t*2//Conductors per slot

+n=C/c

+I_1=P/(V_b1)

+V_b2=V_b1*b

+I_2=P/(V_b2)

+disp(V_b1,I_1,'Current(in A) and voltage(in volts) for LAP winding=')

+disp(V_b2,I_2,'Current(in A) and voltage(in volts) for WAVE winding=')

+disp(P,'Output is same for both connections(in watts)=')
\ No newline at end of file
diff --git a/833/CH7/EX7.3/Ex7_3.txt b/833/CH7/EX7.3/Ex7_3.txt
new file mode 100755
index 000000000..96c85bd5a
--- /dev/null
+++ b/833/CH7/EX7.3/Ex7_3.txt
@@ -0,0 +1,20 @@
+//Caption:Find effect of change in connection on voltage,current and output

+//Exa:7.3

+clc;

+clear;

+close;

+P=50000//Power of generator(in watt)

+V_b1=230//Voltage of generator(in volts)

+p=4//Number of poles

+a=4//Number of parallel paths for lap winding

+b=2//Number of parallel paths for wave winding

+C=268//Number of conductors with LAP winding

+t=2//Two turns coils are used

+c=t*2//Conductors per slot

+n=C/c

+I_1=P/(V_b1)

+V_b2=V_b1*b

+I_2=P/(V_b2)

+disp(V_b1,I_1,'Current(in A) and voltage(in volts) for LAP winding=')

+disp(V_b2,I_2,'Current(in A) and voltage(in volts) for WAVE winding=')

+disp(P,'Output is same for both connections(in watts)=')
\ No newline at end of file
diff --git a/833/CH7/EX7.3/Result7_3.txt b/833/CH7/EX7.3/Result7_3.txt
new file mode 100755
index 000000000..4eb5a8cd9
--- /dev/null
+++ b/833/CH7/EX7.3/Result7_3.txt
@@ -0,0 +1,16 @@
+ Current(in A) and voltage(in volts) for LAP winding=   

+ 

+    217.3913  

+ 

+    230.  

+ 

+ Current(in A) and voltage(in volts) for WAVE winding=   

+ 

+    108.69565  

+ 

+    460.  

+ 

+ Output is same for both connections(in watts)=   

+ 

+    50000.  

+ 
\ No newline at end of file
diff --git a/833/CH7/EX7.6/Ex7_6.sce b/833/CH7/EX7.6/Ex7_6.sce
new file mode 100755
index 000000000..0912cb0ab
--- /dev/null
+++ b/833/CH7/EX7.6/Ex7_6.sce
@@ -0,0 +1,20 @@
+//Caption: Select a two circuit armature winding for a d.c machine

+//Exa:7.6

+clc;

+clear;

+close;

+p=4//Number of poles 

+n=1000//Speed of d.c. machine(in r.p.m)

+V=400//Voltage of d.cmachine(in volts)

+B=0.04//Flux per pole(in weber)

+s_1=41//Slot 1

+s_2=45//Slot 2

+s_3=51//Slot 3

+a=2//Number of parallel paths

+Z=(V*60*a)/(B*n*p)

+Z_c=Z/a

+Y=(s_3+1)/(p/2)

+t=3//turns per coil

+c=t*a

+z=s_3*c

+disp(z,c,t,s_3,'slots,turn coils,coils sides per slot and total number of conductors=')
\ No newline at end of file
diff --git a/833/CH7/EX7.6/Ex7_6.txt b/833/CH7/EX7.6/Ex7_6.txt
new file mode 100755
index 000000000..0912cb0ab
--- /dev/null
+++ b/833/CH7/EX7.6/Ex7_6.txt
@@ -0,0 +1,20 @@
+//Caption: Select a two circuit armature winding for a d.c machine

+//Exa:7.6

+clc;

+clear;

+close;

+p=4//Number of poles 

+n=1000//Speed of d.c. machine(in r.p.m)

+V=400//Voltage of d.cmachine(in volts)

+B=0.04//Flux per pole(in weber)

+s_1=41//Slot 1

+s_2=45//Slot 2

+s_3=51//Slot 3

+a=2//Number of parallel paths

+Z=(V*60*a)/(B*n*p)

+Z_c=Z/a

+Y=(s_3+1)/(p/2)

+t=3//turns per coil

+c=t*a

+z=s_3*c

+disp(z,c,t,s_3,'slots,turn coils,coils sides per slot and total number of conductors=')
\ No newline at end of file
diff --git a/833/CH7/EX7.6/Result7_6.txt b/833/CH7/EX7.6/Result7_6.txt
new file mode 100755
index 000000000..065894342
--- /dev/null
+++ b/833/CH7/EX7.6/Result7_6.txt
@@ -0,0 +1,10 @@
+slots,turn coils,coils sides per slot and total number of conductors=   

+ 

+    51.  

+ 

+    3.  

+ 

+    6.  

+ 

+    306.  

+ 
\ No newline at end of file
diff --git a/833/CH7/EX7.7/Ex7_7.sce b/833/CH7/EX7.7/Ex7_7.sce
new file mode 100755
index 000000000..59bb4e1ba
--- /dev/null
+++ b/833/CH7/EX7.7/Ex7_7.sce
@@ -0,0 +1,19 @@
+//Caption: Find (a)e.m.f generated at 750r.p.m for lap wound (b)e.m.f generated at 600r.p.m for wave wound (c)Speed to be driven for 400V for same flux per pole

+//Exa:7.7

+clc;

+clear;

+close;

+p=4//Number of poles

+B=0.04//Flux per pole(in weber)

+c=740//Number of conductors for lap connection

+n_1=750//Speed of machine(in r.p.m)

+n_2=600//Speed of machine(in r.p.m)

+V=400//Voltage of machine(in volts)

+a=4//Number of parallel paths for lap winding

+b=2//Number of parallel paths for wave winding

+E=(B*c*n_1*p)/(60*a)

+disp(E,'(a)E.M.F generated at 750r.p.m for lap wound(in volts)=')

+E_1=(B*c*n_2*p)/(60*b)

+disp(E_1,'(b)E.M.F generated at 600r.p.m for wavewound(in volts)=')

+n=(V*60*b)/(B*c*p)

+disp(n,'(c)Speed of machine(in r.p.m)=')
\ No newline at end of file
diff --git a/833/CH7/EX7.7/Ex7_7.txt b/833/CH7/EX7.7/Ex7_7.txt
new file mode 100755
index 000000000..59bb4e1ba
--- /dev/null
+++ b/833/CH7/EX7.7/Ex7_7.txt
@@ -0,0 +1,19 @@
+//Caption: Find (a)e.m.f generated at 750r.p.m for lap wound (b)e.m.f generated at 600r.p.m for wave wound (c)Speed to be driven for 400V for same flux per pole

+//Exa:7.7

+clc;

+clear;

+close;

+p=4//Number of poles

+B=0.04//Flux per pole(in weber)

+c=740//Number of conductors for lap connection

+n_1=750//Speed of machine(in r.p.m)

+n_2=600//Speed of machine(in r.p.m)

+V=400//Voltage of machine(in volts)

+a=4//Number of parallel paths for lap winding

+b=2//Number of parallel paths for wave winding

+E=(B*c*n_1*p)/(60*a)

+disp(E,'(a)E.M.F generated at 750r.p.m for lap wound(in volts)=')

+E_1=(B*c*n_2*p)/(60*b)

+disp(E_1,'(b)E.M.F generated at 600r.p.m for wavewound(in volts)=')

+n=(V*60*b)/(B*c*p)

+disp(n,'(c)Speed of machine(in r.p.m)=')
\ No newline at end of file
diff --git a/833/CH7/EX7.7/Result7_7.txt b/833/CH7/EX7.7/Result7_7.txt
new file mode 100755
index 000000000..09d1ce11e
--- /dev/null
+++ b/833/CH7/EX7.7/Result7_7.txt
@@ -0,0 +1,12 @@
+(a)E.M.F generated at 750r.p.m for lap wound(in volts)=   

+ 

+    370.  

+ 

+ (b)E.M.F generated at 600r.p.m for wavewound(in volts)=   

+ 

+    592.  

+ 

+ (c)Speed of machine(in r.p.m)=   

+ 

+    405.40541  

+ 
\ No newline at end of file
diff --git a/833/CH7/EX7.8/Ex7_8.sce b/833/CH7/EX7.8/Ex7_8.sce
new file mode 100755
index 000000000..023d5c513
--- /dev/null
+++ b/833/CH7/EX7.8/Ex7_8.sce
@@ -0,0 +1,19 @@
+//Caption: Calculate (a)Total armature current (b)Current per armature path (c)Generated e.m.f

+//Exa:7.8

+clc;

+clear;

+close;

+p=4//Number of poles

+P=4000//Power of generator(in watts)

+V=230//Voltage of generator(in volts)

+r_f=115//Field resistance(in ohms)

+r_a=0.1//Armature resistance(in ohms)

+a=p//number of parallel paths

+i_f=V/r_f

+i_l=P/V

+I_a=i_l+i_f

+disp(I_a,'(a)Armature current(in A)=')

+i=I_a/p

+disp(i,'(b)Current per armature path(in A)=')

+E=V+(I_a*r_a)

+disp(E,'(c)E.M.F generated(in volts)=')
\ No newline at end of file
diff --git a/833/CH7/EX7.8/Ex7_8.txt b/833/CH7/EX7.8/Ex7_8.txt
new file mode 100755
index 000000000..023d5c513
--- /dev/null
+++ b/833/CH7/EX7.8/Ex7_8.txt
@@ -0,0 +1,19 @@
+//Caption: Calculate (a)Total armature current (b)Current per armature path (c)Generated e.m.f

+//Exa:7.8

+clc;

+clear;

+close;

+p=4//Number of poles

+P=4000//Power of generator(in watts)

+V=230//Voltage of generator(in volts)

+r_f=115//Field resistance(in ohms)

+r_a=0.1//Armature resistance(in ohms)

+a=p//number of parallel paths

+i_f=V/r_f

+i_l=P/V

+I_a=i_l+i_f

+disp(I_a,'(a)Armature current(in A)=')

+i=I_a/p

+disp(i,'(b)Current per armature path(in A)=')

+E=V+(I_a*r_a)

+disp(E,'(c)E.M.F generated(in volts)=')
\ No newline at end of file
diff --git a/833/CH7/EX7.8/Result7_8.txt b/833/CH7/EX7.8/Result7_8.txt
new file mode 100755
index 000000000..1c276cce2
--- /dev/null
+++ b/833/CH7/EX7.8/Result7_8.txt
@@ -0,0 +1,11 @@
+(a)Armature current(in A)=   

+ 

+    19.391304  

+ 

+ (b)Current per armature path(in A)=   

+ 

+    4.8478261  

+ 

+ (c)E.M.F generated(in volts)=   

+ 

+    231.93913  
\ No newline at end of file
diff --git a/833/CH7/EX7.9/Ex7_9.sce b/833/CH7/EX7.9/Ex7_9.sce
new file mode 100755
index 000000000..b41e432ba
--- /dev/null
+++ b/833/CH7/EX7.9/Ex7_9.sce
@@ -0,0 +1,23 @@
+//Caption:Find the speed at which it will run as a motor

+//Exa:7.9

+clc;

+clear;

+close;

+P_g=110000//Power of generator(in watts)

+n=400//Speed of generator(in r.p.m)

+V=220//Voltage of busbars(in volts)

+P_m=10900//Power of motor(in watt)

+r_a=0.025//Armature resistance(in ohms)

+r_f=55//Field resistance(in ohms)

+v_b=1//Voltage drop at each brush(in volt)

+i_l=P_g/V

+i_f=V/r_f

+I_a=i_l+i_f

+V_a=I_a*r_a

+E=V+V_a+(2*v_b)

+I_1=P_m/V

+i_a=I_1-i_f

+v_a=i_a*r_a

+E_b=V-(i_a*r_a)-(2*v_b)

+N_m=(n*E_b)/E

+disp(N_m,'Speed at which generator will run as motor is(in r.p.m)=')
\ No newline at end of file
diff --git a/833/CH7/EX7.9/Ex7_9.txt b/833/CH7/EX7.9/Ex7_9.txt
new file mode 100755
index 000000000..b41e432ba
--- /dev/null
+++ b/833/CH7/EX7.9/Ex7_9.txt
@@ -0,0 +1,23 @@
+//Caption:Find the speed at which it will run as a motor

+//Exa:7.9

+clc;

+clear;

+close;

+P_g=110000//Power of generator(in watts)

+n=400//Speed of generator(in r.p.m)

+V=220//Voltage of busbars(in volts)

+P_m=10900//Power of motor(in watt)

+r_a=0.025//Armature resistance(in ohms)

+r_f=55//Field resistance(in ohms)

+v_b=1//Voltage drop at each brush(in volt)

+i_l=P_g/V

+i_f=V/r_f

+I_a=i_l+i_f

+V_a=I_a*r_a

+E=V+V_a+(2*v_b)

+I_1=P_m/V

+i_a=I_1-i_f

+v_a=i_a*r_a

+E_b=V-(i_a*r_a)-(2*v_b)

+N_m=(n*E_b)/E

+disp(N_m,'Speed at which generator will run as motor is(in r.p.m)=')
\ No newline at end of file
diff --git a/833/CH7/EX7.9/Result7_9.txt b/833/CH7/EX7.9/Result7_9.txt
new file mode 100755
index 000000000..24f76682d
--- /dev/null
+++ b/833/CH7/EX7.9/Result7_9.txt
@@ -0,0 +1,4 @@
+Speed at which generator will run as motor is(in r.p.m)=   

+ 

+    369.7551  

+ 
\ No newline at end of file