summaryrefslogtreecommitdiff
path: root/965/CH9/EX9.14/14.sci
diff options
context:
space:
mode:
Diffstat (limited to '965/CH9/EX9.14/14.sci')
-rw-r--r--965/CH9/EX9.14/14.sci20
1 files changed, 20 insertions, 0 deletions
diff --git a/965/CH9/EX9.14/14.sci b/965/CH9/EX9.14/14.sci
new file mode 100644
index 000000000..487b4324e
--- /dev/null
+++ b/965/CH9/EX9.14/14.sci
@@ -0,0 +1,20 @@
+clc;
+clear all;
+disp("heat transfer rate")
+d=0.06;//m diameter
+L=1.2;//m
+ts=50;// degree C
+tsat=100;//degree C
+rhol=975;//kg/m^3
+mu=375*10^(-6);// Ns/m^2
+k=0.67;// W/m.C
+rhov=0.596;// kg/m^3
+hfg=2257*10^3;// J/kg
+g=9.81;//m/s
+h=1.13*(rhol*(rhol-rhov)*k^3*g*hfg/(mu*L*(tsat-ts)))^0.25;
+Q=h*(%pi*d*L)*(tsat-ts);
+disp("kW",Q/1000,"The rate of heat transfer =")
+m=Q/hfg;//kg/s
+disp("kg/h",m*3600,"rate of condensation of steam =")
+Re=4*m/(%pi*d*mu);
+disp(Re,"Re =")