summaryrefslogtreecommitdiff
path: root/2063/CH7/EX7.27/7_27.sce
diff options
context:
space:
mode:
Diffstat (limited to '2063/CH7/EX7.27/7_27.sce')
-rwxr-xr-x2063/CH7/EX7.27/7_27.sce36
1 files changed, 36 insertions, 0 deletions
diff --git a/2063/CH7/EX7.27/7_27.sce b/2063/CH7/EX7.27/7_27.sce
new file mode 100755
index 000000000..50212b06b
--- /dev/null
+++ b/2063/CH7/EX7.27/7_27.sce
@@ -0,0 +1,36 @@
+clc
+clear
+//Input data
+F=11;//Fuel used per hour observed during the trial of a single cylinder four stroke diesel engine in kg
+mc=85;//Carbon present in the fuel in percent
+mh=14;//Hydrogen present in the fuel in percent
+mn=1;//Non combustibles present in the fuel in percent
+CV=50000;//Calorific value of fuel in kJ/kg
+Vc=8.5;//Percentage of carbon dioxide present in exhaust gas by Volumetric analysis
+Vo=10;//Oxygen present in exhaust gases in percent
+Vn=81.5;//Nitrogen present in exhaust gases in percent
+Te=400;//Temperature of exhaust gases in degrees celsius
+se=1.05;//Specific heat of exhaust gas in kJ/kg
+Pp=0.030;//Partial pressure of steam in the exhaust in bar
+Ta=20;//Ambient temperature in degrees celsius
+hs=2545.6;//Enthalpy of saturated steam in kJ/kg
+Tsa=24.1;//Saturation temperature from graph in degrees celcius
+Cp=2.1;//Specific heat in kJ/kg K
+hst=3335;//Enthalpy of super heated steam in kJ/kg
+
+//Calculations
+Ma=(Vn*mc)/(33*Vc);//Mass of air supplied per kg of fuel in kg
+Me=Ma+1;//Mass of exhaust gases formed per kg of fuel in kg
+me=(Me*F)/60;//Mass of exhaust gases formed per minute in kg
+ms=F*(mh/100);//Mass of steam formed per kg of fuel in kg
+ms1=(ms*F)/60;//Mass of steam formed per minute in kg
+mde=me-ms1;//Mass of dry exhaust gases formed per minute in kg
+H=mde*se*(Te-Ta);//Heat carried away by the dry exhaust gases per minute in kJ/min
+Es=hs+(Cp*(Te-Tsa));//Enthalpy of superheated steam in kJ/kg
+He=ms1*hst;//Heat carried away by steam in the exhaust gases in kJ/min
+Hl=H+He;//Total heat lost through dry exhaust gases and steam in kJ/min
+Hf=(F/60)*CV;//Heat supplied by fuel per minute in kJ/min
+nh=(Hl/Hf)*100;//Percentage of heat carried away by exhaust gases
+
+//Output
+printf('Percentage of heat carried away by exhaust gases is %3.1f percent',nh)