From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001
From: priyanka
Date: Wed, 24 Jun 2015 15:03:17 +0530
Subject: initial commit / add all books

---
 32/CH12/EX12.14/12_14.sce | 55 +++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 55 insertions(+)
 create mode 100755 32/CH12/EX12.14/12_14.sce

(limited to '32/CH12/EX12.14')

diff --git a/32/CH12/EX12.14/12_14.sce b/32/CH12/EX12.14/12_14.sce
new file mode 100755
index 000000000..49eece6e5
--- /dev/null
+++ b/32/CH12/EX12.14/12_14.sce
@@ -0,0 +1,55 @@
+//pathname=get_absolute_file_path('12.14.sce')
+//filename=pathname+filesep()+'12.14-data.sci'
+//exec(filename)
+//Pressure at which steam is supplied(in bars):
+p1=7
+//Pressure at exhaust(in bars):
+p5=0.25
+//Diameter of HP and LP cylinder(in m):
+dhp=0.25
+dlp=0.50
+//Cut-off point of HP and LP cylinders:
+r1=0.30
+r2=0.45
+//Clearance volume of HP and LP cylinders:
+c1=0.10
+c2=0.05
+//Diagram factors of HP and LP cylinders:
+d1hp=0.8
+d1lp=0.7
+//Rpm pf engine:
+N=100
+//Let the length of stroke(in m):
+L=1
+//Volume of HP cylinder(in m^2):
+VHP=%pi*dhp^2/4*L
+//Volume of LP cylinder(in m^2):
+VLP=%pi*dlp^2/4*L
+//Clearance volume(in m^2):
+V9=c1*VHP
+V7=c2*VLP
+//Total volume of cylinders(in m^3):
+V2=VHP+V9
+V5=VLP+V7
+//Volume at cut-off in HP cylinder(in m^3):
+V1=V9+r1*VHP
+V3=V7+r2*VLP
+//Expansion ratio:
+rhp=V2/V1
+rlp=V5/V3
+//Pressure at state 3(in kPa):
+p3=p1*10^2*V1/V3
+//Actual mep for HP cylinder(in kPa):
+mepahp=d1hp*(p1*10^2*V1*(1+log(rhp))-p3*V2-(p1*10^2-p3)*V9)/VHP
+//Actual mep for LP cylinder(in kPa):
+mepalp=62.96
+//Actual mep of HP reffered to LP cylinder:
+mepa=mepahp*VHP/VLP
+//Total mep(in kPa):
+mept=mepalp+mepa
+//Total output(in kW):
+W=mept*VLP*100/60
+printf("\nRESULT\n")
+printf("\nmep of Hp referred to LP = %f kPa",mepa)
+printf("\nmep of LP = %f kPa",mepalp)
+printf("\nTotal output = %f*L kW where L is stroke length",W)
\ No newline at end of file
-- 
cgit