15 files changed, 228 insertions, 0 deletions
diff --git a/3753/CH1/EX1.1/Ex1_1.sce b/3753/CH1/EX1.1/Ex1_1.sce
new file mode 100644
index 000000000..eca4b2ce6
--- /dev/null
+++ b/3753/CH1/EX1.1/Ex1_1.sce
@@ -0,0 +1,15 @@
+//Example number 1.1, Page number 1.35
+
+clc;clear;close
+
+
+//Variable declaration
+D=1                    //Distance in metre
+lamda=589*10**-9       //nm to metres
+d=2*10**-3             //mm to metre
+
+//Calculation
+Beta=(D*lamda)/d  // in mm
+
+//Result
+printf("The fringe width beta=%0.4f mm",(Beta*10**3))
diff --git a/3753/CH1/EX1.10/Ex1_10.sce b/3753/CH1/EX1.10/Ex1_10.sce
new file mode 100644
index 000000000..53ac2e73e
--- /dev/null
+++ b/3753/CH1/EX1.10/Ex1_10.sce
@@ -0,0 +1,16 @@
+//Example number 1.10, Page number 1.38
+
+clc;clear;close
+
+
+//Variable declaration
+lamda=5893; // in micron
+n=3 // unitless
+d_lamda=6 // in micron
+
+//Calculation
+N=(lamda)/(n*d_lamda)  // number of rulings
+
+//Result
+printf("N = %0.1f",N)
+printf("\nThe number of rulings needed is 328. This is the minimum requirement.")
diff --git a/3753/CH1/EX1.11/Ex1_11.sce b/3753/CH1/EX1.11/Ex1_11.sce
new file mode 100644
index 000000000..261f99c2f
--- /dev/null
+++ b/3753/CH1/EX1.11/Ex1_11.sce
@@ -0,0 +1,14 @@
+//Example number 1.11, Page number 1.38
+
+clc;clear;close
+
+
+//Variable declaration
+lamda=5.5*10**-7  // in m
+d=2.54 // in m
+x=1.22// unitless
+//Calculation
+dtheta=(x*lamda)/d // radian
+
+//Result
+printf("Smallest angular separation of two stars = %0.3e radian",dtheta)
diff --git a/3753/CH1/EX1.12/Ex1_12.sce b/3753/CH1/EX1.12/Ex1_12.sce
new file mode 100644
index 000000000..22d980fe8
--- /dev/null
+++ b/3753/CH1/EX1.12/Ex1_12.sce
@@ -0,0 +1,15 @@
+//Example number 1.12, Page number 1.38
+
+clc;clear;close
+
+
+//Variable declaration
+lamda=6500 // in Angstrom
+theta=30*%pi/180 // radian
+
+//Calculation
+a=lamda/sin(theta) // Angstrom
+
+//Result
+printf("Slit width value, a= %0.f Angstroms",a)
+printf("\nor a = %0.1f micron",(a*10^-4))
diff --git a/3753/CH1/EX1.13/Ex1_13.sce b/3753/CH1/EX1.13/Ex1_13.sce
new file mode 100644
index 000000000..c494fdd33
--- /dev/null
+++ b/3753/CH1/EX1.13/Ex1_13.sce
@@ -0,0 +1,15 @@
+//Example number 1.13, Page number 1.38
+
+clc;clear;close
+
+
+//Variable declaration
+a2=1 // amplitude
+a1=2*a2 // amplitude
+//Calculation
+r=a1/a2 // ratio
+
+//Result
+printf("r=%.f/1",r) //r = r/1 = r:1
+printf("\nHence the ratio of the amplitudes= 2:1")
+
diff --git a/3753/CH1/EX1.14/Ex1_14.sce b/3753/CH1/EX1.14/Ex1_14.sce
new file mode 100644
index 000000000..ecdef4c08
--- /dev/null
+++ b/3753/CH1/EX1.14/Ex1_14.sce
@@ -0,0 +1,14 @@
+//Example number 1.14, Page number 1.39
+
+clc;clear;close
+
+
+//Variable declaration
+theta=5*10**-3/2// unitless
+lamda=5*10**-7 // in m
+
+//Calculation
+a=(lamda)/theta // in m
+
+printf("a=%0.e m",(a))
+printf("\n a=%.1f mm",a*10**3)
diff --git a/3753/CH1/EX1.15/Ex1_15.sce b/3753/CH1/EX1.15/Ex1_15.sce
new file mode 100644
index 000000000..e9ea23ec4
--- /dev/null
+++ b/3753/CH1/EX1.15/Ex1_15.sce
@@ -0,0 +1,17 @@
+//Example number 1.15, Page number 1.39
+
+clc;clear;close
+
+
+//Variable declaration
+N=20// unitless
+lamda=5000*10**-10       //Angstroms to meters
+t=2.5*10**-5 // in m
+
+//Calculation
+mu_1=(N*lamda)/t// unitless
+mu=1+(mu_1)// unitless
+
+//Result
+printf("mu-1=%.1f",mu_1)
+printf("\nRefractive index, mu=%1f",mu)
diff --git a/3753/CH1/EX1.16/Ex1_16.sce b/3753/CH1/EX1.16/Ex1_16.sce
new file mode 100644
index 000000000..fb4f2173f
--- /dev/null
+++ b/3753/CH1/EX1.16/Ex1_16.sce
@@ -0,0 +1,14 @@
+//Example number 1.16, Page number 1.39
+clc;clear;close
+
+
+//Variable declaration
+theta=90*%pi/180    //theta=90 degrees to get maximum number of orders assume
+lamda=5890*10**-10 // in m
+aplusb=2*10**-6       //micro mts to mts 
+
+//Calculation
+n=(aplusb*sin(theta))/lamda // order
+
+//Result
+printf("Maximum number of orders=%d",n)
diff --git a/3753/CH1/EX1.2/Ex1_2.sce b/3753/CH1/EX1.2/Ex1_2.sce
new file mode 100644
index 000000000..c95c6f529
--- /dev/null
+++ b/3753/CH1/EX1.2/Ex1_2.sce
@@ -0,0 +1,14 @@
+//Example number 1.2, Page number 1.35
+clc;clear;close
+
+//Variable declaration
+N=3               //position
+lamda=5450*10**-10      //Wawelength in Armstrong to metre
+mu=1.5  // unitless
+
+//Calculation
+t=(N*lamda)/(mu-1)  // micron
+
+//Result
+printf("Thickness of glass plate=%0.2f micron",(t*10**6))
+
diff --git a/3753/CH1/EX1.3/Ex1_3.sce b/3753/CH1/EX1.3/Ex1_3.sce
new file mode 100644
index 000000000..1849c6cd5
--- /dev/null
+++ b/3753/CH1/EX1.3/Ex1_3.sce
@@ -0,0 +1,17 @@
+//Example number 1.3, Page number 1.36
+
+clc;clear;close
+
+
+//Variable declaration
+w=0.02   // in m   
+n=1
+lamda=6.56*10**-7 // in m
+theta=(18+(14/60))*%pi/180 // in radian
+
+//Calculation
+N=(w*sin(theta))/(n*lamda) // no. of lines
+
+//Result
+printf("Total number of lines n the grating=%d",round(N))
+//Answer varies due to rounding of number"
diff --git a/3753/CH1/EX1.4/Ex1_4.sce b/3753/CH1/EX1.4/Ex1_4.sce
new file mode 100644
index 000000000..32e33a179
--- /dev/null
+++ b/3753/CH1/EX1.4/Ex1_4.sce
@@ -0,0 +1,15 @@
+//Example number 1.4, Page number 1.36
+
+clc;clear;close
+
+
+//Variable declaration
+lamda=5893*10**-10           //Angstroms to mts
+x=4*10**-2 // unitless
+Beta=1*10**-3 // unitless
+
+//Calculation
+t=(lamda*x)/(2*Beta)
+
+//Result
+printf("t=%0.3f micron",(t*10**6))
diff --git a/3753/CH1/EX1.6/Ex1_6.sce b/3753/CH1/EX1.6/Ex1_6.sce
new file mode 100644
index 000000000..a0f84ac4a
--- /dev/null
+++ b/3753/CH1/EX1.6/Ex1_6.sce
@@ -0,0 +1,14 @@
+//Example number 1.6, Page number 1.36
+
+clc;clear;close
+
+
+//Variable declaration
+lamda=5500  // Angstrom
+nf=1.38 //unitless
+
+//Calculation
+t=lamda/(4*nf) // Angstrom
+
+//Result
+printf("The minimum thickness of coating,t=%0.1f Angstrom",t)
diff --git a/3753/CH1/EX1.7/Ex1_7.sce b/3753/CH1/EX1.7/Ex1_7.sce
new file mode 100644
index 000000000..5923188f5
--- /dev/null
+++ b/3753/CH1/EX1.7/Ex1_7.sce
@@ -0,0 +1,16 @@
+//Example number 1.7, Page number 1.37
+
+clc;clear;close
+
+
+//Variable declaration
+Beta=0.00227     //distance between adjascent green lines
+D=2.5           // in m  
+d=0.0006        //distance between narrow slits
+
+//Calculation
+lamda=(Beta*d)/D // in m
+
+//Result
+printf("Wavelength,lamda=%.4e m",(lamda))
+//Answer varies due to rounding of number"
diff --git a/3753/CH1/EX1.8/Ex1_8.sce b/3753/CH1/EX1.8/Ex1_8.sce
new file mode 100644
index 000000000..59f5befe0
--- /dev/null
+++ b/3753/CH1/EX1.8/Ex1_8.sce
@@ -0,0 +1,16 @@
+//Example number 1.8, Page number 1.37
+
+clc;clear;close
+
+
+//Variable declaration
+lamda=5890*10**-10 // in m
+mu=1.5 // unitless
+theta=60*%pi/180     //Converting in to degrees
+
+//Calculation
+
+t=(lamda)/(2*mu*(cos(theta))) // in m
+         
+//Result
+printf("Smallest thickness of plate,t=%0.4e m",t)
diff --git a/3753/CH1/EX1.9/Ex1_9.sce b/3753/CH1/EX1.9/Ex1_9.sce
new file mode 100644
index 000000000..b32535efa
--- /dev/null
+++ b/3753/CH1/EX1.9/Ex1_9.sce
@@ -0,0 +1,16 @@
+//Example number 1.9, Page number 1.37
+
+clc;clear;close
+
+
+//Variable declaration
+R=1// unitless
+n=5// unitless
+lamda=5.895*10**-7 // in m
+dn=0.003 // in m
+
+//Calculation
+mu=(4*R*n*lamda)/(dn**2)
+
+//Result
+printf("Refractive index,mu = %0.2f",mu )