1 files changed, 30 insertions, 0 deletions
diff --git a/530/CH5/EX5.1.a/example_5_1a.sce b/530/CH5/EX5.1.a/example_5_1a.sce
new file mode 100755
index 000000000..b350271a6
--- /dev/null
+++ b/530/CH5/EX5.1.a/example_5_1a.sce
@@ -0,0 +1,30 @@
+clear;
+clc;
+
+// A Textbook on HEAT TRANSFER by S P SUKHATME
+// Chapter 5
+// Heat Transfer by Forced Convection
+
+
+// Example 5.1(a)
+// Page 209
+printf("Example 5.1(a) \n\n")
+
+D = 0.015 ; // [m]
+Q = 0.05 ; // [m^3/h]
+H = 1000 ; // [W/m^2]
+T_b = 40 ; // [degree C]
+
+// From table A.1, properties at 40 degree C
+k = 0.634 ; // [W/m K]
+v = 0.659*10^-6 ; // [m^2/s]
+
+V_bar = 4*Q/((%pi)*D^2);
+
+Re_D = V_bar*D/v;
+
+// Therefore, Laminar Flow, from eqn 5.2.8
+
+h = 4.364*k/D; // [W/m^2 K]
+
+printf("(a) Local heat transfer coefficient is %f W/m^2 K \n",h);
+\ No newline at end of file