blob: 1ea82ae77176e2979bcfe1f184c7e03eb0ff7ce6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
//find the change in the poweer angle;
clc;
clear
j = %i
Pe=4000;
V=400';
pf=.8;dl=acosd(pf);
Ia=Pe/(sqrt(3)*V*pf);
Vt=V/sqrt(3);
Xs=25;
Ef=Vt+j*Ia*complex(cosd(-dl),sind(-dl))*Xs;
a=atand(imag(Ef)/real(Ef));
dl=asind((Pe/3)*Xs/(Vt*abs(Ef)));
ang=dl+a;
disp(ang,'change in power angle(deg)');
|
