1 files changed, 31 insertions, 0 deletions
diff --git a/1919/CH4/EX4.6/Ex4_6.sce b/1919/CH4/EX4.6/Ex4_6.sce
new file mode 100755
index 000000000..bede12da4
--- /dev/null
+++ b/1919/CH4/EX4.6/Ex4_6.sce
@@ -0,0 +1,31 @@
+
+// Theory and Problems of Thermodynamics
+// Chapter 4
+// Energy Analysis of Process
+// Example 6
+
+clear ;clc;
+
+//Given data
+m_f = 1              // mass flow rate in mol/s
+gam = 1.4            // ideal gas constant gamma
+P1 = 0.1             // Entering steam Pressure in MPa  
+T1 = 300             // entering Temperature in K
+T2 = 750             // leaving Temperature in K
+R = 8.314            // gas constant 
+
+// The first law of thermodynamics for the steady-state flow process when 
+// change in KE and PE are ignored reduces to
+
+W_s = m_f * R* gam*(T2-T1)/(gam-1)  // Power consumed by the compressor
+W_s = W_s*1e-3                      // units conversion W to kW
+
+
+// Output Results
+mprintf('Power consumed by the compressor = %6.3f kW',W_s)
+
+
+
+
+
+