summaryrefslogtreecommitdiff
path: root/686/CH11/EX11.1/Ex11_1.sci
diff options
context:
space:
mode:
Diffstat (limited to '686/CH11/EX11.1/Ex11_1.sci')
-rwxr-xr-x686/CH11/EX11.1/Ex11_1.sci26
1 files changed, 26 insertions, 0 deletions
diff --git a/686/CH11/EX11.1/Ex11_1.sci b/686/CH11/EX11.1/Ex11_1.sci
new file mode 100755
index 000000000..6595c114a
--- /dev/null
+++ b/686/CH11/EX11.1/Ex11_1.sci
@@ -0,0 +1,26 @@
+clc();
+clear;
+
+// To calculate the local heat transfer coefficient
+
+Ts = 200; // Temperature of steam in F
+Ta = 68; // Air temerature in F
+n = 24.21*10^-5; // Kinematic viscosity in ft^2/sec
+k = 0.0181; // Thermal conductivity in Btu/hr-ft-F
+g = 32.2; // Gravity
+b = 1/528; // Expansion coefficient
+x = 8/12; // Distance from lower end
+th = Ts-Ta; // Temperature difference in F
+Gr = g*b*th*x^3/(n^2); // Grashops number
+Pr = 0.694; // Prandtls number
+del = x*3.93*Pr^(-0.5)*((0.952+Pr)^1/4)*Gr^(-0.25);
+// Boundary layer thickness
+h = 2*k/del; // film heat transfer coefficient
+hav = 4*h/3; // Avg heat transfer cioefficient
+printf("The average heat transfer coefficient over the length of 8 in. is %.2f Btu/hr-ft^2-F",h);
+
+
+
+
+
+