summaryrefslogtreecommitdiff
path: root/1208/CH5/EX5.3/Exa3.sce
blob: 16de40cb8988871c10e01f583a96cff3dc1ed595 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
//Exa 3
clc;
clear;
close;
//given data :
IC=1500000;// in Rupees
OMC=65000;// in Rupees(annual cost for operating and maintenance)
B=225000;// in Rupees(annual saving and benefits
ScrapValue=300000;// in Rupees
life=30;//in years
Irate=8;//in %
//calculating present worth of savings
PWbenefits1=0;
for i=1:30 
    PWbenefits1=PWbenefits1+B/(1+Irate/100)^i;
end
//calculating present worth of scrap value

PWbenefits2=B/(1+Irate/100)^life;
PWbenefits=PWbenefits1+PWbenefits2;// total present worth of benefits
disp(PWbenefits,"Presnt worth of the benefits");
//calculating present worth of cost
PWcost1=IC;//same the initial cost
//calculating present worth of operating and maintenance cost
PWcost2=0;
for i=1:30 
    PWcost2=PWcost2+OMC/(1+Irate/100)^i;
end
PWcost=PWcost1+PWcost2;// total present worth of cost
disp(PWcost,"Presnt worth of the cost");
// // using conventional B/C ratio // //
BCratio=PWbenefits/PWcost;// formula
disp(BCratio,"BCratio using conventional method is : ")

// // using modified B/C ratio // //
BCratio=(PWbenefits-PWcost2)/IC;// formula
disp(BCratio,"BCratio using conventional method is : ")