14 files changed, 77 insertions, 0 deletions
diff --git a/620/CH17/EX17.1/example17_1.sce b/620/CH17/EX17.1/example17_1.sce
new file mode 100644
index 000000000..ece1dd7ff
--- /dev/null
+++ b/620/CH17/EX17.1/example17_1.sce
@@ -0,0 +1,10 @@
+l=200*10^(-3);
+i1=2;
+i2=5;
+t=0.1;
+disp("Part a");
+r=(i2-i1)/t;
+disp("the rate of change of current (in A/s) is"); disp(r);
+disp("Part b");
+v=l*r;
+disp("the self-induced e.m.f. is"); disp(v);
+\ No newline at end of file
diff --git a/620/CH17/EX17.1/example17_1.txt b/620/CH17/EX17.1/example17_1.txt
new file mode 100644
index 000000000..ebc6d8107
--- /dev/null
+++ b/620/CH17/EX17.1/example17_1.txt
diff --git a/620/CH17/EX17.3/example17_3.sce b/620/CH17/EX17.3/example17_3.sce
new file mode 100644
index 000000000..e3688e5e8
--- /dev/null
+++ b/620/CH17/EX17.3/example17_3.sce
@@ -0,0 +1,15 @@
+n=50;
+a=10^(-4);
+s=2*10^(-2);
+disp("Part a");
+mu0=4*%pi*10^(-7);
+l=n^2*mu0*a/s;
+disp("the inductance (in μH) of the air-core coil is"); disp(l*10^6);
+disp("Part b");
+mur=200;
+l1=mur*l;
+disp("the new inductance (in mH) is"); disp(l1*10^3);
+disp("Part c");
+n1=2*n;
+l2=4*l1;
+disp("the new inductance (in mH) is"); disp(l2*10^3);
+\ No newline at end of file
diff --git a/620/CH17/EX17.3/example17_3.txt b/620/CH17/EX17.3/example17_3.txt
new file mode 100644
index 000000000..98bd8feb1
--- /dev/null
+++ b/620/CH17/EX17.3/example17_3.txt
diff --git a/620/CH17/EX17.4/example17_4.sce b/620/CH17/EX17.4/example17_4.sce
new file mode 100644
index 000000000..2e83abc81
--- /dev/null
+++ b/620/CH17/EX17.4/example17_4.sce
@@ -0,0 +1,8 @@
+l1=8;
+l2=12;
+disp("Part a");
+l_1=l1+l2;
+disp("the total inductance (in mH) is"); disp(l_1);
+disp("Part b");
+l_2=l1*l2/(l1+l2);
+disp("the total inductance (in mH) is"); disp(l_2);
+\ No newline at end of file
diff --git a/620/CH17/EX17.4/example17_4.txt b/620/CH17/EX17.4/example17_4.txt
new file mode 100644
index 000000000..13cd8ac1b
--- /dev/null
+++ b/620/CH17/EX17.4/example17_4.txt
diff --git a/620/CH17/EX17.5/example17_5.sce b/620/CH17/EX17.5/example17_5.sce
new file mode 100644
index 000000000..c1f7f2d78
--- /dev/null
+++ b/620/CH17/EX17.5/example17_5.sce
@@ -0,0 +1,9 @@
+l1=5;
+l2=15;
+m=4;
+disp("Part a");
+lmax=l1+l2+2*m;
+disp("the maximum inductance (in H) is"); disp(lmax);
+disp("Part b");
+lmin=l1+l2-2*m;
+disp("the minimum inductance (in H) is");; disp(lmin);
diff --git a/620/CH17/EX17.5/example17_5.txt b/620/CH17/EX17.5/example17_5.txt
new file mode 100644
index 000000000..58b2ad4fa
--- /dev/null
+++ b/620/CH17/EX17.5/example17_5.txt
diff --git a/620/CH17/EX17.6/example17_6.sce b/620/CH17/EX17.6/example17_6.sce
new file mode 100644
index 000000000..e119251c2
--- /dev/null
+++ b/620/CH17/EX17.6/example17_6.sce
@@ -0,0 +1,12 @@
+k=0.8;
+l1=5;
+l2=8;
+disp("Part a");
+m=k*sqrt(l1*l2);
+disp("the mutual inductance (in H) between the two coils is"); disp(m);
+disp("Part b");
+lmax=l1+l2+2*m;
+disp("the maximum inductance (in H) is"); disp(lmax);
+disp("Part c");
+lmin=l1+l2-2*m;
+disp("the minimum inductance (in H) is"); disp(lmin);
+\ No newline at end of file
diff --git a/620/CH17/EX17.6/example17_6.txt b/620/CH17/EX17.6/example17_6.txt
new file mode 100644
index 000000000..9a3af08f9
--- /dev/null
+++ b/620/CH17/EX17.6/example17_6.txt
diff --git a/620/CH17/EX17.7/example17_7.sce b/620/CH17/EX17.7/example17_7.sce
new file mode 100644
index 000000000..10ae58c07
--- /dev/null
+++ b/620/CH17/EX17.7/example17_7.sce
@@ -0,0 +1,12 @@
+l1=40;
+lt1=100;
+lt2=36;
+disp("Part a");
+m=(lt1-lt2)/4;
+disp("the mutual inductance (in mH) is"); disp(m);
+disp("Part b");
+l2=lt1-l1-2*m;
+disp("the inductance (in mH) of the second coil is"); disp(l2);
+disp("Part c");
+k=m/sqrt(l1*l2);
+disp("the coefficient of coupling is"); disp(k);
+\ No newline at end of file
diff --git a/620/CH17/EX17.7/example17_7.txt b/620/CH17/EX17.7/example17_7.txt
new file mode 100644
index 000000000..179577b9c
--- /dev/null
+++ b/620/CH17/EX17.7/example17_7.txt
diff --git a/620/CH17/EX17.8/example17_8.sce b/620/CH17/EX17.8/example17_8.sce
new file mode 100644
index 000000000..246d1f019
--- /dev/null
+++ b/620/CH17/EX17.8/example17_8.sce
@@ -0,0 +1,11 @@
+lt1=500;
+lt2=50;
+disp("Part a");
+m=(lt1-lt2)/4;
+disp("the mutual inductance (in mH) is"); disp(m);
+disp("Part b");
+l=(lt1-2*m)/2;
+disp("the self-inductance (in mH) of each coil is"); disp(l);
+disp("Part c");
+k=m/sqrt(l^2);
+disp("the coefficient of coupling is");disp(k);
+\ No newline at end of file
diff --git a/620/CH17/EX17.8/example17_8.txt b/620/CH17/EX17.8/example17_8.txt
new file mode 100644
index 000000000..bebabd475
--- /dev/null
+++ b/620/CH17/EX17.8/example17_8.txt