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

---
 581/CH8/EX8.3/Example8_3.sce | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100755 581/CH8/EX8.3/Example8_3.sce

(limited to '581/CH8/EX8.3/Example8_3.sce')

diff --git a/581/CH8/EX8.3/Example8_3.sce b/581/CH8/EX8.3/Example8_3.sce
new file mode 100755
index 000000000..6afb5398a
--- /dev/null
+++ b/581/CH8/EX8.3/Example8_3.sce
@@ -0,0 +1,26 @@
+
+clear;
+clc;
+
+printf("\t Example 8.3\n");
+
+T1=323;     //wall temp.,K
+T2=293;     //air temp.,K
+H=0.3;      //height of wall, m
+v1=16.45*10^-6;   // molecular diffusivity, m^2/s
+b=1/T2;    // b=1/v*d(R*T/p)/dt=1/To   characterisation constant of thermal expansion of solid, K^-1
+v2=2.318*10^-5;    //molecular diffusivity, m^2/s
+Pr=0.71;   //prandtl no.
+
+ Ral=9.8*b*(T1-T2)*H^3/((1.566*10^-5)*(2.203*10^-5));    // Rayleigh no.
+ Nu=0.678*Ral^(0.25)*(Pr/(0.952+Pr))^(1/4);        // nusselt no.
+ h=Nu*0.0267/H     // average heat transfer coefficient, W/m^2/K
+ 
+ Nu1=0.68+0.67*((Ral)^(1/4)/(1+(0.492/Pr)^(9/16))^(4/9));    //churchill correlation 
+ 
+ h1=Nu1*(0.0267/0.3)-.11;     //average heat transfer coefficient, W/m^2/K
+ 
+ 
+printf("\t correlation average heat transfer coefficient is :%.2f W/m^2/K\n",h1)
+printf("\t the prediction is therefore within 5 percent of corelation .we should use the latter result in preference to the theoritical one, although the difference is slight.")
+  //end
\ No newline at end of file
-- 
cgit