summaryrefslogtreecommitdiff
path: root/1244/CH7/EX7.3/Example73.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.3/Example73.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.3/Example73.sce')
-rwxr-xr-x1244/CH7/EX7.3/Example73.sce40
1 files changed, 40 insertions, 0 deletions
diff --git a/1244/CH7/EX7.3/Example73.sce b/1244/CH7/EX7.3/Example73.sce
new file mode 100755
index 000000000..c825a7080
--- /dev/null
+++ b/1244/CH7/EX7.3/Example73.sce
@@ -0,0 +1,40 @@
+
+
+// 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.3 ")
+
+//Velocity of air in m/s
+Uinfinity = 0.5;
+//Length and breadth of square shaped array in m
+L = 2.5;
+//Surface temperature in degree C
+Ts = 70;
+//Ambient temperature in degree C
+Ta = 20;
+
+//At free stream temperature of air
+//Kinematic viscosity in m2/s
+nu = 0.0000157;
+//Density in kg/m3
+rho = 1.16;
+//Specific heeat in Ws/kgC
+c = 1012;
+//Prandtl number
+Pr = 0.71;
+
+//Reynolds number
+Re = (Uinfinity*L)/nu;
+
+//From equation 7.18
+//The average heat transfer coefficient in W/m2C is
+//Heat transfer coefficient in W/m2C
+h = (((0.0033*(Pr^(-2/3)))*c)*rho)*Uinfinity;
+disp("Heat loss from array in W is")
+//Heat loss in W
+q = ((h*L)*L)*(Ts-Ta)