1 files changed, 18 insertions, 0 deletions
diff --git a/1304/CH1/EX1.6/1_6.sce b/1304/CH1/EX1.6/1_6.sce
new file mode 100644
index 000000000..a5959a51a
--- /dev/null
+++ b/1304/CH1/EX1.6/1_6.sce
@@ -0,0 +1,18 @@
+clear;
+clc;
+printf("\t\t\tExample Number 1.6\n\n\n");
+// calculating heat flow from tube to the air flowing across it 
+// solution
+
+Q=100;//[W] heat transfer rate from sphere to the surrounding
+d=0.1; //[m] diameter of sphere
+dT=50; //[degree celcius] temeprature difference between sphere and surrounding ambient air 
+//heat transfer rate Q is given by Q=hm*A*dT (by Newton's law of cooling)
+//where hm= mean convection heat transfer coefficient
+//A=Surface area of sphere = %pi*d^2
+//Thus
+hm=Q/(dT*%pi*d^(2));//[W/m^2 degree celcius]
+
+
+printf("The convection heat transfer coefficient between the sphere and the ambient air is %f W/m^2 degree celcius",hm);
+