1 files changed, 12 insertions, 0 deletions
diff --git a/1544/CH1/EX1.17/Ch01Ex17.sce b/1544/CH1/EX1.17/Ch01Ex17.sce
new file mode 100755
index 000000000..c7ce803de
--- /dev/null
+++ b/1544/CH1/EX1.17/Ch01Ex17.sce
@@ -0,0 +1,12 @@
+// Scilab code Ex1.17:  Pg 22 (2008)
+clc; clear;
+l = 250;          // Length of Cu wire, metre
+d = 5e-04;         // Diameter of Cu wire, metre
+rho = 1.8e-08;       // Resistivity of Cu wire, ohm-metre
+A = ( %pi*d^2 )/4;          // Cross sectional area of Cu wire, metre square
+// Using relation R = rho*l/A
+R = rho*l/A;          // Resistance, ohm
+printf("\nThe resistance of the coil = %5.2f ohm", R)
+
+// Result
+// The resistance of the coil = 22.92 ohm