1 files changed, 11 insertions, 0 deletions
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