9 files changed, 195 insertions, 0 deletions
diff --git a/1026/CH9/EX9.1/Example9_1.sce b/1026/CH9/EX9.1/Example9_1.sce
new file mode 100755
index 000000000..6bc3b2e81
--- /dev/null
+++ b/1026/CH9/EX9.1/Example9_1.sce
@@ -0,0 +1,27 @@
+//chapter9,Example9_1,pg 237
+
+d=4.255*10^-10
+
+lam=1.549*10^-10//wavelength of K-copper line
+
+n=1//theta is smallest when n=1
+
+theta=asin(lam/(2*d))//glancing angle
+
+theta=theta*(180/%pi)
+
+//max value of sin(theta)=1
+
+//for highest order
+
+nmax=((2*d)/lam)//highest bragg's order
+
+printf("smallest glancing angle\n")
+
+printf("theta=%.2f deg.",theta)
+
+printf("\nmaximum order of reflection\n")
+
+printf("nmax=%.2f",nmax)
+
+printf("\nsince fraction is meaningless for order nmax=5")
+\ No newline at end of file
diff --git a/1026/CH9/EX9.2/Example9_2.sce b/1026/CH9/EX9.2/Example9_2.sce
new file mode 100755
index 000000000..65e3c1bbc
--- /dev/null
+++ b/1026/CH9/EX9.2/Example9_2.sce
@@ -0,0 +1,15 @@
+//chapter9,Example9_2,pg 237
+
+V=60*10^3
+
+c=3*10^8
+
+e=1.6*10^-19
+
+lam=0.194*10^-10//min. wavelength of x-rays
+
+h=(lam*e*V)/c
+
+printf("plancks constant\n")
+
+disp(h)
+\ No newline at end of file
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
diff --git a/1026/CH9/EX9.4/Example9_4.sce b/1026/CH9/EX9.4/Example9_4.sce
new file mode 100755
index 000000000..03f3ba71f
--- /dev/null
+++ b/1026/CH9/EX9.4/Example9_4.sce
@@ -0,0 +1,19 @@
+//chapter9,Example9_4,pg 238
+
+d=2.81*10^-10
+
+theta=14*(%pi/180)//glancing angle
+
+lam=2*d*sin(theta)//min. wavelength
+
+e=1.6*10^-19
+
+V=9100
+
+c=3*10^8
+
+h=(lam*e*V)/c
+
+printf("plancks constant\n")
+
+disp(h)
+\ No newline at end of file
diff --git a/1026/CH9/EX9.5/Example9_5.sce b/1026/CH9/EX9.5/Example9_5.sce
new file mode 100755
index 000000000..fc2ab0492
--- /dev/null
+++ b/1026/CH9/EX9.5/Example9_5.sce
@@ -0,0 +1,19 @@
+//chapter9,Example9_5,pg 238
+
+//for line A-> 2*d*sin(thetaA)=lamA(n=1)
+
+thetaA=30*(%pi/180)//glancing angle for line A
+
+//for line B-> 2*d*sin(thetaB)=3*lamB(n=3)
+
+thetaB=60*(%pi/180)
+
+lamB=0.97*10^-10
+
+d=(3*lamB)/(2*sin(thetaB))
+
+lamA=2*d*sin(thetaA)//wavelength of line A
+
+printf("wavelength of line A\n")
+
+disp(lamA)
+\ No newline at end of file
diff --git a/1026/CH9/EX9.6/Example9_6.sce b/1026/CH9/EX9.6/Example9_6.sce
new file mode 100755
index 000000000..4089599f4
--- /dev/null
+++ b/1026/CH9/EX9.6/Example9_6.sce
@@ -0,0 +1,13 @@
+//chapter9,Example9_6,pg 239
+
+a=3.615*10^-10
+
+d111=a/sqrt(1+1+1)//for 111 plane 
+
+theta=21.7*(%pi/180)//converting into radian
+
+lam=2*d111*sin(theta)
+
+printf("wavelength of X-rays\n")
+
+disp(lam)
+\ No newline at end of file
diff --git a/1026/CH9/EX9.7/Example9_7.sce b/1026/CH9/EX9.7/Example9_7.sce
new file mode 100755
index 000000000..225e00fb8
--- /dev/null
+++ b/1026/CH9/EX9.7/Example9_7.sce
@@ -0,0 +1,31 @@
+//chapter9,Example9_7,pg 239
+
+V=50*10^3
+
+lam=(12400/V)*10^-10
+
+n=4//FCC crystal
+
+m=74.6
+
+N=6.022*10^26
+
+rho=1.99*10^3
+
+a=(((n*m)/(N*rho))^(1/3))
+
+//for kcl ionic crystal
+
+d=a/2
+
+theta=asin(lam/(2*d))
+
+theta=theta*(180/%pi)
+
+printf("min. wavelength of spectrum from tube\n")
+
+disp(lam)
+
+printf("glancing angle for that wavelength\n")
+
+printf("theta=%.2f deg.",theta)
+\ No newline at end of file
diff --git a/1026/CH9/EX9.8/Example9_8.sce b/1026/CH9/EX9.8/Example9_8.sce
new file mode 100755
index 000000000..8f2763134
--- /dev/null
+++ b/1026/CH9/EX9.8/Example9_8.sce
@@ -0,0 +1,25 @@
+//chapter9,Example9_8,pg 239
+
+//from bragg's law
+
+//2*d*sin(theta)=n*lam
+
+n=1
+
+theta1=5.4*(%pi/180)
+
+theta2=7.6*(%pi/180)
+
+theta3=9.4*(%pi/180)
+
+d100=lam/2*sin(theta1)
+
+d110=lam/2*sin(theta2)
+
+d111=lam/2*sin(theta3)
+
+printf("ratio of interplannar spacing \n(1/d100):(1/d110):(1/d111)=")
+
+printf("%.2f:",sin(theta1));printf("%.2f:",sin(theta2));printf("%.2f",sin(theta3));
+
+printf("\nas ratio (1/d100):(1/d110):(1/d111)=1:sqrt(2):sqrt(3)this relation is valid for simple cubic crystal therefore, this is a SCC crystal")
+\ No newline at end of file
diff --git a/1026/CH9/EX9.9/Example9_9.sce b/1026/CH9/EX9.9/Example9_9.sce
new file mode 100755
index 000000000..dcc7d07a4
--- /dev/null
+++ b/1026/CH9/EX9.9/Example9_9.sce
@@ -0,0 +1,21 @@
+//chapter9,Example9_9,pg 240
+
+lam=0.58*10^-10
+
+theta1=6.5*(%pi/180)
+
+theta2=9.15*(%pi/180)
+
+theta3=13*(%pi/180)
+
+//from bragg's law
+
+d1=lam/(2*sin(theta1))*10^10
+
+d2=lam/(2*sin(theta2))*10^10
+
+d3=lam/(2*sin(theta3))*10^10
+
+printf("interplannar spacing of crystal\n")
+
+printf("%.2f:",d1);printf("%.2f:",d2);printf("%.2f",d3);
+\ No newline at end of file