1 files changed, 14 insertions, 0 deletions
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