summaryrefslogtreecommitdiff
path: root/343/CH4/EX4.18/ex4_18.sce
blob: d7befddd89cbbfe3d4675832d7a5a1fdce2c23f2 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
clc
x=1        //Assigning values to parameters
kva=20
pf=0.8
wi=450
wcf=900
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("Percent',n1,"Efficiency at full node 0.8pf is")
disp("Percent",n2,"Maximum Efficency is")
disp(x,"Load  at which maximum occurs is")