summaryrefslogtreecommitdiff
path: root/98/CH6/EX6.6/example6_6.sce
blob: 67b6d9831f50467d61e3f1865cbe88c98ef8f517 (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
55
56
//Chapter 6
//Example 6_6
//Page 112

clear;clc;

p=800;
pf1=0.8;
pf2=0.9;
h=3000;
fc=100;
rc=0.2;
cap=60;
id=0.1;

phi1=acos(pf1);
phi2=acos(pf2);

lead=p*(tan(phi1)-tan(phi2));

printf("Leading kVAR taken by the capacitors = %.2f \n\n", lead);
printf("Annual cost before pf correction\n");

md1=p/pf1;
kva1=fc*md1;
uc1=p*h;
ec1=rc*uc1;
tac1=kva1+ec1;

printf("Max kVA demand = %.2f \n", md1);
printf("kVA demand charges = Rs. %.0f \n", kva1);
printf("Units consumed per year = %.0f kWh \n", uc1);
printf("Energy charges per year = Rs. %.0f \n", ec1);
printf("Total annual cost = Rs. %.0f \n\n", tac1);

printf("Annual cost after pf correction\n");

md2=p/pf2;
kva2=fc*md2;
ec2=rc*uc1;
cc=cap*lead;
aid=id*cc;
tac2=kva2+ec2+aid;

printf("Max kVA demand = %.2f \n", md2);
printf("kVA demand charges = Rs. %.0f \n", kva2);
printf("Energy charges per year = Rs. %.0f \n", ec2);
printf("Capital cost of capacitors = Rs. %.0f \n", cc);
printf("Annual interest and depreciation = Rs. %.0f \n", aid);
printf("Total annual cost = Rs. %.0f \n\n", tac2);

as=tac1-tac2;
printf("Annual saving = Rs. %.0f \n", as);