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

---
 3843/CH9/EX9.2/Ex9_2.sce | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100644 3843/CH9/EX9.2/Ex9_2.sce

(limited to '3843/CH9/EX9.2')

diff --git a/3843/CH9/EX9.2/Ex9_2.sce b/3843/CH9/EX9.2/Ex9_2.sce
new file mode 100644
index 000000000..7dd0ad003
--- /dev/null
+++ b/3843/CH9/EX9.2/Ex9_2.sce
@@ -0,0 +1,22 @@
+// Example 9_2
+clc;funcprot(0);
+// Given data
+m=20;// The mass flow rate of air in kg/min
+P_4=1600;// kPa
+T_1=20+273;// K
+P_1=100;// kPa
+n=0.90;// The efficiency of the compressor
+c_p=1.00;// kJ/kg.K
+k=1.4;// The specific heat ratio
+
+// Calculation
+P_2=sqrt(P_1*P_4);// kPa
+T_3=T_1;// K
+T_2a=T_1*(P_2/P_1)^((k-1)/k);// K
+// Assume T_2'=T_2a
+// P_4/P_3=P_2/P_1
+T_4a=T_3*(P_2/P_1)^((k-1)/k);// K
+T_2=T_1+((1/n)*(T_2a-T_1));// K
+T_4=T_2;// K
+W_comp=((m/60)*c_p*(T_2-T_1))+((m/60)*c_p*(T_4-T_3));// The required power in kW
+printf("\nThe power required to drive the two-stage adiabatic compressor,W_comp=%3.0f kW",W_comp);
-- 
cgit