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

---
 2510/CH22/EX22.7/Ex22_7.sce | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100755 2510/CH22/EX22.7/Ex22_7.sce

(limited to '2510/CH22/EX22.7')

diff --git a/2510/CH22/EX22.7/Ex22_7.sce b/2510/CH22/EX22.7/Ex22_7.sce
new file mode 100755
index 000000000..ca5c03fc0
--- /dev/null
+++ b/2510/CH22/EX22.7/Ex22_7.sce
@@ -0,0 +1,23 @@
+//Variable declaration:
+//From table 22.1:
+QH1 = 12*10**6                  //Heat duty for process unit 1 (Btu/h)
+QH2 = 6*10**6                   //Heat duty for process unit 2 (Btu/h)
+QH3 = 23.5*10**6                //Heat duty for process unit 3 (Btu/h)
+QH4 = 17*10**6                  //Heat duty for process unit 4 (Btu/h)
+QH5 = 31*10**6                  //Heat duty for process unit 5 (Btu/h)
+T1 = 90                         //Supply water temperature ( F)
+T2 = 115                        //Return water temperature ( F)
+cP = 1                          //Cooling water heat capacity (Btu/(lb. F))
+p = 62*0.1337                   //Density of water (lb/gal)
+BDR = 5/100                     //Blow-down rate
+
+//Calculation:
+QHL = (QH1+QH2+QH3+QH4+QH5)/60  //Heat load (Btu/min)
+DT = T2-T1                      //Change in temperature ( F)
+qCW = round(QHL*10**-5)/10**-5/(DT*cP*p)   //Required cooling water flowrate (gpm)
+qBD = BDR*qCW                   //Blow-down flow (gpm)
+qCW = round(qCW*10**-1)/10**-1
+
+//Result:
+printf("The total flowrate of cooling water required for the services is : %f gpm.",qCW)
+printf("The required blow-down flow is : %.0f gpm.",qBD)
-- 
cgit