From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001 From: priyanka Date: Wed, 24 Jun 2015 15:03:17 +0530 Subject: initial commit / add all books --- 1544/CH5/EX5.1/Ch05Ex1.sce | 10 ++++++++++ 1544/CH5/EX5.10/Ch05Ex10.sce | 14 ++++++++++++++ 1544/CH5/EX5.11/Ch05Ex11.sce | 10 ++++++++++ 1544/CH5/EX5.12/Ch05Ex12.sce | 14 ++++++++++++++ 1544/CH5/EX5.13/Ch05Ex13.sce | 14 ++++++++++++++ 1544/CH5/EX5.14/Ch05Ex14.sce | 15 +++++++++++++++ 1544/CH5/EX5.15/Ch05Ex15.sce | 24 ++++++++++++++++++++++++ 1544/CH5/EX5.16/Ch05Ex16.sce | 21 +++++++++++++++++++++ 1544/CH5/EX5.17/Ch05Ex17.sce | 30 ++++++++++++++++++++++++++++++ 1544/CH5/EX5.18/Ch05Ex18.sce | 10 ++++++++++ 1544/CH5/EX5.19/Ch05Ex19.sce | 11 +++++++++++ 1544/CH5/EX5.2/Ch05Ex2.sce | 19 +++++++++++++++++++ 1544/CH5/EX5.20/Ch05Ex20.sce | 10 ++++++++++ 1544/CH5/EX5.21/Ch05Ex21.sce | 17 +++++++++++++++++ 1544/CH5/EX5.22/Ch05Ex22.sce | 14 ++++++++++++++ 1544/CH5/EX5.23/Ch05Ex23.sce | 27 +++++++++++++++++++++++++++ 1544/CH5/EX5.24/Ch05Ex24.sce | 17 +++++++++++++++++ 1544/CH5/EX5.25/Ch05Ex25.sce | 12 ++++++++++++ 1544/CH5/EX5.26/Ch05Ex26.sce | 27 +++++++++++++++++++++++++++ 1544/CH5/EX5.27/Ch05Ex27.sce | 9 +++++++++ 1544/CH5/EX5.28/Ch05Ex28.sce | 24 ++++++++++++++++++++++++ 1544/CH5/EX5.29/Ch05Ex29.sce | 17 +++++++++++++++++ 1544/CH5/EX5.3/Ch05Ex3.sce | 11 +++++++++++ 1544/CH5/EX5.30/Ch05Ex30.sce | 23 +++++++++++++++++++++++ 1544/CH5/EX5.4/Ch05Ex4.sce | 14 ++++++++++++++ 1544/CH5/EX5.5/Ch05Ex5.sce | 12 ++++++++++++ 1544/CH5/EX5.6/Ch05Ex6.sce | 11 +++++++++++ 1544/CH5/EX5.7/Ch05Ex7.sce | 12 ++++++++++++ 1544/CH5/EX5.8/Ch05Ex8.sce | 19 +++++++++++++++++++ 1544/CH5/EX5.9/Ch05Ex9.sce | 13 +++++++++++++ 30 files changed, 481 insertions(+) create mode 100755 1544/CH5/EX5.1/Ch05Ex1.sce create mode 100755 1544/CH5/EX5.10/Ch05Ex10.sce create mode 100755 1544/CH5/EX5.11/Ch05Ex11.sce create mode 100755 1544/CH5/EX5.12/Ch05Ex12.sce create mode 100755 1544/CH5/EX5.13/Ch05Ex13.sce create mode 100755 1544/CH5/EX5.14/Ch05Ex14.sce create mode 100755 1544/CH5/EX5.15/Ch05Ex15.sce create mode 100755 1544/CH5/EX5.16/Ch05Ex16.sce create mode 100755 1544/CH5/EX5.17/Ch05Ex17.sce create mode 100755 1544/CH5/EX5.18/Ch05Ex18.sce create mode 100755 1544/CH5/EX5.19/Ch05Ex19.sce create mode 100755 1544/CH5/EX5.2/Ch05Ex2.sce create mode 100755 1544/CH5/EX5.20/Ch05Ex20.sce create mode 100755 1544/CH5/EX5.21/Ch05Ex21.sce create mode 100755 1544/CH5/EX5.22/Ch05Ex22.sce create mode 100755 1544/CH5/EX5.23/Ch05Ex23.sce create mode 100755 1544/CH5/EX5.24/Ch05Ex24.sce create mode 100755 1544/CH5/EX5.25/Ch05Ex25.sce create mode 100755 1544/CH5/EX5.26/Ch05Ex26.sce create mode 100755 1544/CH5/EX5.27/Ch05Ex27.sce create mode 100755 1544/CH5/EX5.28/Ch05Ex28.sce create mode 100755 1544/CH5/EX5.29/Ch05Ex29.sce create mode 100755 1544/CH5/EX5.3/Ch05Ex3.sce create mode 100755 1544/CH5/EX5.30/Ch05Ex30.sce create mode 100755 1544/CH5/EX5.4/Ch05Ex4.sce create mode 100755 1544/CH5/EX5.5/Ch05Ex5.sce create mode 100755 1544/CH5/EX5.6/Ch05Ex6.sce create mode 100755 1544/CH5/EX5.7/Ch05Ex7.sce create mode 100755 1544/CH5/EX5.8/Ch05Ex8.sce create mode 100755 1544/CH5/EX5.9/Ch05Ex9.sce (limited to '1544/CH5') diff --git a/1544/CH5/EX5.1/Ch05Ex1.sce b/1544/CH5/EX5.1/Ch05Ex1.sce new file mode 100755 index 000000000..4e0419f27 --- /dev/null +++ b/1544/CH5/EX5.1/Ch05Ex1.sce @@ -0,0 +1,10 @@ +// Scilab code Ex5.1: Pg 145 (2008) +clc; clear; +N = 100; // Number of turns +delta_phi = 10e-03; // Flux linked with coil, Wb +delta_t = 2e-03; // Time during which flux changes, s +e =((-N)*delta_phi)/delta_t; // Average induced emf, V +printf("\nThe average emf induced in the coi = %3d V", e); + +// Result +// The average emf induced in the coi = -500 V diff --git a/1544/CH5/EX5.10/Ch05Ex10.sce b/1544/CH5/EX5.10/Ch05Ex10.sce new file mode 100755 index 000000000..d0e1aeb1d --- /dev/null +++ b/1544/CH5/EX5.10/Ch05Ex10.sce @@ -0,0 +1,14 @@ +// Scilab code Ex5.10: Pg 155 (2008) +clc; clear; +N = 80; // Number of turns +l = 0.02; // Length of coil, m +r = 0.012; // Radius of coil, m +I = 45e-06; // Current in coil, A +T = 1.4e-06; // Torque exerted on coil, Nm +A = l*r; // Cross-sectional area of coil, m^2 +// Since T = 2*B*I*l*r, solving for B +B = T/(2*A*N*I); // Flux density, T +printf("\nThe flux density produced by the pole pieces = %4.2f T", B); + +// Result +// The flux density produced by the pole pieces = 0.81 T diff --git a/1544/CH5/EX5.11/Ch05Ex11.sce b/1544/CH5/EX5.11/Ch05Ex11.sce new file mode 100755 index 000000000..de488e075 --- /dev/null +++ b/1544/CH5/EX5.11/Ch05Ex11.sce @@ -0,0 +1,10 @@ +// Scilab code Ex5.11: Pg 158 (2008) +clc; clear; +d = 0.035; // Distance between two parallel conductors, m +I_1 = 50; // Electric current in first coil, A +I_2 = 40; // Electric current in second coil, A +F = ((2e-07)*I_1*I_2)/d; // Force exerted by conductors, N +printf("\nThe force exerted between the conductors = %4.1f mN", F/1e-03); + +// Result +// The force exerted between the conductors = 11.4 mN 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 diff --git a/1544/CH5/EX5.13/Ch05Ex13.sce b/1544/CH5/EX5.13/Ch05Ex13.sce new file mode 100755 index 000000000..1b2698c76 --- /dev/null +++ b/1544/CH5/EX5.13/Ch05Ex13.sce @@ -0,0 +1,14 @@ +// Scilab code Ex5.13: Pg 163 (2008) +clc; clear; +R_c = 40; // Resistance of coil, ohm +I_fsd = 5e-04; // Full-scale deflection current, A +I = 3; // Current reading, A +V_c = I_fsd*R_c; // Potential difference, V +// Since I = I_s + I_fsd, solving for I_s +I_s = I-I_fsd; // Shunt current, A +// From Ohm's law, V_c = I_s*R_s, solving for R_s +R_s = V_c/I_s; // Shunt resistance, ohm +printf("\nThe value of required shunt resistance = %4.2f milli-ohm", R_s/1e-03); + +// Result +// The value of required shunt resistance = 6.67 milli-ohm diff --git a/1544/CH5/EX5.14/Ch05Ex14.sce b/1544/CH5/EX5.14/Ch05Ex14.sce new file mode 100755 index 000000000..efca23da3 --- /dev/null +++ b/1544/CH5/EX5.14/Ch05Ex14.sce @@ -0,0 +1,15 @@ +// Scilab code Ex5.14: Pg 163-164 (2008) +clc; clear; +R_c = 40; // Resistance of coil, ohm +I_fsd = 5e-04; // Full-scale deflection current, A +I_fsd = 5e-04; // Full-scale deflection current, A +V = 10; // Voltage reading range, V +V_c = 0.02; // Potential difference across coil resistance, V +// From Ohm's law, V = I_fsd*R, solving for R +R = V/I_fsd; // Total resistance, ohm +// Since R = R_m + R_c, solving R_m +R_m = R - R_c; // Multiplier resistance, ohm +printf("\nThe required value of multiplier resistance = %5.2f kilo-ohms", R_m*1e-03); + +// Result +// The required value of multiplier resistance = 19.96 kilo-ohms diff --git a/1544/CH5/EX5.15/Ch05Ex15.sce b/1544/CH5/EX5.15/Ch05Ex15.sce new file mode 100755 index 000000000..db954f825 --- /dev/null +++ b/1544/CH5/EX5.15/Ch05Ex15.sce @@ -0,0 +1,24 @@ +// Scilab code Ex5.15: Pg 164-165 (2008) +clc; clear; +R_c = 1500; // Coil resistance, ohm +I_fsd = 75e-06; // Full-scale deflection current, A +I = 5; // Current range, A +V = 10; // Voltage range, V +// Part (a) +// Using Ohm's law, +V_c = I_fsd*R_c; // Potential difference across coil resistance, V +// Since I = I_s + I_fsd, solving for I_s +I_s = I-I_fsd; // Shunt current, A +// From Ohm's law, V_c = I_s*R_s, solving for R_s +R_s = V_c/I_s; // Shunt resistance, ohm +// Part (b) +// Since = V = V_m + V_c, solving for V_m +V_m = V - V_c; // Potential difference across multiplier resistance, V +// From Ohm's law, V_m = I_fsd*R_m, solving for R_m +R_m = V_m/I_fsd // Multiplier resistance, ohm +printf("\nThe required value of shunt resistance = %4.1f mega-ohm", R_s/1e-03); +printf("\nThe required value of multiplier resistance = %4.1f mega-ohm", R_m*1e-03); + +// Result +// The required value of shunt resistance = 22.5 mega-ohm +// The required value of multiplier resistance = 131.83 mega-ohm diff --git a/1544/CH5/EX5.16/Ch05Ex16.sce b/1544/CH5/EX5.16/Ch05Ex16.sce new file mode 100755 index 000000000..d7e79ed3b --- /dev/null +++ b/1544/CH5/EX5.16/Ch05Ex16.sce @@ -0,0 +1,21 @@ +// Scilab code Ex5.16: Pg 166 (2008) +clc; clear; +R_1 = 30; // Resistance, ohm +R_2 = 70; // Resistance, ohm +R_in = 200; // Internal resistance of meter, ohm +V = 12; // Supply voltage, V +// Using voltage divider rule, we have +V_2t = (R_2 /(R_1 + R_2))*V // True value of p.d across resistance R_2, V +// Since the rsistances R_2 and R-in are parallel, so their equivalent resistance is given their parallel combination +R_BC = (R_2 * R_in)/(R_2 + R_in); // Resistance, ohms +// Using the potential divider technique, +V_2i = (R_BC / ( R_BC + R_1 ))*V // Indicated value of p.d across by voltmetre, volts +err = (( V_2i-V_2t ) / V_2t)*100 // Percentage error in the reading +printf("\nThe p.d. indicated by the meter = %3.1f V", V_2i); +printf("\nThe percentage error in the reading = %4.2f percent", err); + + +// Result +// The p.d. indicated by the meter = 7.6 V +// The percentage error in the reading = -9.50 percent + diff --git a/1544/CH5/EX5.17/Ch05Ex17.sce b/1544/CH5/EX5.17/Ch05Ex17.sce new file mode 100755 index 000000000..2495c390d --- /dev/null +++ b/1544/CH5/EX5.17/Ch05Ex17.sce @@ -0,0 +1,30 @@ +// Scilab code Ex5.17: Pg 168-169 (2008) +clc; clear; +R_in = 200; // Internal resistance of meter, kilo-ohms +V = 10; // Supply voltage, volts +R_1 = 10; // Resistance, kilo-ohms +R_2 = 47; // Resistance, kilo-ohms +V_1 = R_1/(R_1+R_2)*V // P.d across resistance R_1, V +V_2 = R_2/(R_1+R_2)*V // P.d across resistance R_2, V +// Part (a) +R_AB = (R_1 * R_in)/(R_1 + R_in); // Resistance, kilo-ohms +V_AB = (R_AB / ( R_AB + R_2 ))*V // True value of p.d across by voltmetre, V +R_BC = (R_2 * R_in)/(R_2 + R_in); // Resistance, kilo-ohms +V_BC = (R_BC / ( R_BC + R_1 ))*V // Indicated value of p.d across by voltmetre, V +// Part (b) +// Error for V_1 measurement +error_AB = (V_AB - V_1)/V_1*100 // Percentage error in the reading +//Error for V_2 measurement +error_BC = (V_BC-V_2)/V_2*100 // Percentage error in the reading +printf("\nThe p.d. indicated by the meter across first resistor = %4.2f V", V_AB); +printf("\nThe p.d. indicated by the meter across second resistor = %4.2f V", V_BC); +printf("\nPercentage error for V_1 measurement = %4.2f percent", error_AB); +printf("\nPercentage error for V_2 measurement = %4.2f percent", error_BC); + +// Result +// The p.d. indicated by the meter across first resistor = 1.68 V +// The p.d. indicated by the meter across second resistor = 7.92 V +// Percentage error for V_1 measurement = -3.96 percent +// Percentage error for V_2 measurement = -3.96 percent + + diff --git a/1544/CH5/EX5.18/Ch05Ex18.sce b/1544/CH5/EX5.18/Ch05Ex18.sce new file mode 100755 index 000000000..322f6ca67 --- /dev/null +++ b/1544/CH5/EX5.18/Ch05Ex18.sce @@ -0,0 +1,10 @@ +// Scilab code Ex5.18: Pg 176 (2008) +clc; clear; +L = 0.25; // Self-inductance, H +delta_I = 250e-03; // Change in current, A +delta_t = 25e-03; // Time, s +e = ((-L)*delta_I)/(delta_t); // Induced emf, V +printf("\nThe value of emf induced = %3.1f V", e); + +// Result +// The value of emf induced = 2.5 V diff --git a/1544/CH5/EX5.19/Ch05Ex19.sce b/1544/CH5/EX5.19/Ch05Ex19.sce new file mode 100755 index 000000000..8ad1a1c57 --- /dev/null +++ b/1544/CH5/EX5.19/Ch05Ex19.sce @@ -0,0 +1,11 @@ +// Scilab code Ex5.19: Pg 176 (2008) +clc; clear; +e = 30; // Induced emf, V +// For simplicity, let rate of change of current i.e delta_I/delta_t = k +k = 200; // Rate of change of current, ampere-second +// Since e = ((-L)*delta_I)/(delta_t), solving for L +L = e/k; // Self-inductance, H +printf("\nThe inductance of the circuit = %4.2f H", L); + +// Result +// The inductance of the circuit = 0.15 H diff --git a/1544/CH5/EX5.2/Ch05Ex2.sce b/1544/CH5/EX5.2/Ch05Ex2.sce new file mode 100755 index 000000000..3032ab498 --- /dev/null +++ b/1544/CH5/EX5.2/Ch05Ex2.sce @@ -0,0 +1,19 @@ +// Scilab code Ex5.2: Pg 146 (2008) +clc; clear; +N = 250; // Number of turns +delta_phi1 = 20e-03; // Flux linked with coil, Wb +delta_phi2 = -16e-03; // Flux linked with coil, Wb +delta_t1 = 0.05; // Time, s +delta_t2 = 0.01; // Time, s +e_1 =((-N)*delta_phi1)/delta_t1; // Average induced emf, V +e_2 =((-N)*delta_phi2)/delta_t2; // Average induced emf, V +printf("\nChange in flux in first case = %4.2f weber", delta_phi1); +printf("\nEmf induced in first case = %3d volts",e_1); +printf("\nChange in flux in second case = %4.2f weber", delta_phi2); +printf("\nEmf induced in second case = %3d volts", e_2); + +// Result +// Change in flux in first case = 0.02 Wb +// Emf induced in first case = -100 V +// Change in flux in second case = -0.02 Wb +// Emf induced in second case = 400 V diff --git a/1544/CH5/EX5.20/Ch05Ex20.sce b/1544/CH5/EX5.20/Ch05Ex20.sce new file mode 100755 index 000000000..400f77abf --- /dev/null +++ b/1544/CH5/EX5.20/Ch05Ex20.sce @@ -0,0 +1,10 @@ +// Scilab code Ex5.20: Pg 176 (2008) +clc; clear; +L = 50e-03; // Self-inductance, H +e = 8; // Induced emf, V +// Since e = ((-L)*delta_I)/(delta_t), solving for delta_I/delta_t,and for simplicity letting the rate of change of current i.e delta_I/delta_t = k +k = e/L; // Rate of change of current, As +printf("\nThe rate of change of current = %3d A/s",k); + +// Result +// The rate of change of current = 160 A/s diff --git a/1544/CH5/EX5.21/Ch05Ex21.sce b/1544/CH5/EX5.21/Ch05Ex21.sce new file mode 100755 index 000000000..291d350eb --- /dev/null +++ b/1544/CH5/EX5.21/Ch05Ex21.sce @@ -0,0 +1,17 @@ +// Scilab code Ex5.21: Pg 178 (2008) +clc; clear; +N = 150; // Number of turns in a coil +I = 10; // Electric current flowing through coil, A +phi = 0.10; // Flux, Wb +delta_t = 0.1; // Time, s +// Part (a) +L = (N * phi)/I // Self-inductance, H +delta_I = 20; // Change in current, A +// Part (b) +e = abs((-L*delta_I)/(delta_t)); // Induced emf, V +printf("\nThe inductance of the coi = %3.1f H", L); +printf("\nThe emf induced in the coil = %2d V", e); + +// Result +// The inductance of the coi = 1.5 H +// The emf induced in the coil = 300 V diff --git a/1544/CH5/EX5.22/Ch05Ex22.sce b/1544/CH5/EX5.22/Ch05Ex22.sce new file mode 100755 index 000000000..23a77ba9c --- /dev/null +++ b/1544/CH5/EX5.22/Ch05Ex22.sce @@ -0,0 +1,14 @@ +// Scilab code Ex5.22: Pg 178 (2008) +clc; clear; +I_1 = 8; // Electric current, A +I_2 = 2; // Electric current, A +N = 3000; // Number of turns in a coil +phi_1 = 4e-03; // Flux, Wb +delta_t = 0.1; // Reversal time of current, s +L = (N * phi_1)/I_1; // Self-inductance, H +delta_I = I_1 - I_2; // Change in current, A +e = ((L)*delta_I)/(delta_t); // Induced emf, V +printf("\nThe emf induced in the coil = %2d volts", e); + +// Result +// The emf induced in the coil = 90 V diff --git a/1544/CH5/EX5.23/Ch05Ex23.sce b/1544/CH5/EX5.23/Ch05Ex23.sce new file mode 100755 index 000000000..ca690d4d8 --- /dev/null +++ b/1544/CH5/EX5.23/Ch05Ex23.sce @@ -0,0 +1,27 @@ +// Scilab code Ex5.23: Pg 179-180 (2008) +clc; clear; +N_1 = 600; // Number of turns in a coil in first case +N_2 = 900; // Number of turns in a coil in secnd case +N_3 = 900; // Number of turns in a coil in third case +l = 45e-03; // Effective length of coil, m +A = 4e-04; // Cross-sectional area of coil, m^2 +mew_o = 4*(%pi)*1e-07; // Pemeability for free space +mew_r1 = 1; // Relative permeability in first case +mew_r2 = 1; // Relative permeability in second case +// Part (a) +mew_r3 = 75; // Relative permeability in third case +L_1 = (mew_o*mew_r1*(N_1^2)*A)/l; // Self-inductance of coil in first case, H +// Part (b) +// Since self-inductance of a coil is directly proportional to the number of turns in a coil, therefore, we have L_2/L_1 = (N_2^2)/(N_1^2), solving for L_2 +L_2 = (L_1*(N_2^2))/(N_1^2); // Self-inductance of coil in second case, H +// Part (c) +// Since mew_r3 = 75*mew_r2, keeping all other quantities same we have +L_3 = mew_r3*L_2; // Self-inductance of coil in third case, H +printf("\nSelf-inductance of coil in first case = %4.2f mH",L_1/1e-03); +printf("\nSelf-inductance of coil in second case = %5.3f mH", L_2/1e-03); +printf("\nSelf-inductance of coil in third case = %5.3f H", L_3); + +// Result +// Self-inductance of coil in first case = 4.02 mH +// Self-inductance of coil in second case = 9.048 mH +// Self-inductance of coil in third case = 0.679 H diff --git a/1544/CH5/EX5.24/Ch05Ex24.sce b/1544/CH5/EX5.24/Ch05Ex24.sce new file mode 100755 index 000000000..c71498b3c --- /dev/null +++ b/1544/CH5/EX5.24/Ch05Ex24.sce @@ -0,0 +1,17 @@ +// Scilab code Ex5.24: SPg 182 (2008) +clc; clear; +N_A = 2000; // Number of turns in a coil A +N_B = 1500; // Number of turns in a coil B +I_A = 0.5; // Electric current in coil A, A +phi_A = 60e-06; // Flux linked with coil A, Wb +// Part (a) +L_A = (N_A*phi_A)/I_A; // Self-inductance of coil A +phi_B = 0.83*(60e-06); // Flux linked with coil B, Wb +// Part (b) +M = (N_B*phi_B)/I_A; // Mutual inductance of the two coils, H +printf("\nSelf-inductance of coil A = %4.2f H", L_A) +printf("\nMutual inductance of the two coils = %5.3f H", M) + +// Result +// Self-inductance of coil A = 0.24 H +// Mutual inductance of the two coils = 0.149 H diff --git a/1544/CH5/EX5.25/Ch05Ex25.sce b/1544/CH5/EX5.25/Ch05Ex25.sce new file mode 100755 index 000000000..008551ea4 --- /dev/null +++ b/1544/CH5/EX5.25/Ch05Ex25.sce @@ -0,0 +1,12 @@ +// Scilab code Ex5.25: Pg 183 (2008) +clc; clear; +N = 400; // Number of turns in a coil +l = 0.25; // Effective length of coil, m +A = 4.5e-04; // Cross-sectional area, m^2 +mew_r = 180; // Relative permeability +mew_o = 4*(%pi)*1e-07; // Pemeability for free space +L = (mew_o*mew_r*(N^2)*A)/l // Self-inductance of coil, H +printf("\nThe self inductance of the coil = %2d milli-henry", L/1e-03); + +// Result +// The self inductance of the coil = 65 mH diff --git a/1544/CH5/EX5.26/Ch05Ex26.sce b/1544/CH5/EX5.26/Ch05Ex26.sce new file mode 100755 index 000000000..3742dd95c --- /dev/null +++ b/1544/CH5/EX5.26/Ch05Ex26.sce @@ -0,0 +1,27 @@ +// Scilab code Ex5.26: Pg 183 (2008) +clc; clear; +L_1 = 65e-03; // Self-inductance of first coil, H +delta_I = 1.5; // Change in current, A +delta_t = 3e-03; // Time, s +k = 0.95; // 95 percent of flux produced +N_1 = 400; // Number of turns in a coil A +N_2 = 650; // Number of turns in a coil B +// Part (a) +// Since self-inductance of a coil is directly proportional to the number of turns in a coil, therefore, we have L_2/L_1 = (N_2^2)/(N_1^2), solving for L_2 +L_2 = (L_1*(N_2^2))/(N_1^2) // Self-inductance of second coil , H +// Part (b) +M = k*sqrt(L_1*L_2); // Mutual inductance of two coils, H +// Part (c) +e_1 = ((L_1)*delta_I)/(delta_t); // Induced emf in first coil, V +// Part (d) +e_2 = (M*delta_I)/delta_t; // Induced emf in second coil, V +printf("\nThe self-inductance of coil 2 = %3d mH", L_2/1e-03) +printf("\nThe value of mutual inductance = %3d mH", M/1e-03) +printf("\nThe self-induced emf in coil 1 = %4.1f V", e_1) +printf("\nThe mutually induced emf in coil 2 = %2d V", e_2) + +// Result +// The self-inductance of coil 2 = 171 mH +// The value of mutual inductance = 100 mH +// The self-induced emf in coil 1 = 32.5 V +// The mutually induced emf in coil 2 = 50 V diff --git a/1544/CH5/EX5.27/Ch05Ex27.sce b/1544/CH5/EX5.27/Ch05Ex27.sce new file mode 100755 index 000000000..6064c6746 --- /dev/null +++ b/1544/CH5/EX5.27/Ch05Ex27.sce @@ -0,0 +1,9 @@ +// Scilab code Ex5.27: Pg 185 (2008) +clc; clear; +L = 50e-03; // Self-inductance of coil, H +I = 0.75; // Electric current in coil, A +W = (L*(I^2))/2 // Energy stored, J +printf("\nEnergy stored in the inductor = %4.1f mJ", W/1e-03) + +// Result +// Energy stored in the inductor = 14.1 mJ diff --git a/1544/CH5/EX5.28/Ch05Ex28.sce b/1544/CH5/EX5.28/Ch05Ex28.sce new file mode 100755 index 000000000..111698cd4 --- /dev/null +++ b/1544/CH5/EX5.28/Ch05Ex28.sce @@ -0,0 +1,24 @@ +// Scilab code Ex5.28: Pg 185-186 (2008) +clc; clear; +L_1 = 25e-03; // Self-inductance of first coil, H +L_2 = 40e-03; // Self-inductance of second coil, H +I = 0.25; // Electric current in coils, A +k =0.8; // Coupling coefficient +// Part (a) +W_1 = (L_1*(I^2))/2; // Energy stored in first coil, J +W_2 = (L_2*(I^2))/2; // Energy stored in second coil, J +M = k*sqrt(L_1*L_2); // Mutual inductance of coils +// Part (b) +W_M = M*(I)*(I); // Energy stored due to mutual inductance of coils, J +W_sa = W_1 + W_2 + W_M; // Energy stored by two inductors when connected in series aiding, J +W_so = W_1 + W_2 - W_M; // Energy stored by two inductors when connected in series opposition, J +printf("\nEnergy stored in first coil = %4.2f mJ", W_1/1e-03) +printf("\nEnergy stored in second coil = %4.2f mJ", W_2/1e-03) +printf("\nEnergy stored by two inductors when connected in series aiding = %3.1f mJ", W_sa/1e-03) +printf("\nEnergy stored by two inductors when connected in series opposition = %4.2f mJ", W_so/1e-03) + +// Result +// Energy stored in first coil = 0.78 mJ +// Energy stored in second coil = 1.25 mJ +// Energy stored by two inductors when connected in series aiding = 3.6 mJ +// Energy stored by two inductors when connected in series opposition = 0.45 mJ diff --git a/1544/CH5/EX5.29/Ch05Ex29.sce b/1544/CH5/EX5.29/Ch05Ex29.sce new file mode 100755 index 000000000..56b839718 --- /dev/null +++ b/1544/CH5/EX5.29/Ch05Ex29.sce @@ -0,0 +1,17 @@ +// Scilab code Ex5.29: Pg 189 (2008) +clc; clear; +V_2 = 60; // Output voltage, V +V_1 = 240; // Input voltage, V +N_2 = 500; // Secondary turns +// Part (a) +// For simplicity let V_1/V_2 = N_1/N_2 = k +k = V_1/V_2 // Turns ratio +// Part (b) +// Since V_1/V_2 = N_1/N_2, solving for N_1 +N_1 = k*N_2; // Primary turns +printf("\nThe required turns ratio = %1d:1", k) +printf("\nThe number of primary turns = %4d", N_1) + +// Result +// The required turns ratio = 4:1 +// The number of primary turns = 2000 diff --git a/1544/CH5/EX5.3/Ch05Ex3.sce b/1544/CH5/EX5.3/Ch05Ex3.sce new file mode 100755 index 000000000..e3162a2d7 --- /dev/null +++ b/1544/CH5/EX5.3/Ch05Ex3.sce @@ -0,0 +1,11 @@ +// Scilab code Ex5.3: Pg 147 (2008) +clc; clear; +e = 100; // Induced emf, V +// For simplification let (delta_phi)/(delta_t) = k +k = 0.1; // Rate of chage of flux linked with coil, Wb/s +// Since e =((-N)*delta_phi)/delta_t, soling for N +N = (e)/k; // Number of turns +printf("\nThe number of turns on the coil = %4d", N); + +// Result +// The number of turns on the coil = 1000 diff --git a/1544/CH5/EX5.30/Ch05Ex30.sce b/1544/CH5/EX5.30/Ch05Ex30.sce new file mode 100755 index 000000000..b444ecdce --- /dev/null +++ b/1544/CH5/EX5.30/Ch05Ex30.sce @@ -0,0 +1,23 @@ +// Scilab code Ex5.28: Pg 189 (2008) +clc; clear; +R_L = 15; // Load resistor, ohms +V_2 = 240; // Terminal p.d at secondary, V +V_1 = 600; // Supply voltage, V +// Part (a) +// Since V_1/V_2 = N_1/N_2 = k +k = V_1/V_2; // Turns ratio +// Part (b) +I_2 = V_2/R_L; // Current drawn by the load, A +P_2 = V_2*I_2; // Power drawn by the load, W +// Part (c) +I_1 = P_2/V_1 // Current drawn from the supply, A +printf("\nThe transformer turns ratio = %3.1f:1", k); +printf("\nThe current drawn by the load = %2d A",I_2); +printf("\nThe power drawn by the load = %4.2f W", P_2*1e-03); +printf("\nThe current drawn from the supply = %3.1f A", I_1); + +// Result +// The transformer turns ratio = 2.5:1 +// The current drawn by the load = 16 A +// The power drawn by the load = 3.48 W +// The current drawn from the supply = 6.4 A diff --git a/1544/CH5/EX5.4/Ch05Ex4.sce b/1544/CH5/EX5.4/Ch05Ex4.sce new file mode 100755 index 000000000..06a9017ed --- /dev/null +++ b/1544/CH5/EX5.4/Ch05Ex4.sce @@ -0,0 +1,14 @@ +// Scilab code Ex5.4: Pg 149 (2008) +clc; clear; +v = 5; // Velocity, m^2 +theta =(%pi/3); // Angle, degrees +phi = 1.6e-03; // Flux, Wb +l = 0.1; // Length of pole face, m +d = 0.4; // Breadth of pole face, m +A = l*d; // Cross-sectional area of pole face, m^2 +B = phi/ A; // Flux density, T +e =( B*l*v)*sin(theta); // Induced emf, V +printf("\nThe emf induced = %5.4f V", e); + +// Result +// The emf induced = 0.0173 V diff --git a/1544/CH5/EX5.5/Ch05Ex5.sce b/1544/CH5/EX5.5/Ch05Ex5.sce new file mode 100755 index 000000000..088707d18 --- /dev/null +++ b/1544/CH5/EX5.5/Ch05Ex5.sce @@ -0,0 +1,12 @@ +// Scilab code Ex5.5: Pg 149 (2008) +clc; clear; +l = 0.15; // Effective length of conductor, m +v = 8; // Velocity, m^2 +theta = (%pi/180)*55; // Angle, degrees +e = 25; // Induced emf, V +// Since e = B*l*v*sin(theta), solving for B +B = e/(l*v*sin(theta)); // Flux density, T +printf("\nThe density of the field = %5.3f tesla", B); + +// Result +// The density of the field = 25.433 T diff --git a/1544/CH5/EX5.6/Ch05Ex6.sce b/1544/CH5/EX5.6/Ch05Ex6.sce new file mode 100755 index 000000000..0bcad0953 --- /dev/null +++ b/1544/CH5/EX5.6/Ch05Ex6.sce @@ -0,0 +1,11 @@ +// Scilab code Ex5.6: Pg 149 (2008) +clc; clear; +l = 2.2; // Effective length of conductor, m +B =38e-06; // Flux density, T +theta = (%pi/2); // Angle, degrees +v = 800/36; // Velocity, m^2 +e = B*l*v*sin(theta); // Induced emf, V +printf("\The emf induced in the axle = %4.2f mV", e/1e-03); + +// Result +// The emf induced in the axle = 1.86 mV diff --git a/1544/CH5/EX5.7/Ch05Ex7.sce b/1544/CH5/EX5.7/Ch05Ex7.sce new file mode 100755 index 000000000..152488a78 --- /dev/null +++ b/1544/CH5/EX5.7/Ch05Ex7.sce @@ -0,0 +1,12 @@ +// Scilab code Ex5.7:Pg 152 (2008) +clc; clear; +l = 0.22; // Effective length of conductor, m +B = 0.35; // Flux density, T +I = 3; // Current, A +theta = (%pi/2); // Angle, degrees +// Since the force exerted on the conductor placed in magnetic field is directly proportional to the flux density , the value of current flowing through the conductor, and the length of conductor lying inside the field, therefore +F = B*I*l*sin(theta); // Force, N +printf("\nThe force exerted on the conductor = %5.3f N", F); + +// Result +// The force exerted on the conductor = 0.231 N diff --git a/1544/CH5/EX5.8/Ch05Ex8.sce b/1544/CH5/EX5.8/Ch05Ex8.sce new file mode 100755 index 000000000..874dbda79 --- /dev/null +++ b/1544/CH5/EX5.8/Ch05Ex8.sce @@ -0,0 +1,19 @@ +// Scilab code Ex5.8: Current carrying conductor in magnetic field: Pg 153 (2008) +clc; clear; +phi = 2.5e-03; // Flux, Wb +l = 0.05; // Effective length of pole, m +d = 0.03; // Effective width of pole, m +F = 1.25; // Force exerted on conductor, N +A = l*d; // Cross-sectional area of pole face, m^2 +B = phi/A; // Flux density, T +theta = (%pi/2); // Angle, degrees +// Since F = B*I*l*sin(theta), solving for I +I = F/(B*l*sin(theta)); // Current in conductor, A +theta_2 = (%pi/4); // New angle, degrees +F_2 = B*I*l*sin(theta_2); // Force exerted on conductor, N +printf("\nThe value of the current = %2g A", I); +printf("\nThe force exerted on conductor when placed at 45 degrees to the field = %5.3f newton", F_2); + +// Result +// The value of the current = 14 A +// The force exerted on conductor when placed at 45 degrees to the field = 0.884 N diff --git a/1544/CH5/EX5.9/Ch05Ex9.sce b/1544/CH5/EX5.9/Ch05Ex9.sce new file mode 100755 index 000000000..9e0d6073b --- /dev/null +++ b/1544/CH5/EX5.9/Ch05Ex9.sce @@ -0,0 +1,13 @@ +// Scilab code Ex5.9: Pg 154 (2008) +clc; clear; +l = 0.015; // Length of coil, m +d = 0.006; // Width of coil, m +B = 1.2; // Flux density, T +I = 1e-02; // Current, a +r = d/2; // Radius of rotation, m +// Since torque is given by the product of force and distance, therefore, we have +T = 2*B*I*l*r; // Torque, Nm + printf("\nThe torque exerted on the coil = %4.2f micro-Nm", T/1e-06); + +// Result +// The torque exerted on the coil = 1.08 micro-Nm -- cgit