initial commit / add all books

1 files changed, 60 insertions, 0 deletions

diff --git a/3733/CH17/EX17.16/Ex17_16.sce b/3733/CH17/EX17.16/Ex17_16.sce
new file mode 100644
index 000000000..0336aa547
--- /dev/null
+++ b/3733/CH17/EX17.16/Ex17_16.sce
@@ -0,0 +1,60 @@
+// Example 17_16

+clc;funcprot(0);

+// Given data

+m_s1=20;// tons/hr

+m_s1=20*10^3;// kg/hr

+m_a1=6;// kg/hr

+T_1=39;// °C

+T_2=28;// °C

+T_3=36;// °C

+gradT=15;// °C

+R=287;// J/kg.°C

+C_pa=1.005;// kJ/kg.°C

+C_pw=4.18;//kJ/kg.°C

+

+// Calculation

+// Considering section 1-1

+// From steam tables,at T_1=39°C

+p_s1=0.06991;// bar

+v_s1=20.56;// m^3/kg

+h_s1=2572.6;// kJ/kg

+V_s1=(m_s1*10^3*v_s1);// m^3/hr

+// By Dalton's law,

+V_a1=V_s1;// m^3/hr

+p_a1=(m_a1*R*(T_1+273))/(V_a1);// N/m^2

+p_a1=p_a1/10^5;// bar

+p_t=p_s1+p_a1;// bar

+

+//Considering section 2-2

+//From steam tables,at T_2=28°C

+p_s2=0.0378;// bar

+v_s2=36.728;// m^3/kg

+h_s2=2552.7;// kJ/kg

+p_a2=p_t-p_s2;// bar

+V_a2=(m_a1*R*(T_2+273))/(p_a2*10^5);// m^3/hr

+//As per Dalton's law,

+V_s2=V_a2;// m^3/hr

+m_s2=V_a2/v_s2;// kg/hr

+

+// Considering section 3-3

+// From steam tables,at T_3=36°C

+p_s3=0.0594;// bar

+v_s3=23.967;// m^3/kg

+p_a3=p_t-p_s3;// bar

+V_s3=(m_a1*R*(T_3+273))/(p_a3*10^5);// m^3/hr

+V_a3=V_s3;// m^3/hr

+m_s3=V_a3/v_s3;// kg/hr

+Pr=((V_a3-V_a2)/V_a3)*100;// %

+

+// Determination of cooling water requirement

+// Assume

+m_a2=m_a1;

+m_c=m_s1;// (assumed))

+m_w=(((m_s1*h_s1)-(m_s2*h_s2))+((m_a1*C_pa*T_1)-(m_a2*C_pa*T_2))-(m_c*C_pw*T_3))/(C_pw*gradT);// kg/hr

+m_w=m_w/10^3;// tons/hr

+m_w=(m_w*10^3)/3600;// kg/sec

+m_sc=m_s3-m_s2;// Saving in condensate in kg/hr

+Q=m_sc*C_pw*(T_3-gradT);//kJ/hr

+printf('\nPercentage reduction in air pump capacity=%0.1f percentage \nMinimum quantity of cooling water=%0.1f kg/sec \nSaving in the condensate=%0.2f kg/hr \nSaving in heat supplied,Q=%0.2f kJ/hr',Pr,m_w,m_sc,Q);

+// The answer vary due to round off error

+