summaryrefslogtreecommitdiff
path: root/343/CH4/EX4.15/ex4_15.sce
blob: 81e15b730d91dddb02ecd83fb4dfa2e66184cfd7 (plain)
1
2
3
4
5
6
7
8
9
10
11
clc
x=1            //Assigning values to parameters
kva=25
pf=0.8
wi=0.35
wcf=0.4
n1=x*kva*pf*100/((x*kva*pf)+(wi*0.001)+(x*x*wcf*0.001))
kva1=kva*(sqrt(wi/wcf))
nm=kva1*pf*100/((kva1*pf)+2*wi)
disp(kva1,"Load in KVA  is")
disp("Percent",nm,"Maximum Efficency is")