summaryrefslogtreecommitdiff
path: root/1067/CH23/EX23.07/23_07.sce
blob: d0323eba912f6944556e430c506299b609a54baa (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
clear;
clc;
e=1;
r=1500e3;
v=11e3;
x1=.1;
ia=3*e/(x1*3);
ibase=r/(sqrt(3)*v);
i=ia*ibase;
mprintf("the single line to ground fault = %dA",i);
ia1=e/(2*x1);
ib=sqrt(3)*ia1;
ib=ibase*ib;
mprintf("\nline to line fault current=%dA",ib);