503/CH8/EX8.6/ch8_6.sci


1
2
3
4
5
6
7
8
9
10
11
12

//to calculate the excitation emf

clc;
Vt=3300;
Xs=18/3;
pf=.707;
P=800*1000;
Ia=P/(sqrt(3)*Vt*pf);
a=Ia*Xs/sqrt(2);
b=Vt/sqrt(3);
Ef=sqrt((a+b)^2+a^2)*sqrt(3);
disp(Ef,'excitation emf(V)(line)');