1 files changed, 33 insertions, 0 deletions
diff --git a/1067/CH23/EX23.05/23_05.sce b/1067/CH23/EX23.05/23_05.sce
new file mode 100755
index 000000000..0ad05ca7f
--- /dev/null
+++ b/1067/CH23/EX23.05/23_05.sce
@@ -0,0 +1,33 @@
+clear;
+clc;
+v=1;
+r=1250e3;
+V=600;
+x1=.05*%i;
+x2=.05*%i;
+x0=.02*%i;
+ia1=v/(x1+x2);
+ia2=-ia1;
+ia=ia1+ia2;
+ia0=0;
+a=1*%e^(%i*(120*%pi/180));
+b=a^2;
+ia=(ia0+ia1+ia2);
+ib=(ia0+(b*ia1)+(a*ia2));
+ic=(ia0+(a*ia1)+(b*ia2));
+ia0r=real(ia);
+ia0i=imag(ia);
+iam=sqrt((ia0r^2)+(ia0i^2));
+ia1r=real(ib);
+ia1i=imag(ib);
+ibm=sqrt((ia1r^2)+(ia1i^2));
+ia2r=real(ic);
+ia2i=imag(ic);
+icm=sqrt((ia2r^2)+(ia2i^2));
+iaa=0;
+iba=atand(ia1i/ia1r);
+ica=atand(ia2i/ia2r);
+ibase=r/(sqrt(3)*V);
+ibm=ibm*ibase;
+ibm=round(ibm/100)*100;
+mprintf("fault current for double line to ground fault=%dA",ibm);