summaryrefslogtreecommitdiff
path: root/98/CH4/EX4.11/example4_11.sce
blob: 8a0e4491b7c236bc2778e1e705021768e8edc360 (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
//Chapter 4
//Example 4_11
//Page 79

clear;clc;

cost=3000;
i=0.05;
dep=0.02;
om=0.02;
i_r=0.015;
l=0.125;
d=1.25;
m_d=0.8
lf=0.4;

//assume ic=100kW
ic=100;

md=m_d*ic;
ad=md*lf;
cc=cost*100;

fc=cc*(i+dep);
agg_md=md*d;
afc=fc/agg_md;

rc=cc*(om+i_r);
ugpa=ad*8760;
u=ugpa*(1-l);
arc=rc/u;

printf("Annual fixed charges\n");
printf("  Annual fixed charges = Rs. %.0f \n", fc);
printf("  Aggregate of maximum demamd = %.0f kW \n", agg_md);
printf("  Annual fixed charges = Rs. %.0f per kW of max demand\n\n", afc);

printf("Annual running charges\n");
printf("  Annual running charges = Rs. %.0f \n", rc);
printf("  Units generated per annum = %.0f kWh \n", ugpa);
printf("  Units reaching customer  = %.0f kWh \n", u);
printf("  Annual running charges = Rs. %.5f \n\n", arc);

printf("Generation cost in two part form is: \n \t\t\t\t\t Rs(%.0f * kW + %.5f * kWh)\n\n", afc, arc);

t=fc+rc;
printf("Total annual charges = Rs. %.0f \n\n", t);
printf("Cost per kWh = Rs. %.4f \n\n", t/u);