summaryrefslogtreecommitdiff
path: root/1529/CH20/EX20.16/20_16.sce
blob: baeb8bf998b4cd755b61cd835df1768d1c9fe722 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
//Chapter 20, Problem 16
clc
P=12e3                          //total power
pf=0.6                          //power factor
ang=acos(pf)
ta=tan(ang)
P12=P*ta/3^(1/2)

//solving two equation by matrix method
A=[1 1;1 -1]
B=[12000;P12]
x=linsolve(A,-B)
printf("wattmeter 1 read = %.2f kW\n\n",x(1)/1000)
printf("wattmeter 2 read = %.2f kW\n\n",x(2)/1000)