12 files changed, 192 insertions, 0 deletions
diff --git a/3828/CH2/EX2.1/Ex2_1.sce b/3828/CH2/EX2.1/Ex2_1.sce
new file mode 100644
index 000000000..4ad340e48
--- /dev/null
+++ b/3828/CH2/EX2.1/Ex2_1.sce
@@ -0,0 +1,16 @@
+
+//Chapter 2 : Diffraction
+
+clear;
+
+//Variable declaration
+m=1                      //first minimum
+lamda=6000*10**-10       //wavelength
+theta=(35*%pi/180)   //angle in radians
+
+//Calculations
+a=(m*lamda)/sin(theta)/10**-6
+
+//Result
+mprintf("Width of the slit a= %.2f micro-m",a)
+
diff --git a/3828/CH2/EX2.10/Ex2_10.sce b/3828/CH2/EX2.10/Ex2_10.sce
new file mode 100644
index 000000000..1ea01bf74
--- /dev/null
+++ b/3828/CH2/EX2.10/Ex2_10.sce
@@ -0,0 +1,16 @@
+
+//Chapter 2 : Diffraction
+
+clear;
+
+//Variable declaration
+lamda=6.5*10**-7         //wavelength
+n=1                      //first order
+theta=(15*%pi/180)   //angle in radians
+
+//Calculations
+d=(n*lamda)/sin(theta)/10**-6
+
+//Result
+mprintf("Grating element= %.3f*10**-6 m",d)
+
diff --git a/3828/CH2/EX2.11/Ex2_11.sce b/3828/CH2/EX2.11/Ex2_11.sce
new file mode 100644
index 000000000..2e4d910f6
--- /dev/null
+++ b/3828/CH2/EX2.11/Ex2_11.sce
@@ -0,0 +1,13 @@
+//Chapter 2 : Diffraction
+
+clear;
+
+//Variable declaration
+lamda2=4992            //wavelenght
+
+//Calculations
+lamda=(4*lamda2)/3
+
+//Result
+mprintf("Lamda= %d Armstrong",lamda)
+
diff --git a/3828/CH2/EX2.12/Ex2_12.sce b/3828/CH2/EX2.12/Ex2_12.sce
new file mode 100644
index 000000000..eb3bf3d19
--- /dev/null
+++ b/3828/CH2/EX2.12/Ex2_12.sce
@@ -0,0 +1,17 @@
+
+//Chapter 2 : Diffraction
+
+clear;
+
+//Variable declaration
+theta=(30*%pi/180)  //angle in radians
+lamda1=5400*10**-10     
+n=3                     //third order
+
+//Calculations
+d=(n*lamda1)/sin(theta)*10**2/10**-4
+N1=1/d/10**-1*10**3
+
+//Result
+mprintf("Grating element= %.2f*10**-4 cm",d)
+mprintf("\nNumber of lines in 1 cm length of grating= %d",N1)
diff --git a/3828/CH2/EX2.2/Ex2_2.sce b/3828/CH2/EX2.2/Ex2_2.sce
new file mode 100644
index 000000000..32b381a9f
--- /dev/null
+++ b/3828/CH2/EX2.2/Ex2_2.sce
@@ -0,0 +1,15 @@
+
+//Chapter 2 : Diffraction
+
+clear;
+
+//Variable declaration
+m=1                      //first minimum
+lamda=6500*10**-10       //wavelength
+a=2*10**-6               //slit width
+
+//Calculations
+theta=((asin((m*lamda)/a))*180/%pi)
+
+//Result
+mprintf("Angle of first minimum theta= %.2f degrees",theta)
diff --git a/3828/CH2/EX2.3/Ex2_3.sce b/3828/CH2/EX2.3/Ex2_3.sce
new file mode 100644
index 000000000..b41713b01
--- /dev/null
+++ b/3828/CH2/EX2.3/Ex2_3.sce
@@ -0,0 +1,16 @@
+//Chapter 2 : Diffraction
+
+clear;
+
+//Variable declaration
+m=1                      //first minimum
+a=90*10**-16             //slit width
+y=6*10**-3               //distance from central maximum
+D=0.98                   //Screen distance
+
+//Calculations
+lamda=(y*a)/D/10**-17*10**3
+
+//Result
+mprintf("Wavelength of incident light lamda= %d Armstrong",lamda)
+
diff --git a/3828/CH2/EX2.4/Ex2_4.sce b/3828/CH2/EX2.4/Ex2_4.sce
new file mode 100644
index 000000000..bb219d5dc
--- /dev/null
+++ b/3828/CH2/EX2.4/Ex2_4.sce
@@ -0,0 +1,18 @@
+
+//Chapter 2 : Diffraction
+
+clear;
+
+//Variable declaration
+a=2*10**-4               //slit width                
+lamda=6*10**-7           //wavelength
+
+//Calculations
+theta=asin(lamda/a)
+TLW=4*theta/10**-2
+theta1=asin(lamda/a)/10**-3
+
+//Result
+mprintf("Total linear width= %.1f cm",TLW)
+mprintf("\nAngular position of the minima= %d*10**-3 radian",theta1)
+
diff --git a/3828/CH2/EX2.5/Ex2_5.sce b/3828/CH2/EX2.5/Ex2_5.sce
new file mode 100644
index 000000000..64f284d63
--- /dev/null
+++ b/3828/CH2/EX2.5/Ex2_5.sce
@@ -0,0 +1,18 @@
+
+//Chapter 2 : Diffraction
+
+clear;
+
+//Variable declaration
+n1=1
+n2=2               
+lamda=6000*10**-8          //wavelength
+N=6000                     //number of lines for diffraction grating
+
+//Calculations
+theta1=((asin(n1*lamda*N))*180/%pi)
+theta2=((asin(n2*lamda*N))*180/%pi)
+
+//Result
+mprintf("Angle between 1st and 2nd order line is %.2f degrees",(theta2-theta1))
+
diff --git a/3828/CH2/EX2.6/Ex2_6.sce b/3828/CH2/EX2.6/Ex2_6.sce
new file mode 100644
index 000000000..2c2ea9e5c
--- /dev/null
+++ b/3828/CH2/EX2.6/Ex2_6.sce
@@ -0,0 +1,16 @@
+//Chapter 2 : Diffraction
+
+clear;
+
+//Variable declaration
+lamda1=5890*10**-8         //waveleght
+lamda2=5896*10**-8         //waveleght
+N=6000                     //number of lines for diffraction grating
+
+//Calculations
+theta1=((asin(2*lamda1*N))*180/%pi)
+theta2=((asin(2*lamda2*N))*180/%pi)
+
+//Result
+mprintf("Angular separation= %.2f degrees",(theta2-theta1))
+
diff --git a/3828/CH2/EX2.7/Ex2_7.sce b/3828/CH2/EX2.7/Ex2_7.sce
new file mode 100644
index 000000000..fc48e35f7
--- /dev/null
+++ b/3828/CH2/EX2.7/Ex2_7.sce
@@ -0,0 +1,16 @@
+
+//Chapter 2 : Diffraction
+
+clear;
+
+//Variable declaration
+lamda=5000*10**-8          //wavelength
+N=4000                     //number of lines for diffraction grating
+n=3                        //third order 
+
+//Calculations
+theta=((asin(n*lamda*N))*180/%pi)
+
+//Result
+mprintf("Dispersive power in third order spectum= %.2f degrees",theta)
+
diff --git a/3828/CH2/EX2.8/Ex2_8.sce b/3828/CH2/EX2.8/Ex2_8.sce
new file mode 100644
index 000000000..f2b383e05
--- /dev/null
+++ b/3828/CH2/EX2.8/Ex2_8.sce
@@ -0,0 +1,15 @@
+//Chapter 2 : Diffraction
+
+clear;
+
+//Variable declaration
+N=5000                     //number of lines for diffraction grating
+n=2                        //second order 
+theta2=(30*%pi/180)    //angle in radians
+
+//Calculations
+lamda=sin(theta2)/(n*N)/10**-5*10**3
+
+//Result
+mprintf("Wavelength lamda= %.0f Armstrong",lamda)
+
diff --git a/3828/CH2/EX2.9/Ex2_9.sce b/3828/CH2/EX2.9/Ex2_9.sce
new file mode 100644
index 000000000..b56457cf5
--- /dev/null
+++ b/3828/CH2/EX2.9/Ex2_9.sce
@@ -0,0 +1,16 @@
+
+//Chapter 2 : Diffraction
+
+clear;
+
+//Variable declaration
+lamda=5893*10**-8         //wavelength
+dlamda=6*10**-8
+n=3                       //third order
+
+//Calculations
+N=lamda/(n*dlamda)
+
+//Result
+mprintf("Number of grating lines= %.1f",N)
+