1 files changed, 9 insertions, 0 deletions
diff --git a/1535/CH13/EX13.4/Ch13Ex4.sci b/1535/CH13/EX13.4/Ch13Ex4.sci
new file mode 100755
index 000000000..ce398350c
--- /dev/null
+++ b/1535/CH13/EX13.4/Ch13Ex4.sci
@@ -0,0 +1,9 @@
+// Scilab Code Ex13.4: Relative dielectric constant : Page-288 (2010)
+epsilon_0 = 8.854e-012;    // Absolute electrical permittivity of free space, farad per metre
+N = 3.0e+028;    // Number density of solid elemental dielectric, atoms per metre cube
+alpha_e = 1e-040;    // Electronic polarizability, farad metre square
+epsilon_r = 1 + N*alpha_e/epsilon_0;    // Relative dielectric constant of the material
+printf("\nThe Relative dielectric constant of the material = %5.3f", epsilon_r);
+
+// Result
+// The Relative dielectric constant of the material = 1.339 
+\ No newline at end of file