1 files changed, 14 insertions, 0 deletions
diff --git a/1871/CH10/EX10.4/Ch010Ex4.sce b/1871/CH10/EX10.4/Ch010Ex4.sce
new file mode 100755
index 000000000..ea7584eb7
--- /dev/null
+++ b/1871/CH10/EX10.4/Ch010Ex4.sce
@@ -0,0 +1,14 @@
+// Scilab code Ex10.4: Pg:417 (2008)
+clc;clear;
+alpha_e = 3.28e-040;    // Electronic polarizability of sulphur atom, Force meter square
+eps_0 = 8.85e-012;    // Permittivity of free space, farad per metre
+N_A = 6.023e+026;    // Avagadro's number
+M = 32;    // Atomic weight of sulphur
+rho = 2.08e+003;    // Density of sulphur atom, kg per cubic meter
+// Since (eps_r - 1)/(eps_r + 2) = N*alphe_e/(3*eps_0), solvinf for  eps_r
+ep_r = poly(0, 'ep_r');
+ep_r = roots((ep_r - 1)*3*M*eps_0-(ep_r + 2)*N_A*rho*alpha_e);    // Relative permittivity of the medium
+printf("\nThe relative dielectric constant for sulphur = %3.1f", ep_r);
+
+// Result 
+// The relative dielectric constant for sulphur = 3.8
+\ No newline at end of file