summaryrefslogtreecommitdiff
path: root/1802/CH10/EX10.1/Exa10_1.sce
blob: 4c47af9bf433293c4054f20fa6d6e9fa2a7df0ed (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
//Exa 10.1
clc;
clear;
close;
//Given Data :
format('v',7);
Load=500;//in KW
cosfi_1=0.75;//powerfactor
x=40;//in Rs/year/KVA
x1=60;//cost of PF improvement equipment in Rs./KVAR
i=12;//in % per annum
y=x1*i/100;//in Rs.
cosfi_2=0.98;//unitless
KVA1=Load/cosfi_1;//in KVA(at 0.75 pf)
KVA2=Load/cosfi_2;//in KVA(at 0.98 pf)
AnnualSaving=x*(KVA1-KVA2);//in Rs.
fi_1=acosd(cosfi_1);//in degree
tanfi_1=tand(fi_1);//unitless
Pr1=Load*tanfi_1;//in KVAR
fi_2=acosd(cosfi_2);//in degree
tanfi_2=tand(fi_2);//unitless
Pr2=Load*tanfi_2;//in KVAR
Rating=Pr1-Pr2;//in KVAR
AnnualExpenditure=y*Rating;//in Rs.
NetSaving=AnnualSaving-AnnualExpenditure;//in Rs./year
disp(NetSaving,"Net saving per year(in Rs.) :");