From 7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 Mon Sep 17 00:00:00 2001
From: prashantsinalkar
Date: Tue, 10 Oct 2017 12:27:19 +0530
Subject: initial commit / add all books

---
 1808/CH5/EX5.10/Chapter5_Exampl10.sce | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100644 1808/CH5/EX5.10/Chapter5_Exampl10.sce

(limited to '1808/CH5/EX5.10/Chapter5_Exampl10.sce')

diff --git a/1808/CH5/EX5.10/Chapter5_Exampl10.sce b/1808/CH5/EX5.10/Chapter5_Exampl10.sce
new file mode 100644
index 000000000..d7ff200cb
--- /dev/null
+++ b/1808/CH5/EX5.10/Chapter5_Exampl10.sce
@@ -0,0 +1,25 @@
+clc
+clear
+//INPUT DATA
+c=0.04;//clearance volume
+p1=0.98;//pressure in bar
+p2=7;//pressure in bar
+n=1.3;//constant for cylinder
+pa=1.013;//ambient pressure in bar
+x=1.3;//stroke to bore ratio
+va=0.25;//volume in m^3/sec
+ta=300;//ambient temperature in K
+t1=313;//temperature in K
+
+//CALCULATIONS
+nv=(1+c-c*((p2/p1)^(1/n)))*100;//volumetric efficiency in percentage
+v14=(pa-va)*t1/(p1*ta);//volume in m^3/sec
+vs=v14/nv;//swept volume in m^3/sec
+l=(0.03141*4/(3.14*9))^(1/3);//stroke length in m
+d=3*l;//bore length in m
+ip=(n/(n-1))*p1*10^2*(v14)*(((p2/p1)^((n-1)/n))-1);//indicated power in kW
+
+//OUTPUT
+printf('(i)Volumetric efficiency is %3.2f percentage \n (ii)Cylinder dimensions \n l= %3.4f m \n d= %3.3f m \n (iii)Indicated power %3.3f kW',nv,l,d,ip)
+
+
-- 
cgit