blob: 90cf4aec18fafbb76403984cd746401c679f8c41 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
//To measure power by two wattmeter method
clc;
clear;
pf=0.85 // Power Factor
Po=37.3*(10^3); // Power Output
eff=90/100; // Efficiency
V=500; // Rated Voltage
Pi=Po/eff; // Power Input
phi=acosd(pf); // Power Factor angle
printf('W1 + W2 = %g kW \n',Pi/1000)
printf('tan(phi) = square root (3)*(W2-W1)/(W2+W1) = %g \n',tand(phi))
x=Pi; // Let x = W1+W2
y= tand(phi)*x/(sqrt(3)); // Let y = W2-W1
printf('W1 + W2 = %g kW \n',x/1000)
printf('W2 - W1 = %g kW \n',y/1000)
printf('W2 = %g kW \n',(x+y)/(2*1000))
printf('W1 = %g kW \n',(x-y)/(2*1000))
|
