summaryrefslogtreecommitdiff
path: root/1067/CH20/EX20.16.b/20_16_b.sce
blob: 50bbc50f736b8e0ce51a60fcad15c62f1f43236e (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
clear;
clc;
rb=2e6;
r=1.2e6;
x=7*rb/r;
x1=10;
x2=11.7;
v=6.6e3;
i=rb/v;
zb=v/i;
r=1200e3;
rb=2000e3;
v=6.6e3;
xt=.117;
xf=2/zb*100;
xtot=xf+x1+x2;
ish=i*100/xtot;
ish=round(ish/10)*10;
mprintf("the short circuit current by percentage reactance method=%fA",ish);