1 files changed, 22 insertions, 0 deletions
diff --git a/1226/CH17/EX17.24/EX17_24.sce b/1226/CH17/EX17.24/EX17_24.sce
new file mode 100755
index 000000000..58a01b0d9
--- /dev/null
+++ b/1226/CH17/EX17.24/EX17_24.sce
@@ -0,0 +1,22 @@
+clc;funcprot(0);//EXAMPLE 17.24
+// Initialisation of Variables
+v1=0.216;.....................//Gas consumption in m^3/min
+pw=75;........................//Pressure of gas in mm of water
+t1=290;......................//Temperature of gas in K
+ac=2.84;....................//Air consumption in kg/min
+br=745;......................//Barometer reading in m of Hg
+D=0.25;.....................//Engine bore in m
+L=0.475;......................//Engine stroke in m
+N=240;........................//Engine rpm
+R=287;......................//Gas constant for air in J/kgK
+//Calculations
+p1=br+(pw/13.6);...................//Pressure of gas in mm of mercury
+p2=760;t2=273;.....................//NTP conditions in mm of Hg and Kelvin
+v2=(p1*v1*t2)/(t1*p2);...............//Volume of gas used at NTP in m^3
+gs=v2/(N/2);.........................//Gas used per stroke in m^3
+v=(ac*R*t2)/(1.0132*10^5);...........//Volume occupied by air at NTP in m^3/min
+aps=v/(N/2);...........................//Air used per stroke
+Va=gs+aps;.....................//Actual volume of mixture in m^3 drawn per stroke at NTP
+Vs=(%pi/4)*D*D*L;...............//Swept volume in mm^3
+etaV=(Va/Vs);...................//Volumetric efficiency
+disp(etaV*100,"Volumetric efficiency (in %):")