initial commit / add all books

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);