2 files changed, 19 insertions, 0 deletions
diff --git a/1367/CH6/EX6.1/6_1.sce b/1367/CH6/EX6.1/6_1.sce
new file mode 100755
index 000000000..ee12dfcf2
--- /dev/null
+++ b/1367/CH6/EX6.1/6_1.sce
@@ -0,0 +1,15 @@
+//Find No. of Frenkel defect
+//Ex:6.1
+clc;
+clear;
+close;
+na=6.023*10^23;//Avagadro's no.
+p=3170;//density in kg/m^3
+mw=7.9*10^-2;//molecular weight of CaF2
+nl=na*p/mw;//calcium ions/cubic m
+ni=2*nl;// /cubic m
+t=1300;//in K
+ef=2.7*1.6*10^-19;//energy of formation of one frenkel defect
+k=1.38*10^-23;//boltzmann constant
+nf=sqrt(nl*ni)*exp(-ef/(2*k*t));//in /cubic m
+disp(nf,"No. of Frenkel defect per unit volume of Calcium Fluoride (in /m^3) = ");
+\ No newline at end of file
diff --git a/1367/CH6/EX6.1/6_1r.txt b/1367/CH6/EX6.1/6_1r.txt
new file mode 100755
index 000000000..204c5def5
--- /dev/null
+++ b/1367/CH6/EX6.1/6_1r.txt
@@ -0,0 +1,4 @@
+  
+ No. of Frenkel defect per unit volume of Calcium Fluoride (in /m^3) =    
+ 
+    2.017D+23 
+\ No newline at end of file