initial commit / add all books

1 files changed, 21 insertions, 0 deletions

diff --git a/1544/CH4/EX4.13/Ch04Ex13.sce b/1544/CH4/EX4.13/Ch04Ex13.sce
new file mode 100755
index 000000000..583fbebcd
--- /dev/null
+++ b/1544/CH4/EX4.13/Ch04Ex13.sce
@@ -0,0 +1,21 @@
+// Scilab code Ex4.13: Pg 127-128 (2008)

+clc; clear;

+l_A = 0.25;                  // Mean length of cicuit A, m

+l_B = 0.15;                  // Mean length of cicuit A, m

+A_A = 11.5e-04;              // Cross-sectional area of circuit A, metre-square

+A_B = 12e-04;                // Cross-sectional area of circuit B, metre-square

+phi = 1.5e-03;               // Flux, Wb

+N = 1000;                    // Number of turns

+B_A = phi/A_A;              // Flux density linked with circuit A, T

+B_B = phi/A_B;              // Flux density linked with circuit B, T

+H_A = 1470;                 // Magnetic field strength of cicuit A( value taken from graph ), At/m

+H_B = 845;                  // Magnetic field strength of cicuit B( value taken from graph ), At/m

+// Snce H = F/l, solving for F 

+F_A = H_A * l_A;                // Magnetic field strength of circuit A, At/m

+F_B = H_B * l_B;                // Magnetic field strength of circuit B, At/m

+F = F_A + F_B;                   // Total circuit m.m.f, At/m

+I = F/N;                          // Coil current, A

+printf("\Coil current in the magnetic circuit = %5.3f A", I);

+

+// Result

+//  Coil current in the magnetic circuit = 0.494 A