1 files changed, 14 insertions, 0 deletions
diff --git a/1544/CH5/EX5.12/Ch05Ex12.sce b/1544/CH5/EX5.12/Ch05Ex12.sce
new file mode 100755
index 000000000..a1f18599c
--- /dev/null
+++ b/1544/CH5/EX5.12/Ch05Ex12.sce
@@ -0,0 +1,14 @@
+// Scilab code Ex5.12: Pg 158 (2008)
+clc; clear;
+d = 2;                           // Distance between two parallel conductors, m
+I_1 = 1000;                     // Electric current in first coil, A
+I_2 = 300;                      // Electric current in second coil, A
+mew_o = 4*(%pi)*1e-07;          // Permeability for free space
+B = (mew_o*I_1)/d;              // Flux density due to first coil, T
+F = ((2e-07)*I_1*I_2)/d;         // Force exerted by conductors, N
+printf("\nThe flux density at a distance of %1d m from the centre of a conductor carrying a current of %4d A = %5.3f mT", d, I_1, B/1e-03);
+printf("\nForce exerted by conductors = %2d mN", F/1e-03);
+
+// Result
+// The flux density at a distance of 2 m from the centre of a conductor carrying a current of 1000 A = 0.628 mT
+// Force exerted by conductors = 30 mN