initial commit / add all books

9 files changed, 212 insertions, 0 deletions

diff --git a/1076/CH8/EX8.1/8_1.sce b/1076/CH8/EX8.1/8_1.sce
new file mode 100755
index 000000000..dd821b22a
--- /dev/null
+++ b/1076/CH8/EX8.1/8_1.sce
@@ -0,0 +1,12 @@
+clear;

+clc;

+

+n=37;

+r=.238

+t=.5;

+

+r1=r*3.5;

+GMR=.7788*r1;

+D= 2*(r1+t);

+L=.4605 * log10(D/GMR);

+mprintf("\n L= %.4f mH/km/conductor", fix(L*1e4)*1e-4);

diff --git a/1076/CH8/EX8.2/8_2.sce b/1076/CH8/EX8.2/8_2.sce
new file mode 100755
index 000000000..d181978ca
--- /dev/null
+++ b/1076/CH8/EX8.2/8_2.sce
@@ -0,0 +1,14 @@
+clear;

+clc;

+

+V=33;

+V=V/sqrt(3);

+T=35;

+

+x=1;

+r=V/(T * x);

+R= %e * r;

+t=R-r;

+

+mprintf("\nMost economical conductor radius = %.3f cm", fix(R*1000)/1000);

+mprintf("\nInsulation Thickness = %.3f cm", t);

diff --git a/1076/CH8/EX8.3/8_3.sce b/1076/CH8/EX8.3/8_3.sce
new file mode 100755
index 000000000..cd0e81dea
--- /dev/null
+++ b/1076/CH8/EX8.3/8_3.sce
@@ -0,0 +1,15 @@
+clear;

+clc;

+

+V=132;

+V=V/sqrt(3);

+T=60;

+

+V=V*sqrt(2);

+x=1;

+r=V/(T * x);

+R= %e * r;

+t=R-r;

+

+mprintf("\nMost economical conductor diameter = %.2f cm", fix(2*R*100)/100);

+mprintf("\nOverall diameter of insulation = %.3f cm", fix(2*r*1000)/1000);

diff --git a/1076/CH8/EX8.4/8_4.sce b/1076/CH8/EX8.4/8_4.sce
new file mode 100755
index 000000000..fbab7a785
--- /dev/null
+++ b/1076/CH8/EX8.4/8_4.sce
@@ -0,0 +1,31 @@
+clear;

+clc;

+

+V=66;

+V=V/sqrt(3);

+T=60;

+d=2;

+r=d/2;

+D=5.3;

+R=D/2;

+

+V=fix(V*sqrt(2) *10)/10;

+

+a=(R/r)^(1/3);

+a=round(a*1e3)/1e3;

+r1=a*r;

+r2=round(a*r1*1000)/1000;

+V1= V *((1/r)-(1/r2)) *r ;

+V2= (V-( V1* ((1/r)-(1/r1))) )*r1;

+//An error exists in the text book while calculating V1 and V2 and hence Emax and Emin

+

+Emax= (V-V1)/(r * log (a));

+Emin= (V-V1)/(r1 * log (a));

+mprintf("\n When intersheaths are used:\n Emax= %.2f kV/cm \t Emin= %2f kV/cm",Emax,Emin);

+mprintf("\n Peak voltages at intersheaths:\n V1= %.2f kV \t V2= %.2f kV\n",V1,V2);

+disp("An error exists in the text book while calculating V1 and V2 and hence Emax and Emin")

+

+Emax= (V)/(r * 3*log (a));

+Emin= (V)/(R * 3*log (a));

+mprintf("\n When intersheaths are not used:\n Emax= %.1f kV/cm \t Emin= %.2f kV/cm",Emax,Emin);

+

diff --git a/1076/CH8/EX8.5/8_5.sce b/1076/CH8/EX8.5/8_5.sce
new file mode 100755
index 000000000..3058f4949
--- /dev/null
+++ b/1076/CH8/EX8.5/8_5.sce
@@ -0,0 +1,24 @@
+clear;

+clc;

+

+//solving for prt (c) only

+

+R=3;

+r=1;

+V=60;

+

+

+a=sqrt(R/r);

+r1=a*r;

+

+mprintf("\n (c) r1= %.3f cm", r1);

+

+V1=V*((a)/(1+a));

+mprintf("\n     V1 voltage at intersheath= %.2f cm", V1);

+

+b=2/(1+a);

+mprintf("\n     ratio of max electric stress with and without intersheath= %.3f cm", b);

+

+

+

+

diff --git a/1076/CH8/EX8.6/8_6.sce b/1076/CH8/EX8.6/8_6.sce
new file mode 100755
index 000000000..d92173a18
--- /dev/null
+++ b/1076/CH8/EX8.6/8_6.sce
@@ -0,0 +1,17 @@
+clear;

+clc;

+

+r=0.5;

+R=2.5;

+Vga=60;

+ea=4;

+eb=2.5;

+Vgb=50;

+

+v=Vga*ea*r;

+

+r1=v/(eb*Vgb);

+

+V=v *((log(r1/r)/ea)+(log(R/r1)/eb));

+

+mprintf("Maximum working voltage = %.2f kV", V);

diff --git a/1076/CH8/EX8.7/8_7.sce b/1076/CH8/EX8.7/8_7.sce
new file mode 100755
index 000000000..10782f93d
--- /dev/null
+++ b/1076/CH8/EX8.7/8_7.sce
@@ -0,0 +1,34 @@
+clear;

+clc;

+

+V=33e3;

+V=V/sqrt(3);

+f=50;

+l=3.4e3;

+d=2.5

+r=d/2;

+t=.6;

+R=r+t;

+e=3.1;

+

+//disp(R);

+

+c=2* %pi * 8.85 * e/ log(R/r);

+C=c*l;

+C=C*1e-6;

+mprintf("\n(a)C= %.3f e-6 F/phase", C);

+

+I=V * 2 * %pi * f * C*1e-6 ;

+mprintf("\n(b)Charging Current I= %.2f A/phase", I);

+

+KVAR=3*V*I *1e-3;

+mprintf("\n(c)Charging KVAR= %.1f ", KVAR);

+

+pf=.03;

+phi=acos(pf);

+lossang=(%pi/2)-phi;

+Loss=2*%pi*f*C*1e-6*V*V*sin(lossang);

+mprintf("\n(d)Dielectric Loss per phase= %.1f W", Loss);

+

+Emax=V*1e-3/(r*log(R/r));

+mprintf("\n(e)Emax= %.2f KV/cm (rms)",Emax)

diff --git a/1076/CH8/EX8.8/8_8.sce b/1076/CH8/EX8.8/8_8.sce
new file mode 100755
index 000000000..fa6a510bb
--- /dev/null
+++ b/1076/CH8/EX8.8/8_8.sce
@@ -0,0 +1,19 @@
+clear;

+clc;

+

+V=11e3;

+V=V/sqrt(3);

+f=50;

+C1=.65;

+C2=.75;

+

+Cs=C2/3;

+Cc=(C1/2)-(C2/6);

+C=Cs+(3*Cc);

+mprintf("\n(a)effective capacitance of each of the core to neutral = %.2f e-6 F",C);

+

+I=V * 2 * %pi * f * C*1e-6 ;

+mprintf("\n(b)Charging Current I= %.3f A/phase", I);

+

+Cap=(1.5*Cc) + (.5 * Cs);

+mprintf("\n(c)Capacitance between any 2 conductors = %.3f e-6 F",Cap);

diff --git a/1076/CH8/EX8.9/8_9.sce b/1076/CH8/EX8.9/8_9.sce
new file mode 100755
index 000000000..bf30cec77
--- /dev/null
+++ b/1076/CH8/EX8.9/8_9.sce
@@ -0,0 +1,46 @@
+clear;

+clc;

+

+T2=65;

+T1=20;

+n=3;

+restivity=.02826;

+A=400;

+

+

+R=restivity/A;

+

+Eff_SnL=2/100;

+Rdc20= (1+Eff_SnL)*(1+Eff_SnL)*R;

+

+a=0.004

+Rdc65=Rdc20 * (1+(a*(T2-T1)));

+

+Eff_Skin_Prox=3.5/100;

+Rac= (1+Eff_Skin_Prox)*(1+Eff_Skin_Prox)*Rdc65;

+

+ti_core=2.7;

+ti_belt=1.2;

+tins=ti_belt+ti_core;

+

+r=13;

+ratio_tins_dia=tins/(2*r);

+

+Gi3=.65;

+

+Gi=Gi3/3;

+

+R1=35.2e-3;

+R2=40e-3;

+h=.75

+g1=5;

+g2=1.5;

+Gp=g1*log(R2/R1)/(2*%pi);

+Gs=g2*log((2*h)/R2)/(2*%pi);

+

+sheathlosses=.1;

+

+I=((T2-T1)/(n* Rac * (Gi + ((1+sheathlosses)*(Gp+Gs)))))^.5

+mprintf("Current Rating =%d Amperes",I);

+

+