summaryrefslogtreecommitdiff
path: root/1067/CH20/EX20.06/20_6.sce
blob: 0d79fadd524974040fc54d4abe34ba9b5559ee47 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
clear;
clc;
r=6e6;
v1=11e3;
v2=66e3;
xg=.1;
xt=.09;
z=4+(1*%i);
zb=v2^2/r;
zpu=z/zb;
E=1;
Ifault=E/(zpu+((xg+xt)*%i));
Ir=real(Ifault);
Ii=imag(Ifault);
Imod=sqrt((Ir^2)+(Ii^2));
Ib=r/(sqrt(3)*v2);
i=Imod*Ib;
igb=r/(sqrt(3)*v1);
ig=igb*Imod;
i=fix(i);
ig=fix(ig);
mprintf("the base current on HT side = %dA\n the current from generator = %dA",i,ig);