From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001
From: priyanka
Date: Wed, 24 Jun 2015 15:03:17 +0530
Subject: initial commit / add all books

---
 1373/CH8/EX8.10/Chapter8_Example10.sce | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)
 create mode 100755 1373/CH8/EX8.10/Chapter8_Example10.sce

(limited to '1373/CH8/EX8.10')

diff --git a/1373/CH8/EX8.10/Chapter8_Example10.sce b/1373/CH8/EX8.10/Chapter8_Example10.sce
new file mode 100755
index 000000000..cc1fd8de8
--- /dev/null
+++ b/1373/CH8/EX8.10/Chapter8_Example10.sce
@@ -0,0 +1,28 @@
+//Chapter-8, Example 8.10, Page 351
+//=============================================================================
+clc
+clear
+
+//INPUT DATA
+Ta=25;//Temperature of air in degree C
+Ts=95;//Surface temperature of wire in degree C
+D=0.0025;//Diameter of wire in m
+R=6;//Resistivity in ohm/m
+
+//CALCULATIONS
+Tf=(Ts+Ta)/2;//Film temperature in degree C
+k=0.02896;//Thermal conductivity in W/m.K
+v1=(18.97*10^-6);//Kinematic viscosity in m^2/s
+b=(1/333);//Coefficient of thermal expansion in 1/K
+Pr=0.696;//Prantl number
+Gr=((9.81*b*D^3*(Ts-Ta))/(v1^2));//Grashof number
+Ra=(Gr*Pr);//Rayleigh number
+Nu=(1.18*Ra^(1/8));//Nussults number
+h=(Nu*k)/D;//Heat transfer coefficient in W/m^2.K
+Q=(h*3.14*D*(Ts-Ta));//Rate of heat loss per unit length of wire in W/m
+I=sqrt(Q/R);//Maximum current intensity in A
+
+//OUTPUT
+mprintf('Heat transfer coefficient is %3.2f W/m^2.K \nMaximum current intensity is %3.2f A',h,I)
+
+//=================================END OF PROGRAM==============================
-- 
cgit