1 files changed, 47 insertions, 0 deletions
diff --git a/2705/CH5/EX5.23/Ex5_23.sce b/2705/CH5/EX5.23/Ex5_23.sce
new file mode 100755
index 000000000..69c2910b0
--- /dev/null
+++ b/2705/CH5/EX5.23/Ex5_23.sce
@@ -0,0 +1,47 @@
+clear;
+clc;
+disp('Example 5.23');
+
+//  aim : T determine the
+//  (a) characteristic gas constant of the gas
+//  (b) cp,
+//  (c) cv,
+//  (d) del_u 
+//  (e) work transfer
+
+//  Given values
+P = 1;//  [bar] 
+T1 = 273+15;//  [K]
+m = .9;//  [kg]
+T2 = 273+250;//  [K]
+Q = 175;//  heat transfer,[kJ]
+
+//  solution
+
+//  (a)
+//  using, P*V=m*R*T, given,
+m_by_V = 1.875;
+//  hence
+R = P*100/(T1*m_by_V);//  [kJ/kg*K]
+mprintf('\n (a) The characteristic gas constant of the gas is R  =  %f kJ/kg K\n',R);
+
+//  (b)
+//  using, Q=m*cp*(T2-T1)
+cp = Q/(m*(T2-T1));//  [kJ/kg K]
+mprintf('\n (b) The specific heat capacity of the gas at constant pressure cp  =  %f kJ/kg K\n',cp);
+
+// (c)
+//  we have, cp-cv=R,so
+cv = cp-R;// [kJ/kg*K]
+mprintf('\n (c) The specific heat capacity of the gas at constant volume cv  =  %f  kJ/kg K\n',cv);
+
+//  (d)
+del_U = m*cv*(T2-T1);//  [kJ]
+mprintf('\n (d) The change in internal energy is  =  %f kJ\n',del_U);
+
+//  (e)
+// using, Q=del_U+W
+W = Q-del_U;//  [kJ]
+mprintf('\n (e) The work transfer is W  =  %f kJ\n',W);
+
+//  End