summaryrefslogtreecommitdiff
path: root/2240/CH20/EX19.20/EX19_20.sce
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /2240/CH20/EX19.20/EX19_20.sce
downloadScilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip
initial commit / add all books
Diffstat (limited to '2240/CH20/EX19.20/EX19_20.sce')
-rwxr-xr-x2240/CH20/EX19.20/EX19_20.sce21
1 files changed, 21 insertions, 0 deletions
diff --git a/2240/CH20/EX19.20/EX19_20.sce b/2240/CH20/EX19.20/EX19_20.sce
new file mode 100755
index 000000000..c6667f2cd
--- /dev/null
+++ b/2240/CH20/EX19.20/EX19_20.sce
@@ -0,0 +1,21 @@
+// Grob's Basic Electronics 11e
+// Chapter No. 19
+// Example No. 19_20
+clc; clear;
+// Two series coils, each with an L of 250 uH, have a total inductance of 550 uH connected series-aiding and 450 uH series-opposing. (a) How much is the mutual inductance Lm between the two coils? (b) How much is the coupling coefficient k?
+
+// Given data
+
+l1 = 250*10^-6; // Coil Inductance 1=250 uH
+l2 = 250*10^-6; // Coil Inductance 2=250 uH
+Lts = 550*10^-6; // Inductance series-aiding=550 uH
+Lto = 450*10^-6; // Inductance series-opposing=450 uH
+
+Lm = (Lts-Lto)/4
+disp (Lm,'The Mutual Inductance in Henry')
+disp ('i.e 25 uH')
+
+lt = sqrt(l1*l2);
+
+k = Lm/lt;
+disp (k,'The Coupling coefficient k is')