5 files changed, 83 insertions, 0 deletions
diff --git a/1730/CH1/EX1.3/Exa1_3.sce b/1730/CH1/EX1.3/Exa1_3.sce
new file mode 100755
index 000000000..437f0cc3d
--- /dev/null
+++ b/1730/CH1/EX1.3/Exa1_3.sce
@@ -0,0 +1,24 @@
+//Exa3
+clc;
+clear;
+close;
+//given data
+//atomic radius
+r=1.278; //in Angstrum
+//atomic weight
+aw=63.5;
+//Avogadro's number
+an=6.023*10^23;
+//copper has FCC structure for which
+a=(4*r)/sqrt(2);// in Angstrum
+a=a*10^-10;//in m
+//Mass of one atom 
+m=aw/an;//in gm
+m=m*10^-3;//in kg
+//volume of one unit cell of copper crystal,
+V=a^3;//in meter cube
+//Number of atoms present in one unit cell of Cu(FCC Structure),
+n=4;
+//Density of crystal
+rho=(m*n)/V;//in kg/m^3
+disp("Density of crystal is : "+string(rho)+"kg/m^3");
diff --git a/1730/CH1/EX1.4/Exa1_4.sce b/1730/CH1/EX1.4/Exa1_4.sce
new file mode 100755
index 000000000..9f06859a4
--- /dev/null
+++ b/1730/CH1/EX1.4/Exa1_4.sce
@@ -0,0 +1,15 @@
+//Exa4
+clc;
+clear;
+close;
+//given data :
+//wavelength
+lamda=1.539; //in Angstrum
+//angle
+theta=22.5; // in degree
+n=1;//(first order)
+
+// Formula n*lamda=2*d*sin(theta) , so
+// interplaner distance,
+d=lamda/(2*sin(theta*%pi/180));
+disp("Interplaner distance is : "+string(d)+"  Angstrum")
+\ No newline at end of file
diff --git a/1730/CH1/EX1.5/Exa1_5.sce b/1730/CH1/EX1.5/Exa1_5.sce
new file mode 100755
index 000000000..53d30672f
--- /dev/null
+++ b/1730/CH1/EX1.5/Exa1_5.sce
@@ -0,0 +1,12 @@
+//Exa5
+clc;
+clear;
+close;
+//given data :
+n=2;
+d=0.4;// in nenometer
+d=d*10^-9;// in meter
+theta=16.8/2;// in degree
+//using Bragg's equation we have n*lamda=2*d*sin(theta), so
+lamda=(2*d*sin(8.4*%pi/180))/n;
+disp("Wavelength of X-rays used is : "+string(lamda*10^10)+" Angstrum");
+\ No newline at end of file
diff --git a/1730/CH1/EX1.6/Exa1_6.sce b/1730/CH1/EX1.6/Exa1_6.sce
new file mode 100755
index 000000000..b26bd2f81
--- /dev/null
+++ b/1730/CH1/EX1.6/Exa1_6.sce
@@ -0,0 +1,15 @@
+//Exa6
+clc;
+clear;
+close;
+//given data :
+a=3.15; //in Angstrum
+a=a*10^-10;//in meter
+//angle
+theta=20.2;//in degree
+n=1;//(first order)
+//for BCC crystal
+d110=a/sqrt(2);//in meter
+//Formula n*lamda=2*d*sin(theta)
+lamda=(2*d110*sin(theta*%pi/180))/n;//in meter
+disp("Wavelength is : "+string(lamda*10^10)+" Angstrum")
+\ No newline at end of file
diff --git a/1730/CH1/EX1.7/Exa1_7.sce b/1730/CH1/EX1.7/Exa1_7.sce
new file mode 100755
index 000000000..2d731cb19
--- /dev/null
+++ b/1730/CH1/EX1.7/Exa1_7.sce
@@ -0,0 +1,17 @@
+//Exa7
+clc;
+clear;
+close;
+//given data :
+lambda=0.842; //in Angstrum
+lambda=lambda*10^-10; // in meter
+//theta=8degree 35minutes
+theta=8+35/60;//in degree
+n=1;//(first order)
+//Formula n*lamda=2*d*sin(theta)
+d=n*lambda/(2*sind(theta))
+//For third Order reflection :
+//Formula n*lamda=2*d*sin(theta)
+n=3;//order
+theta=asind(n*lambda/(2*d));
+disp(round(theta),"Angle of incidence for third order reflection in degree : ");
+\ No newline at end of file