summaryrefslogtreecommitdiff
path: root/503/CH8/EX8.30/ch8_30.sci
blob: 819c97604756e9ee1bb3c1e59e20a127887ec791 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
//to find max andmin pu field excitation

clc;
Xd=.71;
Xq=.58;
Xe=.08;
Xdt=Xd+Xe;
Xqt=Xq+Xe;

Pe=0;Vt=1;
dl=0;
phi=90;
Ia=1;
Iq=0;
Id=Ia;

Ef=Vt+Id*Xdt;
Ifmax=Ef;disp(Ifmax,'max field excitation(A)');


Ef=Vt-Id*Xdt;
Ifmin=Ef;disp(Ifmin,'min field excitation(A)');