summaryrefslogtreecommitdiff
path: root/98/CH5/EX5.10/example5_10.sce
blob: 63860bf3c59f099e612d2d9c599c843a38b766ca (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
//Chapter 5
//Example 5_10
//Page 96

clear;clc;

md=50;
ec=36000;
re=23400;
fc=80;
rc=0.08;
plus=0.5;
pfl=86;

al=ec/24/30;
arp=re/24/30;
phi=atan(arp/al);
pf=cos(phi);
pfsc=ec*plus*(pfl-pf*100)/100;
mb=fc*md+rc*ec+pfsc;

printf("Average laod = %.0f kW \n\n", al);
printf("Average reactive power = %.1f kVAR \n\n", arp);
printf("Power factor angle = %.2f radians \n\n", phi);
printf("Power factor = %.4f \n\n", pf);
printf("Power factor surcharge = Rs. %.1f \n\n", pfsc);
printf("Monthly bill = Rs. %.2f \n\n", mb);