initial commit / add all books

1 files changed, 28 insertions, 0 deletions

diff --git a/1226/CH7/EX7.10/EX7_10.sce b/1226/CH7/EX7.10/EX7_10.sce
new file mode 100755
index 000000000..d27d011d8
--- /dev/null
+++ b/1226/CH7/EX7.10/EX7_10.sce
@@ -0,0 +1,28 @@
+clc;funcprot(0)//EXAMPLE 7.10

+

+//Initializing the variables

+n=1;.....//No of cylinders

+D=0.32;.....//Bore of the cylinder in m

+L=0.38;......//Stroke of the cylinder in m

+N = 280;....//Engine rpm

+CV = 18600;....//calorific value of fues in kJ/m^3

+Tk1 = 300;....//Initial temperature in Kelvin

+p1 = 1.013;.....//Initial pressure in bar

+ma = 3.36;.......//mass of air consumed per min

+tgc = 0.25;......//test gas consumption in m^3/min

+pw = 120;.........//pressure of water in mm during the test gas consumption

+tgct = 300;.......//Temperature in Kelvin during test gas consumption

+rhow = 1000;.....//density of water in kg/m^3

+R=287;...........//Gas constant in J/kg.K

+//calculations

+V= (ma*R*Tk1)/(p1*(10^5));...//Volume of air consumed at inlet condition

+

+gsp = p1 +(pw/rhow)/10.2;...................//Gas supply pressure

+//1 bar = 10.2 m

+gcic = tgc*(gsp/p1);..........//Gas consumption at inlet condition

+Vi = gcic+V;.....//Volume of mixture at inlet condition

+Vswt = (%pi/4)*(D^2)*L*(N/2);......//Swept volume 

+etaV = Vi/Vswt;.....//Volumetric efficiency

+disp(etaV*100,"The volumetric efficiency of the engine is (%):")

+hv = (gcic/Vi)*CV;......//Heating value

+disp(hv,"The heating value of 1 m^3 of charge at 25 degree Celsius in kJ.m^3")