1 files changed, 32 insertions, 0 deletions
diff --git a/3733/CH17/EX17.14/Ex17_14.sce b/3733/CH17/EX17.14/Ex17_14.sce
new file mode 100644
index 000000000..f0be52823
--- /dev/null
+++ b/3733/CH17/EX17.14/Ex17_14.sce
@@ -0,0 +1,32 @@
+// Example 17_14
+clc;funcprot(0);
+//Given data
+P=120;//Plant capacity in MW
+p_1=150;// bar
+T_1=600;// °C
+p_2=0.08;// bar
+h_i=1000;// Heat transfer coefficient of water side in W/m^2 °C
+h_o=5000;// Heat transfer coefficient of steam side in W/m^2 °C
+T_wi=25;// The inlet temperature of water in °C
+T_wo=35;//The outlet temperature of water in °C
+d_i=2.5;// cm
+d_o=2.9;// cm
+L=5;// Length of the tube in m'
+
+//Calculation
+// From steam tables,the saturation temperature of the steam at 0.08 bar
+T_c=41.5;//The condensate temperature in °C
+h_f2=174;// kJ/kg
+//From h-s chart,
+h_1=3580;// kJ/kg
+h_2=2080;// kJ/kg
+m_s=((P*1000)/(h_1-h_2));// The mass of steam flowing through the turbine in kg/sec
+Q=m_s*(h_2-h_f2);
+U_o=1/(((1/h_i)*(d_o/d_i))+(1/h_o));// Overall heat transfer coefficient referred to outer surface of the tubes in W/m^2 °C
+Theta_i=(T_c-T_wi);// °C
+Theta_o=(T_c-T_wo);// °C
+LMTD=(Theta_i-Theta_o)/(log(Theta_i/Theta_o));//Logrithemic mean temperature difference in °C
+A_s=(Q/(U_o*LMTD));//m^2
+n=(A_s/(%pi*(d_o/100)*L));
+printf('The number of tubes required=%0.0f tubes',n);
+// The answer provided in the textbook is wrong