initial commit / add all books

1 files changed, 63 insertions, 0 deletions

diff --git a/3793/CH10/EX10.4/exp_10_4.sce b/3793/CH10/EX10.4/exp_10_4.sce
new file mode 100644
index 000000000..75707c17e
--- /dev/null
+++ b/3793/CH10/EX10.4/exp_10_4.sce
@@ -0,0 +1,63 @@
+clear;

+clc;

+Sb=100;

+//generator 1

+x0=complex(0,.08);

+s=100;

+v=11;

+z=3;

+Zb=v^2/s;

+X=z/Zb;

+x=z*X;

+mprintf("Magnitutde of grounding reactor for G1 %.3f\n",x);

+//generator 2

+s1=50;

+x1=complex(0,.05);

+sm=25;

+xm=complex(0,.05);

+z1=x1*(Sb/s1);

+zm=xm*(Sb/sm);

+mprintf("pu reactance for G2 is %.3f\n",imag(z1));

+mprintf("pu reactance for M is %.3f\n",imag(zm));

+//transformers

+s12=100;

+x12=.1;

+z12=x12*(Sb/s12);

+mprintf("pu reactance for T12 is %.3f\n",imag(z12));

+s34=50;

+x34=complex(0,.075);

+z34=x34*(Sb/s34);

+mprintf("pu reactance for T34 is %.3f\n",imag(z34));

+s45=50;

+x45=complex(0,.08);

+z45=x45*(Sb/s45);

+mprintf("pu reactance for T45 is %.3f\n",imag(z45));

+s67=50;

+x67=complex(0,.076);

+z67=x67*(Sb/s67);

+mprintf("pu reactance for T67 is %.3f\n",imag(z67));

+s78=75;

+x78=complex(0,.06);

+z78=x78*(Sb/s78);

+mprintf("pu reactance for T78 is %.3f\n",imag(z78));

+vb=132;

+zb=vb^2/s;

+X11=z/zb;

+x11=z*X11;

+mprintf("pu reactance for zero sequence is %.3f\n",x11);

+Zt23=vb^2/s;

+xt23=complex(0,300);

+zt23=xt23/Zt23;

+mprintf("pu reactance for Tr23 is %.3f\n",imag(zt23));

+Zt28=vb^2/s;

+xt28=complex(0,250);

+zt28=xt28/Zt28;

+mprintf("pu reactance for Tr28 is %.3f\n",imag(zt28));

+vt=66;

+Zt56=vt^2/s;

+xt56=complex(0,200);

+zt56=xt56/Zt56;

+mprintf("pu reactance for Tr56 is %.3f\n",imag(zt56));

+

+

+