diff options
Diffstat (limited to '2510/CH27/EX27.6/Ex27_6.sce')
| -rwxr-xr-x | 2510/CH27/EX27.6/Ex27_6.sce | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/2510/CH27/EX27.6/Ex27_6.sce b/2510/CH27/EX27.6/Ex27_6.sce new file mode 100755 index 000000000..09eaf1a32 --- /dev/null +++ b/2510/CH27/EX27.6/Ex27_6.sce @@ -0,0 +1,19 @@ +//Variable declaration: +C = 150000 //Capital cost ($) +i = 7/100 //Interest rate +n = 5 //Time (yr) +OC = 15000 //Operating cost ($) +A = 75000 //Annual cost for the old process ($) + +//Calculation: +CRF = (i*(1+i)**n)/((1+i)**n-1) //Capital recovery factor +IC = CRF*C //Initial cost ($) +AC = IC+OC //Total annualized cost ($) + +//Result: +printf("The annualized cost for the new heating system is : $ %.0f",AC) +if (AC<A) then + printf("Since this cost is lower than the annual cost of $75,000 for the old process, the proposed plan should be implemented.") +else + printf("Since this cost is higher than the annual cost of $75,000 for the old process, the proposed plan should not be implemented.") +end |