summaryrefslogtreecommitdiff
path: root/1736/CH2/EX2.1
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /1736/CH2/EX2.1
downloadScilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip
initial commit / add all books
Diffstat (limited to '1736/CH2/EX2.1')
-rwxr-xr-x1736/CH2/EX2.1/Ch02Ex1.sce12
1 files changed, 12 insertions, 0 deletions
diff --git a/1736/CH2/EX2.1/Ch02Ex1.sce b/1736/CH2/EX2.1/Ch02Ex1.sce
new file mode 100755
index 000000000..b67b2444d
--- /dev/null
+++ b/1736/CH2/EX2.1/Ch02Ex1.sce
@@ -0,0 +1,12 @@
+// Scilab Code Ex2.1 : Page-62 (2006)
+clc; clear;
+epsilon_0 = 8.854e-012; // Absolute electrical permittivity of free space, F/m
+e = 1.6e-019; // Energy equivalent of 1 eV, eV/J
+r = 3.147e-010; // Nearest neighbour distance for KCl, m
+n = 9.1; // Repulsive exponent of KCl
+A = 1.748; // Madelung constant for lattice binding energy
+E = A*e^2/(4*%pi*epsilon_0*r)*(n-1)/n/e; // Binding energy of KCl, eV
+printf("\nThe binding energy of KCl = %5.3f eV", E);
+
+// Result
+// The binding energy of KCl = 7.110 eV