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

---
 51/CH8/EX8.7/8_7.sce | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100755 51/CH8/EX8.7/8_7.sce

(limited to '51/CH8/EX8.7')

diff --git a/51/CH8/EX8.7/8_7.sce b/51/CH8/EX8.7/8_7.sce
new file mode 100755
index 000000000..43e0a9a45
--- /dev/null
+++ b/51/CH8/EX8.7/8_7.sce
@@ -0,0 +1,21 @@
+clc;
+clear;
+T=120;//degree F
+D=8;//in
+vavg=10;//ft/s
+roughness=0;
+kvis=1.89/10000;//(ft^2)/s
+Re=vavg*(D/12)/kvis;
+//from this value of Re and roughness/D=0, and using Moody's chart
+f=0.022;
+hLperl=f*(vavg^2)/(D*2*32.2/12);
+//Dh=4*A/P=4*(a^2)/(4*a)=a
+
+//Vs=(%pi*((D/12)^2)*vavg)/(4*a^2)
+//a=f*((%pi*((D/12)^2)*vavg)/(4*a^2))/(2*32.2) and Reh=((%pi*((D/12)^2)*vavg)/(4*a^2))*a/kvis
+//by trial and error
+f=0.023;
+x=(%pi*((D/12)^2)*vavg/4)^2;
+y=x*f/(2*32.2);
+a=((y/0.0512)^(1/5))*12;//in
+disp("inches",a,"The duct size(a) for the square duct if the head loss per foot remains the same for the pipe and the duct=") 
\ No newline at end of file
-- 
cgit