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