summaryrefslogtreecommitdiff
path: root/608/CH43/EX43.07/43_07.sce
diff options
context:
space:
mode:
Diffstat (limited to '608/CH43/EX43.07/43_07.sce')
-rwxr-xr-x608/CH43/EX43.07/43_07.sce22
1 files changed, 22 insertions, 0 deletions
diff --git a/608/CH43/EX43.07/43_07.sce b/608/CH43/EX43.07/43_07.sce
new file mode 100755
index 000000000..9919eaa3c
--- /dev/null
+++ b/608/CH43/EX43.07/43_07.sce
@@ -0,0 +1,22 @@
+//Problem 43.07: Two coils are connected in series and their effective inductance is found to be 15 mH. When the connection to one coil is reversed, the effective inductance is found to be 10 mH. If the coefficient of coupling is 0.7, determine (a) the self inductance of each coil, and (b) the mutual inductance.
+
+//initializing the variables:
+k = 0.7; // coefficient of coupling
+L1 = 15E-3; // in Henry
+L2 = 10E-3; // in Henry
+
+//calculation:
+//L1 = La + Lb + 2*k*(La*Lb)^0.5
+//L2 = La + Lb - 2*k*(La*Lb)^0.5
+//self inductance of coils
+a = ((L1 - (L1 + L2)/2)/(2*k))^2
+La1 =((L1 + L2)/2 + (((L1 + L2)/2)^2 - 4*a)^0.5)/2
+La2 =((L1 + L2)/2 - (((L1 + L2)/2)^2 - 4*a)^0.5)/2
+Lb1 = (L1 + L2)/2 - La1
+Lb2 = (L1 + L2)/2 - La2
+//mutual inductance, M
+M = (L1 - L2)/4
+
+printf("\n\n Result \n\n")
+printf("\nself inductance of coils are %.2E H and %.2E H",La1, Lb1)
+printf("\n mutual inductance, M is %.2E H",M)