summaryrefslogtreecommitdiff
path: root/3673/CH9/EX9.23/Ex9_23.sce
blob: 999f3f5cb889d9cfd9067116e54388873241a3e3 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
//Example 9_23 page no:392
clc;
//given
input_pow=10*10^3;
pow_fac=0.8;//power factor
phi=acosd(pow_fac);
tan_phi=tand(phi);
Wr_Wy=tan_phi*(input_pow)/sqrt(3);
A=[1,1,
-1,1];
B=[10,
4.33];
x=inv(A)*B;
disp(x(1),"the power in lower reading wattmeter is (in kW)");
disp(x(2),"the power in higher reading wattmeter is (in kW)");