summaryrefslogtreecommitdiff
path: root/3826/CH6/EX6.27/Ex6_27.sce
blob: e38398f859d9f574dcca80f787af5dcae8f0d153 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
//Example 6_27 page no:356
clc;
max_demand = 175;//in kW
pow_fac = 0.75;
max_tariff = 72;//in rupees
tariff = 10;//in paise
phase_adv = 120;//in rupees/kVA
loss = 20;//in percentage
kVA_demand = max_demand / pow_fac;
max_demand_charge = max_tariff * kVA_demand;
cos_phi = sqrt(1-((phase_adv * loss)/(max_tariff * 100))^2);
disp(kVA_demand,"before installation of capacitors the kVA demand is (in kVA)");
disp(max_demand_charge,"the maximum demand charge is (in rupees)");
disp(cos_phi,"the power factor is ");
//the kVA_demand is rounded off in textbook so maximum demand charge vary slightly with textbook