summaryrefslogtreecommitdiff
path: root/343/CH4/EX4.24/ex4_24.sce
blob: d437ca84524ce9dbd82801fc24564553fdbdd91f (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
clc
wi=1000                //Assigning values to parameters
kva=50
e1=2200
ifl=kva*1000/e1
x=1
pf=0.8
wcf=(ifl/20)*(ifl/20)*500
n1=x*kva*pf*100/((x*kva*pf)+(wi*0.001)+(x*x*wcf*0.001))
x=sqrt(wi/wcf)
n2=x*kva*pf*100/((x*kva*pf)+(2*wi*0.001))
disp(n1,"Efficiency at full node 0.8pf is")
disp(n2,"Maximum Efficency is")
disp(x,"Load  at which maximum occurs is")