From 7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 Mon Sep 17 00:00:00 2001
From: prashantsinalkar
Date: Tue, 10 Oct 2017 12:27:19 +0530
Subject: initial commit / add all books

---
 965/CH7/EX7.18/18.sci | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)
 create mode 100644 965/CH7/EX7.18/18.sci

(limited to '965/CH7/EX7.18/18.sci')

diff --git a/965/CH7/EX7.18/18.sci b/965/CH7/EX7.18/18.sci
new file mode 100644
index 000000000..d6085eed0
--- /dev/null
+++ b/965/CH7/EX7.18/18.sci
@@ -0,0 +1,32 @@
+clc;
+clear all;
+disp("Heat transfer coefficient")
+Ta=20;// degree C
+Ts=100;// degree C
+U=1.8;//m/s
+L=2.2;//m
+B=1;//m
+//Properties of air
+rho=1.06;// kg/m^3
+cp=1005;//J/kg.C
+k=0.02894;// W/m.C
+Pr=0.696;
+v=18.97*10^(-6);//m^2/s
+
+Re=U*L/v;
+disp("Using exact solution: ")
+Nu=0.664*Re^0.5*Pr^(1/3);
+disp(Nu,"Nu =")
+
+h=Nu*k/L;
+disp(" W/m^2.C",h,"heat transfer coefficient =")
+Q=h*L*B*(Ts-Ta);
+disp("W",Q,"Heat transfer from plate =")
+disp("Using approximate solution: ")
+Nu=0.646*Re^0.5*Pr^(1/3);
+disp(Nu,"Nu =")
+h=Nu*k/L;
+disp(" W/m^2.C",h,"heat transfer coefficient =")
+Q=h*L*B*(Ts-Ta);
+disp("W",Q,"Heat transfer from plate =")
+
-- 
cgit