blob: f9022d77d213c2c4c4b27789fca2afba0c393d78 (
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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
|
//Chapter 5
//Example 5_13
//Page 97
clear;clc;
p=1000;
md=2500;
inc=5.5*1e6;
ds=1000;
rs=400;
id=0.1;
fc=75;
rc=0.05;
gcc=120;
grc=0.03;
cc=rs*ds;
aid=id*cc;
ep=md-2*ds;
kw1=fc*ep;
kwh1=rc*inc;
tac1=aid+kw1+kwh1;
printf("(i) Purchasing diesel set: \n");
printf("Capital cost = Rs. %.0f \n", cc);
printf("Annual interest and depreciation = Rs. %.0f \n", aid);
printf("Extra power to be generated = %.0f kW \n", ep);
printf("Annual charge due to extra kW max demand = Rs. %.0f \n", kw1);
printf("Annual charge due to extra kWh consumption = Rs. %.0f \n", kwh1);
printf("Total Annual cost = Rs. %.0f \n\n", tac1);
kw2=ep*gcc;
kwh2=grc*inc;
tac2=kw2+kwh2;
printf("(ii) Purchasing from grid supply: \n");
printf("Annual charge due to extra kW max demand = Rs. %.0f \n", kw2);
printf("Annual charge due to extra kWh consumption = Rs. %.0f \n", kwh2);
printf("Total Annual cost = Rs. %.0f \n\n", tac2);
cheap=abs(tac1-tac2);
if tac1<tac2
printf("Alternative (i) is cheaper by Rs. %.0f\n", cheap);
else
printf("Alternative (ii) is cheaper by Rs. %.0f\n", cheap);
|
