summaryrefslogtreecommitdiff
path: root/1319/CH5/EX5.10/5_10.sce
blob: a9aef1fc13cca677b961c5382bf1ea97f0dfbadb (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
30
//Calculate efficiency on unity pf at different cases

clc;
clear;

Pi=25*(10^3);

E1=2000;
E2=200;

Pil=350;
Pc=400;

// Full load efficiency

nfl=Pi*100/(Pi+Pil+Pc);

//Half Load efficiency

Pihl=Pi/2;// Half Load
nhl=Pihl*100/(Pihl+Pil+(Pc/4));

// Load at which maximum efficiency occurs

Piml=sqrt(Pil/Pc)*Pi;
Pcm=Pc*((Piml/Pi)^2);

printf('a) Efficiency at full load = %f percent \n',nfl)
printf('b) Efficiency at half load = %f percent \n',nhl)
printf('c) Maximum Efficiency will occur at %f KVA and the losses are each %d watt. \n',(Piml/1000),Pcm)