summaryrefslogtreecommitdiff
path: root/3826/CH6/EX6.28/Ex6_28.sce
blob: db199ebfccd3ccbc3626e1c7caac46e119150209 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
//Example 6_28 page no:358
clc;
//given
con_req = 1000000;//in units per year
load_fac = 30;//in percentage
max_tariff = 120;//in rupees
tariff = 5;//in paise
imp_ld_fac = 100;//in percentage
//sol
avg_ld = con_req / 8760;
max_load = avg_ld * imp_ld_fac / load_fac;
mac_dmd_chc = max_load * max_tariff;
unit_charge = con_req * tariff / imp_ld_fac;
tot_charge = mac_dmd_chc + unit_charge;
avg_price_per_unit = tot_charge * imp_ld_fac / con_req;
max_load = avg_ld;
max_dmd_chc = max_load * max_tariff;
tot_charge = unit_charge + max_dmd_chc;
avg_price_perUnit = tot_charge * imp_ld_fac / con_req;
disp(avg_price_per_unit,"the average price per unit before improving the load factor is (in paise)");
disp(avg_price_perUnit,"the average price per unit after improving the load factor is (in paise)");
disp(avg_price_per_unit - avg_price_perUnit,"the total savings is (in paise)");