7 files changed, 141 insertions, 0 deletions
diff --git a/3710/CH6/EX6.1/Ex6_1.sce b/3710/CH6/EX6.1/Ex6_1.sce
new file mode 100644
index 000000000..9ce99c8a6
--- /dev/null
+++ b/3710/CH6/EX6.1/Ex6_1.sce
@@ -0,0 +1,17 @@
+//Example 6.1, Page Number 252
+//Mode locked Pulses
+clc;
+lw=1.1*(10**11) //Fluorescent Linewidth in Hertz
+l=0.1 //length of laser rod in meter
+n=1.8 //Refractive Index
+c=3*(10**8) //Speed of light in meters per second
+
+ms=c/(2*l*n) //ms is the mode seperation in hertz
+ps=1/ms //ps is the Pulse seperation in seconds
+Nm=lw/ms //Nm is the Number of modes oscillating
+pd=(1/Nm)*ps //pd is the pulse duration
+
+disp(ms,"The Mode Seperation in Hz is:")
+disp(Nm,"The Number of Modes Oscillating is:")
+disp(ps,"The Pulse Seperation in s is:")
+disp(pd,"The Pulse Duration in s is:")
diff --git a/3710/CH6/EX6.2/Ex6_2.sce b/3710/CH6/EX6.2/Ex6_2.sce
new file mode 100644
index 000000000..01342aa4d
--- /dev/null
+++ b/3710/CH6/EX6.2/Ex6_2.sce
@@ -0,0 +1,17 @@
+//Example 6.2, Page Number 256
+//The Function fpround(dependency) is used to round a floating point number x to n decimal places
+//Energyof Q Switched Pulses
+clc;
+
+//In a typical Laser
+N1=10**24 //per meter cube
+f=5*(10**14) //Frequency in hertz
+v=(10**-5) //Volume in per meter cube
+h=6.63*(10**-34) //Plancks Constant in meter square kilogram per second
+
+//Assuming Nf<<<Ni
+
+E=0.5*(h*v*N1*f) //Where E is the Energy of the pulses
+E=fpround(E,1)
+
+mprintf("The Energy of the Pulse is %.1f J",E)
diff --git a/3710/CH6/EX6.3/Ex6_3.sce b/3710/CH6/EX6.3/Ex6_3.sce
new file mode 100644
index 000000000..6f4ea9a27
--- /dev/null
+++ b/3710/CH6/EX6.3/Ex6_3.sce
@@ -0,0 +1,16 @@
+//Example 6.3, Page Number 256
+//Power in Q-switched pulses 
+clc;
+
+//Using the Energy of the pulses from the previous example(Ex6.2)
+E=1.657 //Energy of the pulses in Joules
+l=0.1 //Cavity length in meter
+r=0.8 //Mirror reflectance
+c=3*(10**8) //Speed of light in meters per second
+
+tc=l/((1-r)*c) //tc is the cavity lifetime
+
+P=E/tc //P is the pulse power
+
+disp(tc,"The Cavity Lifetime in s is:")
+disp(P," The Pulse Power in W is:")
diff --git a/3710/CH6/EX6.4/Ex6_4.sce b/3710/CH6/EX6.4/Ex6_4.sce
new file mode 100644
index 000000000..85d177b99
--- /dev/null
+++ b/3710/CH6/EX6.4/Ex6_4.sce
@@ -0,0 +1,14 @@
+//Example 6.4, Page Number 260
+//Beam collimation
+clc;
+
+//Considering a He-Ne Laser
+d=3*(10**-3) //Diameter in meter
+l=633*(10**-9) //Wavelength of the laser in meter
+
+theta=l/d //theta is the divergence of the beam
+mprintf("The Divergence of the Beam is %.1e rad\n",theta)
+
+//After Collimation
+theta=theta/30 //Reduced by a factor of 30
+mprintf(" After Collimation,The angle of divergence is reduced to %.0e rad",theta)
diff --git a/3710/CH6/EX6.5/Ex6_5.sce b/3710/CH6/EX6.5/Ex6_5.sce
new file mode 100644
index 000000000..54169594c
--- /dev/null
+++ b/3710/CH6/EX6.5/Ex6_5.sce
@@ -0,0 +1,38 @@
+//Example 6.5, Page Number 263
+//The Function fpround(dependency) is used to round a floating point number x to n decimal places
+//Coherent lengths of conventional and laser radiation sources
+clc;
+
+//Assuming all lights are emitted from a low pressure Sodium Lamp
+
+l=589*(10**-9) //Wavelength in meter
+lw=5.1*(10**11) //Linewidth in Hertz
+c=3*(10**8) //Speed of light in meters per second
+
+//From equation 6.9
+tc=1/lw //tc is the cavity lifetime in s
+
+//From Equation 6.8
+Lc=tc*c //Lc is the length of the Wave Train in metres
+Lc=fpround(Lc,4)
+
+disp(tc,"The Cavity lifetime in s:")
+disp(Lc," The Length of the Wave Train or the Coherence Length in m is:")
+
+//If Many modes are operating 
+lw=1500*(10**6)//in Hz
+tc=1/lw//tc is the cavity lifetime in s
+Lc=tc*c
+Lc=fpround(Lc,4)//Lc is the length of the Wave Train in metres
+
+disp(tc,"The Cavity lifetime in s:")
+disp(Lc," The Length of the Wave Train or the Coherence Length in m is:")
+
+//If There is only one mode
+lw=1*(10**6)//in Hz 
+tc=1/lw//tc is the cavity lifetime in s
+Lc=tc*c
+Lc=fpround(Lc,4)//Lc is the length of the Wave Train in metres
+
+disp(tc,"The Cavity lifetime in s:")
+disp(Lc," The Length of the Wave Train or the Coherence Length in m is:")
diff --git a/3710/CH6/EX6.6/Ex6_6.sce b/3710/CH6/EX6.6/Ex6_6.sce
new file mode 100644
index 000000000..38b3ccdec
--- /dev/null
+++ b/3710/CH6/EX6.6/Ex6_6.sce
@@ -0,0 +1,15 @@
+//Example 6.6, Page Number 266
+//Focused Power Density
+clc;
+
+P=10*(10**-3) //Power of the He-Ne Laser in W
+F=1 //F Number
+l=633*(10**-9) //Wavelength of the laser in m
+
+//From equation 6.10a
+rs=(2/%pi)*l*F //rs is the radius of the focused spot in m
+
+P1=(P*%pi)/((2*l)**2) //P1 is the Power per unit area in Watt per meter square
+
+mprintf("The Radius of the Focused Spot is %.2e m\n",rs)
+mprintf("The Power Per unit Area is:%.2e Watt per meter square",P1)
diff --git a/3710/CH6/EX6.7/Ex6_7.sce b/3710/CH6/EX6.7/Ex6_7.sce
new file mode 100644
index 000000000..96212b032
--- /dev/null
+++ b/3710/CH6/EX6.7/Ex6_7.sce
@@ -0,0 +1,24 @@
+//Example 6.7, Page Number 266
+//Depth of Focus
+//clc;
+
+//For A Carbon Dioxide Laser Beam 
+l=10.6*(10**-6) //Wavelength in meter
+d=50/2*(10**-3) //radius in meter
+fl=200*(10**-3) //Focal Length in meter
+
+//Using Equation 6.10
+rs=(l*fl)/(%pi*(d)) //rs is the radius of the focused spot
+
+//Suppose that spot size can be tolerated by 10 percent
+w=1.1
+w1=1
+
+fd=((%pi*(rs**2))*sqrt((w**2)-(w1**2)))/l //fd is the depth of focus
+fd=fd*(10**3)
+rs=rs*(10**6)
+rs=ceil(rs)
+mprintf("The Radius of the Focussed spot is %d um\n",rs)
+mprintf(" The Depth of the Focus is %.2f mm",fd)
+
+//The answers provided in the textbook are wrong