summaryrefslogtreecommitdiff
path: root/1244/CH7/EX7.7/Example77.sce
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /1244/CH7/EX7.7/Example77.sce
downloadScilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip
initial commit / add all books
Diffstat (limited to '1244/CH7/EX7.7/Example77.sce')
-rwxr-xr-x1244/CH7/EX7.7/Example77.sce45
1 files changed, 45 insertions, 0 deletions
diff --git a/1244/CH7/EX7.7/Example77.sce b/1244/CH7/EX7.7/Example77.sce
new file mode 100755
index 000000000..494b788e8
--- /dev/null
+++ b/1244/CH7/EX7.7/Example77.sce
@@ -0,0 +1,45 @@
+
+
+// Display mode
+mode(0);
+
+// Display warning for floating point exception
+ieee(1);
+
+clc;
+disp("Principles of Heat Transfer, 7th Ed. Frank Kreith et. al Chapter - 7 Example # 7.7 ")
+
+
+//Temperature of jet in degree C
+T = 20;
+//Thermal conductivity in W/mK
+k = 0.597;
+//Dynamic viscosity in Ns/m2
+mu = 0.000993;
+//Prandtl number
+Pr = 7;
+//Mass flow rate in kg/s
+m = 0.008;
+//Diameter of jet in m
+d = 6/1000;
+//Total heat flux in W/m2
+q = 70000;
+
+//Reynolds number
+Re = (4*m)/((%pi*d)*mu);
+
+disp("For r=3mm")
+//From Eq. (7.45)
+//Heat transfer coefficient in W/m2K
+h = (63*k)/d;
+disp("Surface temperature at r=3mm in degree C is")
+//Surface temperature in degree C
+Ts = T+q/h
+
+disp("For r=12mm")
+//From Eq. (7.48)
+//Heat transfer coefficient in W/m2K
+h = (35.3*k)/d;
+disp("Surface temperature at r=12mm in degree C is")
+//Surface temperature in degree C
+Ts = T+q/h