diff options
Diffstat (limited to '914/CH11/EX11.6/ex11_6.sce')
-rwxr-xr-x | 914/CH11/EX11.6/ex11_6.sce | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/914/CH11/EX11.6/ex11_6.sce b/914/CH11/EX11.6/ex11_6.sce new file mode 100755 index 000000000..fae0d7b69 --- /dev/null +++ b/914/CH11/EX11.6/ex11_6.sce @@ -0,0 +1,23 @@ +clc;
+warning("off");
+printf("\n\n example11.6 - pg525");
+// given
+Tw=680; //[K] - temperature at the wall
+Tb=640; //[K] - temperature at the bulk
+Tf=(Tw+Tb)/2; //[K]
+Nre=50000;
+vmb=2.88*10^-7;
+vf=2.84*10^-7;
+Nref=Nre*(vmb/vf);
+k=27.48;
+d=0.04;
+// from table 11.3 the prandtl no. is
+Npr=8.74*10^-3
+// constant heat flow
+Nnu=6.3+(0.0167)*((Nref)^0.85)*((Npr)^0.93);
+h=Nnu*(k/d);
+printf("\n\n constant heat flow\n h = %f W/m^2*K = %f Btu/ft^2*h*degF",h,h*0.17611);
+// constant wall temperature
+Nnu=4.8+0.0156*((Nref)^0.85)*((Npr)^0.93);
+h=Nnu*(k/d);
+printf("\n\n constant wall temperature\n h = %f W/m^2*K = %f Btu/ft^2*h*degF",h,h*0.17611);
|