summaryrefslogtreecommitdiff
path: root/1067/CH20/EX20.04/20_04.sce
blob: e873b33682ee0ad33e33dc675363586ea4b5e839 (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
clear;
clc;
R=3e6;
Rb=6000e3;
vb1=11e3;
vb2=22e3;
X=.15;
x=.15*Rb/R;
xeq=x/2;
MVA=Rb/xeq;
Ifault=MVA/(sqrt(3)*vb1*%i);
Ir=real(Ifault);
Ii=imag(Ifault);
Imod=sqrt((Ir^2)+(Ii^2));
Iangle=atand(Ir/Ii)-90;
Imod=round(Imod/10)*10;
mprintf("for fault on generator side \n Fault MVA=%dMVA \n Fault current=%d/_%dAmp",MVA/1e6,Imod,Iangle);
x2=.05;
Xeq=x2+xeq;
MVA=Rb/Xeq;
Ifault=MVA/(1.734*vb2*%i);
Ir=real(Ifault);
Ii=imag(Ifault);
Imod=sqrt((Ir^2)+(Ii^2));
Iangle=atand(Ir/Ii)-90;
mprintf("\nfor fault on transmission side \n Fault MVA=%dMVA \n Fault current=%d/_%dAmp(lag)",MVA/1e6,Imod,Iangle);