blob: 8b47b7da332d243477fb1df67a456fc63d43dc73 (
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
|
// Ex 70 Page 410
clc;clear;close;
// Given
VRY=300*expm(%i*0);//V
VYB=300*expm(%i*-90*%pi/180);//V
VBR=300*expm(%i*90*%pi/180);//V
ZA=10*expm(%i*60*%pi/180);//ohm
ZB=10*expm(%i*0*%pi/180);//ohm
ZC=10*expm(%i*60*%pi/180);//ohm
//Phase current
IRY=VRY/ZA;//A
IYB=VYB/ZB;//A
IBR=VBR/ZC;//A
IR=IRY-IBR;//A
PVA=conj(VRY)*IR;//W
printf("W1 reading=%.f W",real(PVA))
IB=IBR-IYB;//A
PVB=conj(-VYB)*IB;//W
printf("\n W2 reading=%.f W or %.f kW",real(PVB),real(PVB)/1000)
|
