1 files changed, 13 insertions, 0 deletions
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")