Added new codeHEADmaster

2 files changed, 29 insertions, 0 deletions

diff --git a/3878/CH21/EX21.5/Ex21_5.sce b/3878/CH21/EX21.5/Ex21_5.sce
new file mode 100644
index 000000000..c0683f5c9
--- /dev/null
+++ b/3878/CH21/EX21.5/Ex21_5.sce
@@ -0,0 +1,15 @@
+clear
+// Variable declaration
+T_s=100// The temperature of steam in °C
+T_d=21// The dry bulb temperature in °C
+H=50//  % saturation
+x_ab=0.0079// Moisture content of air before in kg/kg
+x_a=0.0067// Moisture added in kg/kg
+C_ps=1.972// The specific heat capacity of the steam in kJ/kg°C
+C_pa=1.006// The specific heat capacity of air in kJ/kg.K
+
+// Calculation
+x=x_ab+x_a// Final moisture content in kg/kg
+t=((x_a*C_ps*T_s)+(C_pa*T_d))/(((x_a*C_ps)+(C_pa)))// The final dry bulb temperature in °C
+printf("\n \nFinal moisture content=%0.4f kg/kg \nThe final dry bulb temperature,t=%2.2f°C",x,t)
+
diff --git a/3878/CH21/EX21.7/Ex21_7.sce b/3878/CH21/EX21.7/Ex21_7.sce
new file mode 100644
index 000000000..bb63f86f4
--- /dev/null
+++ b/3878/CH21/EX21.7/Ex21_7.sce
@@ -0,0 +1,14 @@
+clear
+// Variable declaration
+m_w=4// The mass of water in kg
+m_a=1// The mass of air in kg
+h_ab=45.79// Enthalpy of air before in kJ/kg
+h_aa=26.7// Enthalpy of air after in kJ/kg
+C_pw=4.187// The specific heat capacity of water in kJ/kg.K
+
+// Calculation
+Q_l=h_ab-h_aa// Heat lost per kilogram air in kJ
+Q_g=Q_l/m_w// Heat gain per kilogram water in kJ
+dT=Q_g/C_pw// Temperature rise of water in K
+printf("\n Temperature rise of water=%1.0f K",dT)
+