1 files changed, 25 insertions, 0 deletions
diff --git a/1026/CH9/EX9.3/Example9_3.sce b/1026/CH9/EX9.3/Example9_3.sce
new file mode 100755
index 000000000..7144d6ddf
--- /dev/null
+++ b/1026/CH9/EX9.3/Example9_3.sce
@@ -0,0 +1,25 @@
+//chapter9,Example9_3,pg 238
+
+//for 110 plane
+
+a=3*10^-10//lattice parameter
+
+d=(a/sqrt(2))//d110=(a/sqrt((1^2)+(1^2)+0))
+
+theta=12.5*(%pi/180)//glancing angle
+
+n=1
+
+lam=2*d*sin(theta)//wavelength of x-ray
+
+nmax=((2*d)/lam)//highest order
+
+printf("wavelength of x-ray beam\n")
+
+disp(lam)
+
+printf("\nhighest braggs order\n")
+
+printf("nmax=%.2f",nmax)
+
+printf("\nfraction is meaningless so nmax=4")
+\ No newline at end of file