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

---
 1226/CH20/EX20.35/EX20_35.jpg | Bin 0 -> 119765 bytes
 1226/CH20/EX20.35/EX20_35.sce |  13 +++++++++++++
 2 files changed, 13 insertions(+)
 create mode 100755 1226/CH20/EX20.35/EX20_35.jpg
 create mode 100755 1226/CH20/EX20.35/EX20_35.sce

(limited to '1226/CH20/EX20.35')

diff --git a/1226/CH20/EX20.35/EX20_35.jpg b/1226/CH20/EX20.35/EX20_35.jpg
new file mode 100755
index 000000000..90acd1d7d
Binary files /dev/null and b/1226/CH20/EX20.35/EX20_35.jpg differ
diff --git a/1226/CH20/EX20.35/EX20_35.sce b/1226/CH20/EX20.35/EX20_35.sce
new file mode 100755
index 000000000..5d5bc0367
--- /dev/null
+++ b/1226/CH20/EX20.35/EX20_35.sce
@@ -0,0 +1,13 @@
+clc;funcprot(0);//EXAMPLE 20.35
+// Initialisation of Variables
+v=0.03;..............//Induced volume in m^3/rev
+p1=1.013;...........//Inlet pressure in bar
+rp=1.5;............//Pressure ratio
+ga=1.4;...........//Ratio of specific heats
+//Calculations
+p2=rp*p1;
+wr=(p2-p1)*(10^5)*v/1000;.....//Work input for roots compressor in kJ
+disp(wr,"Work input for roots compressor in kJ/rev")
+pi=(p2+p1)/2;
+wv=((p2-pi)*(10^5)*v*((p1/pi)^(1/ga))*(1/1000))+((ga/(ga-1))*p1*(10^5)*(v/1000)*(((pi/p1)^((ga-1)/ga))-1));...//Work input required for vane type in kJ/rev
+disp(wv,"Work input for vane compressor in kJ/rev")
-- 
cgit