22 files changed, 689 insertions, 0 deletions
diff --git a/32/CH11/EX11.01/11_01.sce b/32/CH11/EX11.01/11_01.sce
new file mode 100755
index 000000000..0c8ef7439
--- /dev/null
+++ b/32/CH11/EX11.01/11_01.sce
@@ -0,0 +1,15 @@
+//pathname=get_absolute_file_path('11.01.sce')
+//filename=pathname+filesep()+'11.01-data.sci'
+//exec(filename)
+//Height of chimney(in m):
+H=30
+//Ambient air temperature(in K):
+Ta=27+273
+//Mass per kg of fuel required for complete combustion(in kg):
+m=20
+//Height in the water column(in mm):
+hw=12
+//Temperature of burnt gases(in K):
+Tg=(Ta*353*H)/(353*H-hw*Ta)*(m)/(m+1)
+printf("\n RESULT \n")
+printf("\nTemperature of the burnt gases = %f K",Tg)
+\ No newline at end of file
diff --git a/32/CH11/EX11.02/11_02.sce b/32/CH11/EX11.02/11_02.sce
new file mode 100755
index 000000000..83bd14137
--- /dev/null
+++ b/32/CH11/EX11.02/11_02.sce
@@ -0,0 +1,15 @@
+//pathname=get_absolute_file_path('11.02.sce')
+//filename=pathname+filesep()+'11.02-data.sci'
+//exec(filename)
+//Mass per kg of fuel required for complete combustion(in kg):
+m=18
+//Height in the water column(in mm):
+hw=20
+//Ambient air temperature(in K):
+Ta=27+273
+//Temperature of burnt gases(in K):
+Tg=300+273
+//Height of chimney(in m):
+H=hw/(353*(1/Ta-(m+1)/(m*Tg)))
+printf("\n RESULT \n")
+printf("\nHeight of chimney = %f m",H)
+\ No newline at end of file
diff --git a/32/CH11/EX11.03/11_03.sce b/32/CH11/EX11.03/11_03.sce
new file mode 100755
index 000000000..54b63dd42
--- /dev/null
+++ b/32/CH11/EX11.03/11_03.sce
@@ -0,0 +1,16 @@
+//pathname=get_absolute_file_path('11.03.sce')
+//filename=pathname+filesep()+'11.03-data.sci'
+//exec(filename)
+//Height of chimney(in m):
+H=20
+//Temperature of burnt gases(in K):
+Tg=380+273
+//Ambient air temperature(in K):
+Ta=27+273
+//Air supplied(in kg air per fuel):
+m=2*Ta/(Tg-2*Ta)
+printf("\n RESULT \n")
+printf("\nAir supplied = %f kg/kg of fuel",m)
+//Draught in water column(in mm):
+hw=353*H*(1/Ta-(m+1)/(m*Tg))
+printf("\nDraught = %f mm of water",hw)
+\ No newline at end of file
diff --git a/32/CH11/EX11.04/11_04.sce b/32/CH11/EX11.04/11_04.sce
new file mode 100755
index 000000000..af55ee893
--- /dev/null
+++ b/32/CH11/EX11.04/11_04.sce
@@ -0,0 +1,27 @@
+//pathname=get_absolute_file_path('11.04.sce')
+//filename=pathname+filesep()+'11.04-data.sci'
+//exec(filename)
+//Height of chimney(in m):
+H=60
+//Ambient air temperature(in K):
+Ta=17+273
+//Temperature of burnt gases(in K):
+Tg=300+273
+//Temperature of the artificial burnt gases(in K):
+Tga=150+273
+//Mass per kg of fuel required for complete combustion(in kg):
+m=19
+//Specific heat of hot gases(in kJ/kg.K):
+Cpg=1.0032
+//Calorific value of burnt fuel(in kJ/kg):
+c=32604
+//Draught (in mm of water column):
+hw=353*H*(1/Ta-(m+1)/(m*Tg))
+//Chimney efficiency:
+n=9.81*H*(m/(m+1)*Tg/Ta-1)/(Cpg*(Tg-Tga)*10^3)*100
+//Extra heat carried away by flue gases(in kJ):
+Q=(m+1)*Cpg*(Tg-Tga)
+printf("\n RESULT \n")
+printf("\nDraught = %f mm of water",hw)
+printf("\nChimney efficiency = %f percent",n)
+printf("\nExtra heat carried away by flue gases per kg of fuel burnt = %f kJ",Q)
+\ No newline at end of file
diff --git a/32/CH11/EX11.05/11_05.sce b/32/CH11/EX11.05/11_05.sce
new file mode 100755
index 000000000..dc0d4a980
--- /dev/null
+++ b/32/CH11/EX11.05/11_05.sce
@@ -0,0 +1,23 @@
+//pathname=get_absolute_file_path('11.05.sce')
+//filename=pathname+filesep()+'11.05-data.sci'
+//exec(filename)
+//Height of chimney(in m):
+H=80
+//Ambient air temperature(in K):
+Ta=27+273
+//Mass per kg of fuel required for complete combustion(in kg):
+m=20
+//Temperature of the artificial burnt gases(in K):
+Tga=110+273
+//Specific heat of hot gases(in kJ/kg.K):
+Cpg=1.0032
+//Temperature of burnt gases(in K):
+Tg=Ta*2*(m+1)/m
+//Draught in water column(in mm):
+hw=353*H*(1/Ta-(m+1)/(m*Tg))
+//Chimney efficiency:
+n=9.81*H*(m/(m+1)*Tg/Ta-1)/(Cpg*(Tg-Tga)*10^3)*100
+printf("\n RESULT \n")
+printf("\nHot gas temperature in chimney = %d K",Tg)
+printf("\nNatural draught = %f mm of water",hw)
+printf("\nChimney efficiency = %f percent",n)
+\ No newline at end of file
diff --git a/32/CH11/EX11.06/11_06.sce b/32/CH11/EX11.06/11_06.sce
new file mode 100755
index 000000000..730e0ca87
--- /dev/null
+++ b/32/CH11/EX11.06/11_06.sce
@@ -0,0 +1,33 @@
+//pathname=get_absolute_file_path('11.06.sce')
+//filename=pathname+filesep()+'11.06-data.sci'
+//exec(filename)
+//Rate at which coal is burnt(in kg/hr):
+R=2.5*10^3
+//Mass per kg of fuel required for complete combustion(in kg):
+m=20
+//Temperature of burnt gases(in K):
+Tg=327+273
+//Ambient air temperature(in K):
+Ta=27+273
+//Pressure head(in mm):
+h=7+6+3+2
+//Ratio of actual natural draught to theoretical draught:
+na=0.90
+//Acceleration due to gravity(in m/s^2):
+g=9.81
+//Actual natural draught(in mm of water):
+hw=h/na
+//Height of chimney(in m):
+H=hw/(353*(1/Ta-(m+1)/(m*Tg)))
+//Density of hot gases(in kg/m^3):
+dg=353/Tg*(m+1)/m
+//Height of hot gases column(in m):
+hg=H*((m+1)/m*Tg/Ta-1)
+//Mass flow rate of hot gases(in kg/s):
+Mg=R*hw/3600
+//Velocity of got gases(in m/s):
+C=sqrt(2*g*hg)
+//Diameter of chimney(in m):
+D=sqrt((4*Mg)/(%pi*C*dg))
+printf("\n RESULT \n")
+printf("\nDiameter of chimney = %f m",D)
+\ No newline at end of file
diff --git a/32/CH11/EX11.07/11_07.sce b/32/CH11/EX11.07/11_07.sce
new file mode 100755
index 000000000..573549324
--- /dev/null
+++ b/32/CH11/EX11.07/11_07.sce
@@ -0,0 +1,28 @@
+//pathname=get_absolute_file_path('11.07.sce')
+//filename=pathname+filesep()+'11.07-data.sci'
+//exec(filename)
+//Draught in water column(in mm):
+hw=50
+//Temperature of burnt gases(in K):
+T=300+273
+//Rate at which coal is burnt(in kg/s):
+M=2000/3600
+//Mass per kg of fuel required for complete combustion(in kg):
+m=19
+//Ambient air temperature(in K):
+T1=27+273
+//Zero temperature(in K):
+T0=273
+//Mechanical efficiency:
+n=0.90
+//Pressure applied by the draught water(in N/m^2):
+P=hw*9.81
+//Density of hot gases(in kg/m^3):
+d=1.293
+//Power required in FD fan(kW):
+PFD=P*m*M*T1/(d*T0*n*1000)
+//Power required in 1D fan(kW):
+P1D=P*m*M*T/(d*T0*n*1000)
+printf("\n RESULT \n")
+printf("\nPower for FD fan = %f kW",PFD)
+printf("\nPower for 1D fan = %f kW",P1D)
+\ No newline at end of file
diff --git a/32/CH11/EX11.08/11_08.sce b/32/CH11/EX11.08/11_08.sce
new file mode 100755
index 000000000..82e41b586
--- /dev/null
+++ b/32/CH11/EX11.08/11_08.sce
@@ -0,0 +1,26 @@
+//pathname=get_absolute_file_path('11.08.sce')
+//filename=pathname+filesep()+'11.08-data.sci'
+//exec(filename)
+//Specific heat of hot gases(in kJ/kg.K):
+Cpg=1.0032
+//Temperature of burnt gases(in K):
+Tg=177+273
+//Ambient air temperature(in K):
+Ta=27+273
+//Natural draught temperature(in K):
+Tn=327+273
+//Mass per kg of fuel required for natural draught(in kg):
+mn=25
+//Mass per kg of fuel required for artificial draught(in kg):
+ma=20
+//Ratio of brake power for induced draught to forced draught:
+r=Tg/Ta
+//Heat carried by hot flue gases in artificial draught(in per kg of fuel burnt):
+Qgad=(ma+1)*Cpg*(Tg-Ta)
+//Heat carried by hot flue gases in natural draught(in per kg of fuel burnt):
+Qgnd=(mn+1)*Cpg*(Tn-Ta)
+//Ratio of heat carried away:
+rh=Qgad/Qgnd
+printf("\n RESULT \n")
+printf("\nRatio of power required = %f",r)
+printf("\nRatio of heat carried away = %f",rh)
+\ No newline at end of file
diff --git a/32/CH11/EX11.09/11_09.sce b/32/CH11/EX11.09/11_09.sce
new file mode 100755
index 000000000..39f52f5c3
--- /dev/null
+++ b/32/CH11/EX11.09/11_09.sce
@@ -0,0 +1,30 @@
+//pathname=get_absolute_file_path('11.09.sce')
+//filename=pathname+filesep()+'11.09-data.sci'
+//exec(filename)
+//Feed water supply temperature(in K):
+T=27+273
+//Mean steam generation pressure(in bar):
+P=10
+//Dryness fravtion of steam generated:
+x=0.95
+//Feed water supplied(in kg/hr):
+Q=2500
+//Coal burnt(in kg/hr):
+Q1=275
+//Difference in mass of water after trial:
+d=300
+//From steam tables:
+hf=762.81 //kJ/kg
+hg=2778.1 //kJ/kg
+hfg=2015.29 //kJ/kg
+//Enthalpy of steam generated(in kJ/kg):
+h=hf+x*hfg
+//Mass of water evaporator per hour(in kg/hr):
+mw=Q+d
+//Actual evaporation(in per kg of coal):
+Ae=mw/Q1
+//Equivalent evaporation(in kg per kg of coal):
+Ee=Ae*h/2257
+printf("\n RESULT \n")
+printf("\nActual evaporation = %f kg per kg of coal",Ae)
+printf("\nEquivalent evaporation = %f kg per kg of coal",Ee)
+\ No newline at end of file
diff --git a/32/CH11/EX11.10/11_10.sce b/32/CH11/EX11.10/11_10.sce
new file mode 100755
index 000000000..532bae5cf
--- /dev/null
+++ b/32/CH11/EX11.10/11_10.sce
@@ -0,0 +1,31 @@
+//pathname=get_absolute_file_path('11.10.sce')
+//filename=pathname+filesep()+'11.10-data.sci'
+//exec(filename)
+//Average pressure of the steam(in bar):
+p=10
+//Weight of water consumed(in ton):
+Ww=15
+//Weight of coal produced(in ton):
+Wc=1.5
+//Percentage coal that caan be burnt:
+n=1-0.03-0.04
+//Composition of moisture in coal:
+nm=0.03
+//Temperature of feed water(in C):
+Tf=35
+//From steam tables:
+hg=2778.1 //kJ/kg
+//Enthalpy of steam generated(in kJ/kg):
+h=hg-4.18*Tf
+//Steam generated per kg of coal(in kg):
+m=Ww/Wc
+//Boiler efficiency:
+nb=m*h/(30.1*10^3)*100
+//Equivalent evaporation per kg of dry coal(in kg:
+Ee=m*h/(2257*(1-nm))
+//Equivalent evaporation per kg of combustible present in coal(in kg):
+Eea=Ee*(1-nm)/n
+printf("\n RESULT \n")
+printf("\nBoiler efficiency = %f percent",nb)
+printf("\nEquivalent evaporation per kg of dry coal = %f kg",Ee)
+printf("\nEquivalent evaporation per kg of combustible present in coal = %f kg",Eea)
+\ No newline at end of file
diff --git a/32/CH11/EX11.11/11_11.sce b/32/CH11/EX11.11/11_11.sce
new file mode 100755
index 000000000..2a29e3941
--- /dev/null
+++ b/32/CH11/EX11.11/11_11.sce
@@ -0,0 +1,42 @@
+//pathname=get_absolute_file_path('11.11.sce')
+//filename=pathname+filesep()+'11.11-data.sci'
+//exec(filename)
+//Time of trial(in hrs):
+t=24
+//Pressure at which steam is generated(in bar):
+p=16
+//Coal consumed(in kg):
+c=10000
+//Rate of steam generation(in kg/hr):
+r=2500
+//Feed water temperature(in C):
+Tf=27
+//Total heating surface area(in m^2):
+hsa=3000
+//Total grate area(in m^2):
+ga=4
+//Calorific value of coal(in kJ/kg):
+C=28000
+//From steam tables:
+hg=2794 //kJ/kg
+//Latent heat at 100 C:
+L=2257
+//Coal  burnt per hour(in kg/hr):
+m=c/t
+//Coal burnt per m^2 of grate per hour:
+mg=m/ga
+//Rate of steam generated per kg of coal(in kg steam/kg coal):
+r1=r/m
+//Heat added to steam per kg of coal(in kJ):
+Q=r1*(hg-4.18*Tf)
+//Equivalent evaporation from and at 100 C per kg of coal(in kg):
+Ee=Q/L
+//Equivalent evaporation from and at 100 C per m^2 of total surface per hour(in kg):
+Eepm=Ee*m/hsa
+//Boiler efficiency:
+n=Ee*L/C*100
+printf("\n RESULT \n")
+printf("\nMass of coal burnt per m^2 of grate per hour = %f kg",mg)
+printf("\nEquivalent evaporation from and at 100 C per kg of coal = %f kg",Ee)
+printf("\nEquivalent evaporation from and at 100 C per m^2 of total surface per hour = %f",Eepm)
+printf("\nBoiler efficiency = %f percent",n)
+\ No newline at end of file
diff --git a/32/CH11/EX11.12/11_12.sce b/32/CH11/EX11.12/11_12.sce
new file mode 100755
index 000000000..12346bded
--- /dev/null
+++ b/32/CH11/EX11.12/11_12.sce
@@ -0,0 +1,37 @@
+//pathname=get_absolute_file_path('11.12.sce')
+//filename=pathname+filesep()+'11.12-data.sci'
+//exec(filename)
+//Pressure at which steam is generated(in bar):
+p=30
+//Temperature of steam(in C):
+Ts=300
+//Rate at which feed water enters(in kg/s):
+r=11
+//Temperature at which feed water enters the economiser(in C):
+T1=100
+//Mass of fuel used(in kg):
+m=5000
+//Calorific value of fuel(in kJ/kg.K):
+C=35000
+//Temperature of feed water(in C):
+T=27
+//From steam tables:
+hg=2993.5
+//Latent heat at 100 C:
+L=2257
+//Mass of steam genrated per kg of fuel(in kg/kg fuel):
+ms=r*3600/m
+//Heat added per kg of fuel(in kJ):
+Q=hg-4.18*T
+//Equivalent evaporation from and at 100 C per kg of coal(in kg):
+Ee=ms*Q/L
+//Boiler efficiency:
+n=Ee*L/C*100
+//Heat utilised in economiser per kg of fuel(in kJ):
+Q1=ms*4.18*(T1-T)
+//Percentage of energy utilised in economiser:
+P=Q1/C*100
+printf("\n RESULT \n")
+printf("\nEquivalent evaporation per kg of fuel = %f kg",Ee)
+printf("\nBoiler efficiency = %f percent",n)
+printf("\nPercentage of energy utilised in economiser = %f percent",P)
+\ No newline at end of file
diff --git a/32/CH11/EX11.13/11_13.sce b/32/CH11/EX11.13/11_13.sce
new file mode 100755
index 000000000..a5eb3f786
--- /dev/null
+++ b/32/CH11/EX11.13/11_13.sce
@@ -0,0 +1,43 @@
+//pathname=get_absolute_file_path('11.13.sce')
+//filename=pathname+filesep()+'11.13-data.sci'
+//exec(filename)
+//Mass of steam genrated per kg of fuel:
+m=8
+//Temperature of steam(in C):
+Ts=400
+//Pressure of feed water(in bar):
+p=30
+//Temperature of feed water(in C):
+T=40
+//Temperature at which feed water leaves the economiser(in C):
+T1=150
+//Dryness fraction:
+x=0.98
+//Calorific value(in kJ/kg.K):
+C=29000
+//From steam tables:
+//Enthalpy of steam generated(in kJ/kg):
+h=3230.9
+hf=1008.42 //kJ/kg
+hfg=1795.78 //kJ/kg
+//Heat to be added(in kJ):
+Q=h-4.18*T
+//Boiler efficiency:
+n=m*Q/C*100
+//Heat added in economiser per kg of steam generated(in kJ/kg):
+Q1=4.18*(T1-T)
+//Percentage fraction of heat in economiser:
+r1=Q1/Q*100
+//Heat added in evaporator per kg of steam generated(in kJ/kg):
+Q2=(hf+x*hfg)-4.18*T1
+//Percentage fraction of heat in economiser:
+r2=Q2/Q*100
+//Heat added in super heater per kg of steam generated by difference(in kJ/kg):
+Q3=Q-Q1-Q2
+//Percentage fraction of heat in economiser:
+r3=Q3/Q*100
+printf("\n RESULT \n")
+printf("\nBoiler efficiency = %f percent",n)
+printf("\nPercentage fraction of heat in economiser = %f percent",r1)
+printf("\nPercentage fraction of heat in evaporator = %f percent",r2)
+printf("\nPercentage fraction of heat in superheater = %f percent",r3)
+\ No newline at end of file
diff --git a/32/CH11/EX11.14/11_14.sce b/32/CH11/EX11.14/11_14.sce
new file mode 100755
index 000000000..00ed4a339
--- /dev/null
+++ b/32/CH11/EX11.14/11_14.sce
@@ -0,0 +1,37 @@
+//pathname=get_absolute_file_path('11.14.sce')
+//filename=pathname+filesep()+'11.14-data.sci'
+//exec(filename)
+//Temperature at which feed water enters and leaves the economiser(in C):
+T1=20
+T2=125
+//Rate at which feed water leaves the economiser(in kg/s):
+r=3
+//Temperature of flue gases at inlet and outlet of economiser(in C):
+T3=425
+T4=300
+//Rate at which coal is supplied(in kg/min):
+r1=18
+//% of C in coal:
+nc=0.80
+//Specific heat of flue gases(in kJ/kg.K):
+Cpg=1.05
+//Atmospheric temperature(in C):
+Ta=15
+//From table:
+//Mass of dry flue gases at inlet and exit of economiser(in kg):
+m1=23.65
+m2=24.78
+//Air leakage in economiser per kg of coal:
+A=m2-m1
+//Heat entering economiser with flue gases and leakage(in kJ):
+Q1=m1*Cpg*T3+A*Cpg*Ta
+//Heat entering economiser with flue gases and leakage(in kJ):
+Q2=m2*Cpg*T4
+//Heat lost in economiser per kg of coal(in kJ):
+Q=Q1-Q2
+//Heat picked up by feed water in economiser per kg of coal(in kJ):
+Q3=(r*60/r1)*4.18*(T2-T1)
+printf("\n RESULT \n")
+printf("\nHeat released by the flue gases = %f kJ per kg of coal",Q)
+printf("\nAir leakage = %f kg per kg of coal",A)
+printf("\nHeat gained by feed water = %d kJ per kg of coal",Q3)
+\ No newline at end of file
diff --git a/32/CH11/EX11.15/11_15.sce b/32/CH11/EX11.15/11_15.sce
new file mode 100755
index 000000000..27a8dd8ec
--- /dev/null
+++ b/32/CH11/EX11.15/11_15.sce
@@ -0,0 +1,38 @@
+//pathname=get_absolute_file_path('11.15.sce')
+//filename=pathname+filesep()+'11.15-data.sci'
+//exec(filename)
+//Atmospheric air temperature: 15C
+//Steam generation: 40 bar, 400C
+//Steam generated per kg of coal = 8 kg
+//Feed water temperature at inlet to economiser = 27C
+//Feed water temperature at exit of economiser = 137C
+//Moisture in coal burnt = 1.5%
+//Flue gas temperature entering air heater =300C
+//Flue gas temperature leaving air heater and entering chimney = 150C
+//Temperature of air entering boiler furnace = 120C
+//Dry coal composition by mass = 84% C, 4% H2, 7% O2 and remainder ash
+//Dry flue gas composition by volume = 12.5% CO2, 7.5% O2, 80% N2
+//Datum temperature = 15C
+//Calorific value of coal = 32600 kJ/kg
+//For air and dry flue gas, cp =1.0032 kJ/kg K
+//Partial pressure of vapour in flue gas = 0.075 bar
+//Specific pressure of vapour = 2.0064 kJ/kg K
+//Mass of dry flue gas per kg of coal:
+md=0.84/0.0495
+//H2O produced during the combustion(in kg):
+mh=0.04*9
+//Amount of air supplied for combustion of one kg of dry coal(in kg):
+ma=16.97-(1-0.05-0.36)
+//Moisture per kg of dry coal(in kg):
+m=0.015/(1-0.015)
+//Total moisture per kg of coal(in kg):
+mt=mh+m
+//Steam generated per kg of dry coal(in kg steam):
+ms=8/(1-0.015)
+//Boiler efficiency:
+n=25178.01/32600*100
+//Efficiency of heat exchange in air heater:
+na=1725.4/2897.67*100
+printf("\n RESULT \n")
+printf("\nBoiler efficiency = %f percent",n)
+printf("\nEfficiency of heat exchange in air heater = %f percent",na)
diff --git a/32/CH11/EX11.17/11_17.sce b/32/CH11/EX11.17/11_17.sce
new file mode 100755
index 000000000..6b74b7609
--- /dev/null
+++ b/32/CH11/EX11.17/11_17.sce
@@ -0,0 +1,41 @@
+//pathname=get_absolute_file_path('11.17.sce')
+//filename=pathname+filesep()+'11.17-data.sci'
+//exec(filename)
+//Pressure at which steam is generated(in bar):
+p=20
+//Temperature at which steam is generated(in C):
+Ts=300
+//Temperature of feed water supplied to the boiler(in C):
+T1=50
+//Calorific value of fuel(in kJ/kg):
+C=30000
+//Rate at which coal is used(in kg/hr):
+r=600
+//Rate at which steam is generated(in kg/hr):
+r1=5000
+//Temperature of the boiler unit(in C):
+T=100
+//Latent heat(in kJ/kg.K):
+L=2257 
+//Steam generation per unit coal burnt per hour:
+ms=r1/r
+//Final enthalpy of the steam(in kJ/kg):
+hfi=3023.5 
+//Enthalpy of feed water(in kJ/kg):
+hfw=209.33
+//Overall efficiency of boiler:
+no=ms*(hfi-hfw)/C*100
+//Equivalent evaporation of boiler unit(in kg steam per kg of coal):
+Ee=ms*(hfi-hfw)/L
+//Equivalent evaporation of boiler unit at 100 C(in kg/hr):
+Eea=Ee*r
+//After fitting economiser the enthalp of feed water(in kJ/kg):
+hfw1=313.93
+//Modified overall efficiency of boiler unit:
+nom=no+5
+//Coal consumption(in kg/hr):
+mc=(hfi-hfw1)*r1*100/(C*nom)
+//Saving of coal(in kg/hr):
+s=r-mc
+printf("\n RESULT \n")
+printf("\nSaving of coal = %f kg/hr",s)
+\ No newline at end of file
diff --git a/32/CH11/EX11.18/11_18.sce b/32/CH11/EX11.18/11_18.sce
new file mode 100755
index 000000000..df613a82b
--- /dev/null
+++ b/32/CH11/EX11.18/11_18.sce
@@ -0,0 +1,42 @@
+//pathname=get_absolute_file_path('11.18.sce')
+//filename=pathname+filesep()+'11.18-data.sci'
+//exec(filename)
+//Rate at which steam is generated(in kg/hr):
+r=5000
+//Pressure of steam(in bar):
+p=20
+//Dryness fraction:
+x=0.98
+//Temperature of feed water(in C):
+T=60
+//Rate at which coal is supplied(in kg/hr):
+r1=600
+//Rate at which air is supplied(in kg per kg coal):
+r2=16
+//Cslorific value of coal(in kJ/kg):
+C=30000
+//Temperature of boiler room(in C):
+Tr=20
+//Fraction of heat losr with flue gases:
+nl=0.86
+//Specific heat of flue gases(in kJ/kg.K):
+Cpg=1.005
+//From steam tables:
+hf=908.79 //kJ/kg
+hfg=1890.7 //kJ/kg
+//Mass of steam genrated per kg of coal:
+ms=r/r1
+//Enthalpy of final steam produced(in kJ/kg):
+hfi=hf+x*hfg
+//Enthalpy of feed water(in kJ/kg):
+hfw=251.13
+//Heat used for steam generation(in kJ per kg of coal):
+Q=ms*(hfi-hfw)
+//Heat lost per kg of coal:
+Ql=C-Q
+//Heat lost with flue gases(in kJ per kg of coal):
+Qlf=nl*Ql
+//Temperature of flue gases(in C):
+Tgas=Tr+Qlf/((r2+1)*Cpg)
+printf("\n RESULT \n")
+printf("\nTemperature of flue gases = %f C",Tgas)
+\ No newline at end of file
diff --git a/32/CH11/EX11.19/11_19.sce b/32/CH11/EX11.19/11_19.sce
new file mode 100755
index 000000000..2ede9c58d
--- /dev/null
+++ b/32/CH11/EX11.19/11_19.sce
@@ -0,0 +1,34 @@
+//pathname=get_absolute_file_path('11.19.sce')
+//filename=pathname+filesep()+'11.19-data.sci'
+//exec(filename)
+//Ambient temperature(in K):
+Ta=20+273
+//Velocity(in m/s):
+V=20
+//Draught lost through grate(in mm of water column):
+hw1=30
+//Mechanical efficiency:
+nm=0.80
+//Rate at which coal is burnt(in kg/hr):
+mf=1000
+//Rate at which air is supplied(in kg/hr):
+ma=16
+//Ambient pressure(in bar):
+pa=1.01325
+//Density of air(in kg/m^3):
+d=1.29
+//Acceleration due to gravity(in m/s^2):
+g=9.81
+//Zero temperature(in K):
+T0=273
+//Pressure equivalent to velocity head(in N/m^2):
+P1=d*V^2/2
+P=P1/g //mm of water column
+//Total draught loss(in mm of water column):
+hw=hw1+P
+//Pressure required(in N/m^2):
+p=hw*g
+//F.D. fan power requirement(in W):
+PFD=p*mf*ma*Ta/(d*T0*nm*3600)
+printf("\n RESULT \n")
+printf("\nF.D. fan power = %f W",PFD)
+\ No newline at end of file
diff --git a/32/CH11/EX11.20/11_20.sce b/32/CH11/EX11.20/11_20.sce
new file mode 100755
index 000000000..e729be4bc
--- /dev/null
+++ b/32/CH11/EX11.20/11_20.sce
@@ -0,0 +1,36 @@
+//pathname=get_absolute_file_path('11.20.sce')
+//filename=pathname+filesep()+'11.20-data.sci'
+//exec(filename)
+//Height of chimney(in m):
+H=45
+//Temperature of burnt gases(in K):
+Tg=630
+//Air requirement(in kg air per kg of fuel burnt):
+m=15
+//Ambient air temperature(in K):
+Ta=300
+//Minimum temperatre of artificial draught(in K):
+Tga=150+273
+//Specific heat of flue gases(in kJ/kg.K):
+Cpg=1.005
+//Calorific value of fuel(in kJ/kg):
+C=30000
+//Draught (in mm of water column):
+hw=353*H*(1/Ta-(m+1)/(m*Tg))
+//Draught (in metres of hot gas column):
+hg=H*(m/(m+1)*Tg/Ta-1)
+//Temperature of chimney for maximum discharge(in K):
+Tgmax=Ta*2*(m+1)/m
+//Chimney efficiency:
+n=9.81*H*(m/(m+1)*Tg/Ta-1)/(Cpg*(Tg-Tga)*10^3)*100
+//Extra heat carried away by flue gases(in kJ):
+Q=(m+1)*Cpg*(Tg-Tga)
+//Percentage heat spent in natural draught:
+nn=Q/C*100
+printf("\n RESULT \n")
+printf("\nDraught = %f mm of water",hw)
+printf("\nDraught = %f metres of hotgas column",hg)
+printf("\nTemperature of chimney gases for maximum discharge = %d K",Tgmax)
+printf("\nChimney efficiency = %f percent",n)
+printf("\nExtra heat carried away by flue gases per kg of fuel burnt = %f kJ",Q)
+printf("\nPercentage heat carried away in natural draught = %f percent",nn)
+\ No newline at end of file
diff --git a/32/CH11/EX11.21/11_21.sce b/32/CH11/EX11.21/11_21.sce
new file mode 100755
index 000000000..a1b6e46fa
--- /dev/null
+++ b/32/CH11/EX11.21/11_21.sce
@@ -0,0 +1,19 @@
+//pathname=get_absolute_file_path('11.21.sce')
+//filename=pathname+filesep()+'11.21-data.sci'
+//exec(filename)
+//Ambient air temperature(in K):
+Ta=27+273
+//Temperature of burnt gases(in K):
+Tg=630
+//Air consumed at rate(in kg air per kg of coal):
+m=15
+//Ratio of actual draught to thereotical draught:
+r=0.60
+//Actual draught:
+hw1=14
+//Theoretical draught:
+hw=hw1/r
+//Height of chimney(in m):
+H=hw/(353*(1/Ta-(m+1)/(m*Tg)))
+printf("\n RESULT \n")
+printf("\nHeight of chimney = %f m",H)
+\ No newline at end of file
diff --git a/32/CH11/EX11.22/11_22.sce b/32/CH11/EX11.22/11_22.sce
new file mode 100755
index 000000000..4923b8938
--- /dev/null
+++ b/32/CH11/EX11.22/11_22.sce
@@ -0,0 +1,31 @@
+//pathname=get_absolute_file_path('11.22.sce')
+//filename=pathname+filesep()+'11.22-data.sci'
+//exec(filename)
+//Static draught(in mm of water column):
+hw1=100
+//Amount of discharge(in m^3/s):
+mf=30
+//Area of outlet section(in m^2):
+a=1.8
+//Ambient temperature(in K):
+Ta=300
+//Density(in kg/m^3):
+d=1.293
+//Fan efficiency:
+nm=0.85
+//Flue gas temperature(in K):
+Tf=150+273
+//Zero temperature(in K):
+T0=273
+//Velocity of air(in m/s):
+V=mf/a
+//Pressure created due to the gases(in mm of water):
+p=d*V^2/(2*9.81)
+//Total draught(in mm of water column):
+hw=hw1+p
+//Power of motor of forced draught fan(in kW):
+PFD=hw*9.81*mf*Ta/(T0*nm*10^3)
+//Power consumption of induced draught fan(in kW):
+PID=PFD*Tf/Ta
+printf("\nRESULTS\n")
+printf("\nPower consumption of ID fan = %f kW",PID)
+\ No newline at end of file
diff --git a/32/CH11/EX11.23/11_23.sce b/32/CH11/EX11.23/11_23.sce
new file mode 100755
index 000000000..2907ffc55
--- /dev/null
+++ b/32/CH11/EX11.23/11_23.sce
@@ -0,0 +1,45 @@
+//pathname=get_absolute_file_path('11.23.sce')
+//filename=pathname+filesep()+'11.23-data.sci'
+//exec(filename)
+//Temperature at which feed water enters and leaves economiser(in C):
+T1=30
+T2=110
+//Pressure at which steam is generated(in bar):
+p=20
+//Dryness fraction:
+x=0.98
+//Temperature to which it is superheated(in C):
+T=300
+//Calorific value of coal(in kJ/kg.K):
+C=30500
+//Steam generation rate(in kg/kg of coal):
+r=10
+//Specific heat of feed water(in kJ/kg.K):
+Cpfw=4.18
+//Specific heat of superheated steam(in kJ/kg.K):
+Cps=2.093
+//From steam tables:
+h4=3023.5 //kJ/kg
+hf=908.79 //kJ/kg
+hfg=1890.7 //kJ/kg
+h1=125.79 //kJ/kg
+//Enthalpy at state 3(in kJ/kg):
+h3=hf+x*hfg
+//Total heat supplied(in kJ/kg):
+Q=h4-h1
+//Heat consumed in the economiser(in kJ/kg of coal):
+Q1=Cpfw*(T2-T1)*8
+//Heat consumed in the boiler(in kJ/kg coal):
+Q2=(h3-Cpfw*T2)*8
+//Heat consumed in the superheater(in kJ/kg steam):
+Q3=(h4-h3)*8
+//Fraction of energy consumed in economiser:
+r1=Q1/C*100
+//Fraction of energy consumed in boiler:
+r2=Q2/C*100
+//Fraction of energy consumed in superheater:
+r3=Q3/C*100
+printf("\nRESULTS\n")
+printf("\nFraction of energy consumed in economiser = %f percent",r1)
+printf("\nFraction of energy consumed in boiler = %f percent",r2)
+printf("\nFraction of energy consumed in superheater = %f percent",r3)
+\ No newline at end of file