summaryrefslogtreecommitdiff
path: root/3871/CH7/EX7.20/Ex7_20.sce
blob: 80a8cbd434dac5ccec8430d7d5d1ae8b1377e76b (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
//===========================================================================
//chapter 7 example 20

clc;
clear all;

//variable declaration
IPR	= 8;	//current in line R in A
IPY	= 10;	//current in line Y in A
IPB	= 6;	//current in line B in A
VP	=120;	//voltage in V
pf	= 1;	//power factor

//calculations
W1	= VP*IPR*pf;	//wattage shown by wattmeter having current coil in line R in watts
W2	= VP*IPY*pf;	//wattage shown by wattmeter having current coil in line Y in watts
W3	= VP*IPB*pf;	//wattage shown by wattmeter having current coil in line B in watts
p	= W1+W2+W3;	//power taken by lighting load in watts

//result
mprintf("wattage shown by wattmeter having current coil in line R = %3.2f watts",W1);
mprintf("\nwattage shown by wattmeter having current coil in line Y = %3.2f watts",W2);
mprintf("\nwattage shown by wattmeter having current coil in line B = %3.2f watts",W3);
mprintf("\npower taken by lighting load = %3.2f watts",p);