summaryrefslogtreecommitdiff
path: root/3760/CH9/EX9.6/ExB_6.sce
blob: 0875e20300266c40a93d8e75b50e6008284a51b2 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
clc;
w1=85; // reading of wattmeter 1;
w2=35; // reading of wattmeter 2;
P=w1+w2; // total input power
n=0.85; // efficiency of motor
vl=1100; // supply voltage
pf=cosd(atand((sqrt(3)*(w1-w2))/(w1+w2)));
il=(P*1000)/(sqrt(3)*vl*pf); // line current
ps=n*P;
printf('Input power is %f KW\n',P);
printf('Line current is %f A\n',il);
printf('power factor is %f lagging\n',pf);
printf('shaft power is %f KW',ps);