blob: 4fbd5abc2ebe53b5a0e1a9d2d084290dc126f047 (
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
|
// To determine the parameters of a balanced 3 phase star connected to a resistive load
clc;
clear;
V=208;
Vph=V/sqrt(3);
R=35;
// Star Conncected load has its line current = phase current
Ia=Vph/R;
Ib=Ia*(expm(%i*(-2*%pi/3)));
Ic=Ia*(expm(%i*(2*%pi/3)));
Pperphase= (abs(Ia)^2)*R;
Pt=3*Pperphase;
// Resistive Load, p.f is unity
pf=1;
printf('The power factor is %g \n',pf)
printf('The total power dissipated = %g W \n',Pt)
printf('The currents of the system are\n Ia = %g /_0 A \n Ib = %g /_-120 A \n Ic = %g /_120 A \n',abs(Ia),abs(Ib),abs(Ic))
|
