summaryrefslogtreecommitdiff
path: root/343/CH4/EX4.16/ex4_16.sce
blob: 2177baddf7c97ae5198e57f65e8dc6f728c9b68a (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
clc
x=1        //Assigning values to parameters
kva=40
pf=0.8
wi=450
wcf=850
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))
kva1=kva*sqrt(wi/wcf)
disp("Percent",n1,"Efficiency at full node 0.8pf is")
disp("Percent",n2,"Maximum Efficency is")
disp(kva1,"Load in KVA at which maximum occurs is")