diff options
Diffstat (limited to '2510/CH27/EX27.7/Ex27_7.sce')
| -rwxr-xr-x | 2510/CH27/EX27.7/Ex27_7.sce | 26 |
1 files changed, 26 insertions, 0 deletions
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 |