summaryrefslogtreecommitdiff
path: root/3768/CH1/EX1.2/Ex1_2.sce
diff options
context:
space:
mode:
Diffstat (limited to '3768/CH1/EX1.2/Ex1_2.sce')
-rw-r--r--3768/CH1/EX1.2/Ex1_2.sce18
1 files changed, 18 insertions, 0 deletions
diff --git a/3768/CH1/EX1.2/Ex1_2.sce b/3768/CH1/EX1.2/Ex1_2.sce
new file mode 100644
index 000000000..bff75feb7
--- /dev/null
+++ b/3768/CH1/EX1.2/Ex1_2.sce
@@ -0,0 +1,18 @@
+//Example number 1.2, Page number 10
+
+clc;clear;
+close;
+
+//Variable declaration
+e=1.6*10**-19; //charge(coulomb)
+epsilon0=8.85*10**-12;
+r0=0.41*10**-3; //equilibrium distance(m)
+A=1.76; //madelung constant
+n=0.5; //repulsive exponent value
+
+//Calculation
+Beta=72*%pi*epsilon0*r0**4/(A*e**2*(n-1)); //compressibility
+
+//Result
+printf( "compressibility = %.4e",Beta)
+//answer in the book is wrong