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);