summaryrefslogtreecommitdiff
path: root/3760/CH5/EX5.48/Ex5_48.sce
blob: 491c0f7123bde291b176337c1f654f597846440e (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
clc;
p0=1000; // full load power rating of substation
pf=0.71; // lagging power factor
pfn=0.87; // desired power factor
// from phasor dagram 5.109
p1=p0*pf; // load KW
p2=sqrt(p0^2-p1^2); // load KVAr
pn=p0*pfn; // new power delivered to load
p0n=pn/pf; // new load KVA
pl=p0n-p0; 
printf('Permissible additional load at %f lagging power factor is %f KVA\n',pf,pl);
p2n=sqrt(p0n^2-pn^2); // new load KVAr
p2ns=sqrt(p0^2-pn^2); // new load KVAr with the use of synchronous condensor
R=p2n-p2ns; 
printf('Rating of synchronous condensor is %f KVA',R);