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