initial commit / add all books

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