initial commit / add all books

8 files changed, 152 insertions, 0 deletions

diff --git a/1067/CH3/EX3.1/3_1.sce b/1067/CH3/EX3.1/3_1.sce
new file mode 100755
index 000000000..3a4478432
--- /dev/null
+++ b/1067/CH3/EX3.1/3_1.sce
@@ -0,0 +1,15 @@
+

+clear ;

+close ;

+clc ;

+R=10; 

+L=0.1; 

+f=50; 

+w=2*%pi*f; 

+k=sqrt((R^2)+((w*L)^2));

+angle=atan(w*L/R);

+E=400 

+A=E*sin(angle)/k;

+i=A*exp((-R)*.02/L);

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

+mprintf("the transient current =%fA",i)

diff --git a/1067/CH3/EX3.2/3_2.sce b/1067/CH3/EX3.2/3_2.sce
new file mode 100755
index 000000000..5bba2943f
--- /dev/null
+++ b/1067/CH3/EX3.2/3_2.sce
@@ -0,0 +1,33 @@
+

+clear;

+close;

+clc;

+

+R=10; 

+L=0.1; 

+f=50; 

+w=2*%pi*f; 

+k=sqrt((R^2)+((w*L)^2));

+angle=atan(w*L/R); 

+E=100; 

+Em=sqrt(2)*E; 

+A=Em*sin(angle)/k;

+i1=A; 

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

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

+mprintf("current in amperes for part1=%fA\n",i1);

+mprintf("current in part 2& part 3= 0\n");

+mprintf("the DC component vanishes if e=%fV",Em);//the error is due to the erroneous values in the textbook

+

+t1=0.5*.02; 

+i2=A*exp((-R)*t1/L);

+mprintf("\ncurrent at .5 cycles for t1=%fsec \ncurrent in the problem = %fA",t1,i2);

+t2=1.5*.02;

+i3=A*exp((-R)*t2/L);

+mprintf("\ncurrent at 1.5 cycles for t2=%fsec \ncurrent in the problem = %fA",t2,i3);

+t3=5.5*.02;

+i4=A*exp((-R)*t3/L);

+mprintf("\ncurrent at 5.5 cycles for t3=%fsec \ncurrent in the problem = %fA",t3,i4);

+

+

+disp("the difference in result is due to erroneous value in textbook.")

diff --git a/1067/CH3/EX3.3/3_3.sce b/1067/CH3/EX3.3/3_3.sce
new file mode 100755
index 000000000..15bfcde4c
--- /dev/null
+++ b/1067/CH3/EX3.3/3_3.sce
@@ -0,0 +1,22 @@
+clear;

+close;

+clc;

+C=.003e-6 

+L=1.6e-3 

+y=sqrt(L*C);

+y=round(y*1e7)/1e7;

+f=(2*3.14*y)^-1; 

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

+i=7500;

+E=i*2*3.15*L*50;

+Em=1.414*E;

+Em=round(Em/10)*10

+t=y*%pi/2;

+t=t*1e6;

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

+e=Em/y;

+e=round((e)/1e6)*1e6;

+e=fix(e/1e7)*1e7

+mprintf("frequency of oscillations=%fc/s",f);

+mprintf("\ntime of maximum restriking voltage=%fmicrosec",t);

+mprintf("\nmaximum restriking voltage=%dV/microsecs",e/1e6);

diff --git a/1067/CH3/EX3.4/3_4.sce b/1067/CH3/EX3.4/3_4.sce
new file mode 100755
index 000000000..9c846404f
--- /dev/null
+++ b/1067/CH3/EX3.4/3_4.sce
@@ -0,0 +1,28 @@
+

+clear;

+close;

+clc;

+R=5 

+f=50

+L=R/(2*%pi*f);

+V=11e3;

+Vph=11/sqrt(3);

+C=0.01d-6;

+y=sqrt(L*C);

+Em=sqrt(2)*Vph;

+ep=2*Em;

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

+y=round(y*1e7)/1e7;

+t=y*%pi;

+t=fix(t*1e7)/1e7

+ea=ep/t;

+ea=round(ea/1e3)*1e3

+fn=(2*3.14*y)^-1;

+Em=round(Em)

+Emax=Em/y;

+Emax=round(Emax/1000)*1e3;

+mprintf("peak restriking voltage=%dkV",ep);

+printf("\nfrequency of oscillations=%dc/s",fn);

+printf("\naverage rate of restriking voltage=%fkV/microsecs",ea/1e6);

+printf("\nmax restriking voltage=%dV/microsecs",Emax/1e3);

+

diff --git a/1067/CH3/EX3.5/3_5.sce b/1067/CH3/EX3.5/3_5.sce
new file mode 100755
index 000000000..103891b84
--- /dev/null
+++ b/1067/CH3/EX3.5/3_5.sce
@@ -0,0 +1,14 @@
+

+clear;

+close;

+clc;

+E=19.1*1e3;

+L=10*1e-3;

+C=.02*1e-6;

+Em=sqrt(2)*E;

+y=sqrt(L*C);

+t=%pi*y*1e6;

+emax=2*Em;

+eavg=emax/t;

+eavg=round(eavg/10)*10

+printf("average restriking voltage=%dV/microsecs",eavg);

diff --git a/1067/CH3/EX3.6/3_6.sce b/1067/CH3/EX3.6/3_6.sce
new file mode 100755
index 000000000..4ad7a6d82
--- /dev/null
+++ b/1067/CH3/EX3.6/3_6.sce
@@ -0,0 +1,21 @@
+clear;

+close;

+clc;

+V=78e3;

+Vph=V/sqrt(3);

+Em=2*Vph;

+pf=0.4;

+angle=acos(pf);

+k1=sin(angle); 

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

+k2=.951;

+k3=1;

+k=k1*k2*k3;

+k=round(k*1000)/1e3;

+E=k*Em;

+f=15000; 

+t=1/(2*f);

+t=round(t*1e6);

+eavg=2*E/t;

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

+printf("average restriking voltage=%fkV/microsecs",eavg/1e3);

diff --git a/1067/CH3/EX3.7/3_7.sce b/1067/CH3/EX3.7/3_7.sce
new file mode 100755
index 000000000..ec9dada91
--- /dev/null
+++ b/1067/CH3/EX3.7/3_7.sce
@@ -0,0 +1,10 @@
+clear;

+clc;

+Em=100e3

+t=70e-6

+Ea=Em/t/1e6

+f=1/(2*t);

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

+f=round(f);

+printf("average voltage in volts=%dV/microsecs\n",Ea);

+printf("frequency of oscillation =%dc/s",f);

diff --git a/1067/CH3/EX3.8/3_8.sce b/1067/CH3/EX3.8/3_8.sce
new file mode 100755
index 000000000..1b294850e
--- /dev/null
+++ b/1067/CH3/EX3.8/3_8.sce
@@ -0,0 +1,9 @@
+

+clc;

+L=6; 

+C=0.01e-6;

+i=10;

+v=i*sqrt(L/C);

+R=.5*v/i;

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

+printf("damping resistance in ohms=%fkohms",R/1e3);