6 files changed, 63 insertions, 0 deletions
diff --git a/1658/CH13/EX13.4/Ex13_4.sce b/1658/CH13/EX13.4/Ex13_4.sce
new file mode 100755
index 000000000..d020ab02d
--- /dev/null
+++ b/1658/CH13/EX13.4/Ex13_4.sce
@@ -0,0 +1,24 @@
+clc;
+R1min=2.7;
+R2min=5.1;
+Rmin=R1min+R2min;
+R1max=3.3;
+R2max=6.9;
+Rmax=R1max+R2max;
+a=9-Rmin;
+b=Rmax-9;
+tolerance=b/9;
+Reqmin=(R1min*R2min)/(R1min+R2min);
+disp('ohm',Reqmin*1,"Reqmin=");
+Reqmax=(R1max*R2max)/(R1max+R2max);
+disp('ohm',Reqmax*1,"Reqmax=");
+R1N=3;
+R2N=6;
+Req=(R1N*R2N)/(R1N+R2N);
+disp('ohm',Req*1,"Req=");
+minval=Reqmin;
+maxval=Reqmax;
+maxchng=0.235;
+t=(maxchng/2)*100;
+disp('%',t*1,"t=");
+
diff --git a/1658/CH13/EX13.5/Ex13_5.sce b/1658/CH13/EX13.5/Ex13_5.sce
new file mode 100755
index 000000000..b173ca86e
--- /dev/null
+++ b/1658/CH13/EX13.5/Ex13_5.sce
@@ -0,0 +1,9 @@
+clc;
+//e.g 13.5
+N=150;
+mur=3540;
+mu0=4*%pi*10**-7;
+l=0.05;
+A=5*10**-4;
+L=(mur*mu0*A*N*N)/l;
+disp('H',L*1,"L=");
diff --git a/1658/CH13/EX13.6/Ex13_6.sce b/1658/CH13/EX13.6/Ex13_6.sce
new file mode 100755
index 000000000..a74ce825d
--- /dev/null
+++ b/1658/CH13/EX13.6/Ex13_6.sce
@@ -0,0 +1,7 @@
+clc;
+//e.g 13.6
+L1=40*10**-6;
+L2=80*10**-6;
+M=11.3*10**-6;
+k=M/sqrt(L1*L2);
+disp(k);
diff --git a/1658/CH13/EX13.7/Ex13_7.sce b/1658/CH13/EX13.7/Ex13_7.sce
new file mode 100755
index 000000000..f69bfafc5
--- /dev/null
+++ b/1658/CH13/EX13.7/Ex13_7.sce
@@ -0,0 +1,7 @@
+clc;
+//e.g 13.7
+Q=90;
+L=15*10**-6;
+f=10*10**6;
+R0=(2*%pi*f*L)/Q;
+disp('ohm',R0*1,"R0=");
diff --git a/1658/CH13/EX13.8/Ex13_8.sce b/1658/CH13/EX13.8/Ex13_8.sce
new file mode 100755
index 000000000..40277afee
--- /dev/null
+++ b/1658/CH13/EX13.8/Ex13_8.sce
@@ -0,0 +1,8 @@
+clc;
+//e.g 13.8
+A=0.04;
+d=0.02;
+e0=8.85*10**-12;
+er=5.0;
+C=(e0*er*A)/d; 
+disp('pF',C*10**12,"C=");//answer printed in the book is wrong.
diff --git a/1658/CH13/EX13.9/Ex13_9.sce b/1658/CH13/EX13.9/Ex13_9.sce
new file mode 100755
index 000000000..cf615eda7
--- /dev/null
+++ b/1658/CH13/EX13.9/Ex13_9.sce
@@ -0,0 +1,8 @@
+clc;
+//e.g 13.9
+A=0.2;
+C=0.428*10**-6;
+e0=8.85*10**-12;
+er=1200;
+d=(e0*er*A)/C;//ans printed in the book is wrong
+disp('mm',d*10**3,"d=");