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

---
 587/CH8/EX8.8/example8_8.sce | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)
 create mode 100755 587/CH8/EX8.8/example8_8.sce

(limited to '587/CH8/EX8.8')

diff --git a/587/CH8/EX8.8/example8_8.sce b/587/CH8/EX8.8/example8_8.sce
new file mode 100755
index 000000000..21ad7b2dd
--- /dev/null
+++ b/587/CH8/EX8.8/example8_8.sce
@@ -0,0 +1,27 @@
+clear;
+clc;
+
+//Example8.8[Heat transfer in the Transition Region]
+//Given:-
+xm=0.6;//mass fraction of glycol
+V=2.6*10^(-4);//Flow rate[m^3/s]
+d=0.0158;//inside diameter[m]
+Gr=51770;//grashof number
+Pr=29.2;//Prandtl number
+nu=3.12*10^(-6);//[m^2/s]
+p=1.77;//mu_t/mu_s
+q=90;//A particular loctaion x with x/d=q
+//Solution:-
+Ac=%pi*(d^2)/4;
+Re=(V/Ac)*d/nu;
+disp(Re,"Reynolds Number is")
+//Value of Re lies in transition Region
+Nu_lam=1.24*(((Re*Pr/q)+(0.025*((Gr*Pr)^(0.75))))^(1/3))*(p^(0.14));
+Nu_tur=0.023*(Re^(0.8))*(Pr^0.385)*(q^(-0.0054))*(p^(0.14));
+//(a)
+Nu_tran_a=Nu_lam+((exp((1766-Re)/276)+(Nu_tur^(-0.955)))^(-0.955));
+disp(Nu_tran_a,"(a) Nusselt number for re-entrant inlet is")
+Nu_tran_b=Nu_lam+((exp((2617-Re)/207)+(Nu_tur^(-0.950)))^(-0.950));
+disp(Nu_tran_b,"(b) Nusselt number for square edged inlet is")
+Nu_tran_c=Nu_lam+((exp((6628-Re)/237)+(Nu_tur^(-0.980)))^(-0.980));
+disp(Nu_tran_c,"(c) Nusselt number for bell mouth inlet is")
\ No newline at end of file
-- 
cgit