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.58/58.sci | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)
 create mode 100644 965/CH7/EX7.58/58.sci

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

diff --git a/965/CH7/EX7.58/58.sci b/965/CH7/EX7.58/58.sci
new file mode 100644
index 000000000..b7269ed3f
--- /dev/null
+++ b/965/CH7/EX7.58/58.sci
@@ -0,0 +1,29 @@
+clc;
+clear all;
+disp("required tube length")
+
+U=1.2;//m/s
+ti=40;//degree C
+ts=85;// degree C
+to=75;// degree C
+x=3.5/100;//m
+y=1.5/100;//m
+//As=2*(x+y)*L
+rho=985.5;//kg/m^3
+k=0.653;//W/m.C
+v=0.517*10^(-6);// m^2/s
+cp=4190;//J/kg.K
+m=x*y*rho*U;
+Q=m*cp*(to-ti);// W
+th1=ts-ti;
+th2=ts-to;
+thm=(th1-th2)/log(th1/th2);// degree C
+Lc=2*x*y/(x+y);
+Re=Lc*U/v;
+Pr=rho*v*cp/k;
+Nu=0.023*Re^0.8*Pr^(1/3);
+h=Nu*k/Lc;
+As=Q/(h*thm);
+L=As/(2*x+2*y);
+disp("m",L,"Required tube length for raise in temperature is =")
+
-- 
cgit