1 files changed, 21 insertions, 0 deletions
diff --git a/2063/CH9/EX9.16/9_16.sce b/2063/CH9/EX9.16/9_16.sce
new file mode 100755
index 000000000..46a816834
--- /dev/null
+++ b/2063/CH9/EX9.16/9_16.sce
@@ -0,0 +1,21 @@
+clc
+clear
+//Input data
+P1=1;//Initial pressure of a two stage air compressor in bar
+P3=36;//Final pressure in bar
+T1=298;//Initial temperature in K
+n=1.35;//Polytropic index
+T3=298;//Temperature after intercooling in K
+Tc=20;//Permissible temperature rise of the cooling water in K
+R=287;//Gas constant in J/kg K
+Cp=1;//Specific heat of air in kJ/kg K
+Cw=4.2;//Specific heat of water in kJ/kg K
+ma=1;//Mass of air in the compressor in kg
+
+//Calculations
+P2=(P1*P3)^(0.5);//Intercooler pressure for complete intercooling and for minimum work of compression in bar
+T2=T1*(P2/P1)^((n-1)/n);//Temperature after the compression process in K
+mw=(ma*Cp*(T2-T3))/(Cw*(Tc));//Mass of water to circulate in the intercooler per kg of air in kg
+
+//Output
+printf('Mass of water to circulate in the intercooler for abstracting heat is %3.3f kg',mw)