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/CH27/EX27.7/Ex27_7.sce | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100755 2510/CH27/EX27.7/Ex27_7.sce

(limited to '2510/CH27/EX27.7')

diff --git a/2510/CH27/EX27.7/Ex27_7.sce b/2510/CH27/EX27.7/Ex27_7.sce
new file mode 100755
index 000000000..e8db5cd70
--- /dev/null
+++ b/2510/CH27/EX27.7/Ex27_7.sce
@@ -0,0 +1,26 @@
+//Variable declaration:
+i = 12/100                          //Intersest rate
+n = 12                              //Lifetime period (yr)
+CC = 2625000                        //Capital cost ($)
+IC = 1575000                        //Installation cost ($)
+//From table 27.3:
+Ic1 = 2000000                       //Income credit for double pipe ($/yr)
+Ic2 = 2500000                       //Income credit for Shell-and-tube ($/yr)
+AC1 = 1728000                       //Total annual cost for double pipe ($/yr)
+AC2 = 2080000                       //Total annual cost for Shell-and-tube ($/yr)
+
+//Calculation:
+CRF = i/(1-(1+i)**-n)               //Capital recovery factor
+DPc = (CC+IC)*CRF                   //Annual capital and installation costs for the DP unit ($/yr)
+STc = (CC+IC)*CRF                   //Annual capital and installation costs for the ST unit ($/yr)
+DPp = Ic1-AC1                       //Profit for the DP unit ($/yr)
+STp = Ic2-AC2                       //Profit for the ST unit ($/yr)
+
+//Result:
+printf("The profit for the shell-and-tube unit is : $ %.0f /yr .",DPp)
+printf("The profit for the double pipe unit is : $ %.0f /yr .",STp)
+if (STp>DPp) then
+    printf("A shell-and-tube heat exchanger should therefore be selected based on the above economic analysis.")
+else
+    printf("A double pipe heat exchanger should therefore be selected based on the above economic analysis.")
+end    
-- 
cgit