initial commit / add all books

8 files changed, 105 insertions, 0 deletions

diff --git a/1067/CH19/EX19.1/19_1.sce b/1067/CH19/EX19.1/19_1.sce
new file mode 100755
index 000000000..ba3f789c8
--- /dev/null
+++ b/1067/CH19/EX19.1/19_1.sce
@@ -0,0 +1,11 @@
+clc;

+clear;

+i=10;

+v=200;

+z=v/i;

+I1=20/i;

+I2=.2/i;

+v1=50/v;

+r=2/z;

+mprintf("the base impedence=%dohm\n",z);

+mprintf("the base values for 20A=%dp.u.\n.the base values for 2A=%fp.u.\nthe base values for 50V=%fp.u.\n the base values for 2ohm=%fp.u",I1,I2,v1,r);

diff --git a/1067/CH19/EX19.2/19_2.sce b/1067/CH19/EX19.2/19_2.sce
new file mode 100755
index 000000000..6a2c2f2ee
--- /dev/null
+++ b/1067/CH19/EX19.2/19_2.sce
@@ -0,0 +1,9 @@
+clc;

+clear;

+z=2;

+v=11e3;

+r=1000e3;

+zb=v^2/r;

+y=z/zb;

+y=round(y*10000)/10000;

+mprintf("the per unit resistance=%fp.u",y);

diff --git a/1067/CH19/EX19.3/19_3.sce b/1067/CH19/EX19.3/19_3.sce
new file mode 100755
index 000000000..1e6cf0895
--- /dev/null
+++ b/1067/CH19/EX19.3/19_3.sce
@@ -0,0 +1,12 @@
+clc;

+clear;

+v=11e3;

+r=15000e3;

+zp=.15;

+vnew=110e3;

+rnew=30000e3;

+zb=v^2/r;

+Z=zp*zb;

+zbnew=vnew^2/rnew;

+Zp=Z/zbnew;

+mprintf("the new per unit reactance=%fp.u",Zp/10);

diff --git a/1067/CH19/EX19.4/19_4.sce b/1067/CH19/EX19.4/19_4.sce
new file mode 100755
index 000000000..7a259ed97
--- /dev/null
+++ b/1067/CH19/EX19.4/19_4.sce
@@ -0,0 +1,19 @@
+clc;

+clear;

+v1=11e3;

+v2=22e3;

+v3=3.3e3;

+r=10000e3;

+zb1=v1^2/r;

+zb2=v2^2/r;

+zb3=v3^2/r;

+zp1=300/zb3;

+zp2=300*(zb2/zb3)/zb2;

+zp3=300*(zb1/zb3)/zb1;

+zp1=round(zp1*10)/10;

+zp1=round(zp1);

+zp2=round(zp2*10)/10;

+zp2=round(zp2);

+zp3=round(zp3*10)/10;

+zp3=round(zp3);

+mprintf("the per unit values =%dp.u. ; %dp.u.; %dp.u. ",zp1,zp2,zp3);

diff --git a/1067/CH19/EX19.5/19_5.sce b/1067/CH19/EX19.5/19_5.sce
new file mode 100755
index 000000000..bce264392
--- /dev/null
+++ b/1067/CH19/EX19.5/19_5.sce
@@ -0,0 +1,9 @@
+clc;

+clear;

+z=0.2*%i*0.155/(0.2+0.155);

+v=1;

+i=v/z;

+ir=real(i);

+im=imag(i);

+im=round(im*100)/100;

+mprintf("the fault current is =%d+(%fj)A",ir,im);

diff --git a/1067/CH19/EX19.6/19_6.sce b/1067/CH19/EX19.6/19_6.sce
new file mode 100755
index 000000000..65d412548
--- /dev/null
+++ b/1067/CH19/EX19.6/19_6.sce
@@ -0,0 +1,20 @@
+clc;

+clear;

+r=30000e3;

+v1=11e3;

+v2=110e3;

+zb1=v1^2/r;

+zb2=v2^2/r;

+zp1=80/zb2;

+zp2=.1*%i*30000/35000;

+zp3=.2*%i*30000/10000;

+zp3r=real(zp3);

+zp2r=real(zp2);

+zp3i=imag(zp3);

+zp2i=imag(zp2);

+zb2=round(zb2*10)/10;

+zp1=round(zp1*1000)/1000;

+zp2i=round(zp2i*10000)/10000;

+zp3i=round(zp3i*10)/10;

+mprintf("the base impedence of transmission line circuti=%fohm\nper unit reactance of transmission line=%fp.u.\n ",zb2,zp1);

+mprintf("per unit reactance of transformer to new base=%f+(%fj)p.u.\nPer unit reactance of motor to new base=%f+(%fj)p.u.",zp2r,zp2i,zp3r,zp3i);

diff --git a/1067/CH19/EX19.7/19_7.sce b/1067/CH19/EX19.7/19_7.sce
new file mode 100755
index 000000000..147958c14
--- /dev/null
+++ b/1067/CH19/EX19.7/19_7.sce
@@ -0,0 +1,19 @@
+clc;

+clear;

+r1=10e6;

+r2=7.5e6;

+r3=5e6;

+v1=66e3;

+v2=11e3;

+v3=3.3e3;

+zst=.06*r1*%i/r2;

+zps=.07*%i;

+zpt=.09*%i;

+Zp=(zst+zps-zst)/2;

+Zs=(zps+zst-zpt)/2;

+Zt=(zpt+zst-zps)/2;

+Zpi=imag(Zp);

+Zsi=imag(Zs);

+Zti=imag(Zt);

+Zpi=round(Zpi*100)/100;

+mprintf("the per unit impedencce of circuit \nZp=%fjp.u ;\n Zs=%fjp.u;\n Zt=%fjp.u",Zpi,Zsi,Zti);

diff --git a/1067/CH19/EX19.9/19_9.sce b/1067/CH19/EX19.9/19_9.sce
new file mode 100755
index 000000000..1fc071b50
--- /dev/null
+++ b/1067/CH19/EX19.9/19_9.sce
@@ -0,0 +1,6 @@
+clc;

+clear;

+old=5000;

+bank=200;

+new=old-bank;

+mprintf("new fault =%dMVA",new);