diff options
Diffstat (limited to '3740/CH6')
| -rw-r--r-- | 3740/CH6/EX6.1/Ex6_1.jpg | bin | 0 -> 77122 bytes | |||
| -rw-r--r-- | 3740/CH6/EX6.1/Ex6_1.sce | 28 | ||||
| -rw-r--r-- | 3740/CH6/EX6.2/Ex6_2.jpg | bin | 0 -> 60886 bytes | |||
| -rw-r--r-- | 3740/CH6/EX6.2/Ex6_2.sce | 17 | ||||
| -rw-r--r-- | 3740/CH6/EX6.3/Ex6_3.jpg | bin | 0 -> 140678 bytes | |||
| -rw-r--r-- | 3740/CH6/EX6.3/Ex6_3.sce | 19 | ||||
| -rw-r--r-- | 3740/CH6/EX6.4/Ex6_4.jpg | bin | 0 -> 65127 bytes | |||
| -rw-r--r-- | 3740/CH6/EX6.4/Ex6_4.sce | 19 | ||||
| -rw-r--r-- | 3740/CH6/EX6.5/Ex6_5.jpg | bin | 0 -> 79967 bytes | |||
| -rw-r--r-- | 3740/CH6/EX6.5/Ex6_5.sce | 42 | ||||
| -rw-r--r-- | 3740/CH6/EX6.6/Ex6_6.jpg | bin | 0 -> 61854 bytes | |||
| -rw-r--r-- | 3740/CH6/EX6.6/Ex6_6.sce | 18 | ||||
| -rw-r--r-- | 3740/CH6/EX6.7/Ex6_7.jpg | bin | 0 -> 65800 bytes | |||
| -rw-r--r-- | 3740/CH6/EX6.7/Ex6_7.sce | 23 |
14 files changed, 166 insertions, 0 deletions
diff --git a/3740/CH6/EX6.1/Ex6_1.jpg b/3740/CH6/EX6.1/Ex6_1.jpg Binary files differnew file mode 100644 index 000000000..96efc3bb6 --- /dev/null +++ b/3740/CH6/EX6.1/Ex6_1.jpg diff --git a/3740/CH6/EX6.1/Ex6_1.sce b/3740/CH6/EX6.1/Ex6_1.sce new file mode 100644 index 000000000..68fdbaf3a --- /dev/null +++ b/3740/CH6/EX6.1/Ex6_1.sce @@ -0,0 +1,28 @@ +//Optoelectronics - An Introduction, 2nd Edition by J. Wilson and J.F.B. Hawkes
+//Example 6.1
+//OS=Windows XP sp3
+//Scilab version 5.5.2
+clc;
+clear;
+
+//given
+DeltaNu=1.1e11;//Fluorescent linewidth in Hz
+L=0.1;//Length of the laser rod in m
+c=3e8;//Speed of light in m/s
+
+//Let the mode separation be 'M'
+M=c/(2*L);//Mode separation in Hz
+mprintf("\n Mode separation = %.1e Hz",M);
+
+//Let the number of modes oscillating be 'N'
+N=DeltaNu/M;
+mprintf("\n The number of modes oscillating = %d",N);
+
+//Let the pulse separation in seconds be 't'
+t=2*L/c;
+mprintf("\n Pulse separation = %.1f ns",t/1e-9);//Dividing by 10^(-9) to convert into ns
+
+//Let the pulse duration be 'T'
+T=t/N;
+mprintf("\n Pulse duration = %.1f ps",T/1e-12);//Dividing by 10^(-12) to convert into ps
+//The answers vary due to round off error
diff --git a/3740/CH6/EX6.2/Ex6_2.jpg b/3740/CH6/EX6.2/Ex6_2.jpg Binary files differnew file mode 100644 index 000000000..dc987c56f --- /dev/null +++ b/3740/CH6/EX6.2/Ex6_2.jpg diff --git a/3740/CH6/EX6.2/Ex6_2.sce b/3740/CH6/EX6.2/Ex6_2.sce new file mode 100644 index 000000000..3f176da99 --- /dev/null +++ b/3740/CH6/EX6.2/Ex6_2.sce @@ -0,0 +1,17 @@ +//Optoelectronics - An Introduction, 2nd Edition by J. Wilson and J.F.B. Hawkes
+//Example 6.2
+//OS=Windows XP sp3
+//Scilab version 5.5.2
+clc;
+clear;
+
+//given
+Ni=1e24;//Population Inversion in m^-3
+Nu21=5e14;//Frequency of laser in Hz
+V=1e-5;//Volume in m^3
+h=6.63e-34;//Planck's constant in SI Units
+
+//Assuming Nf<<Ni, we get
+E=(1/2)*h*Nu21*Ni*V;//Total energy emitted in the pulse in J
+mprintf("\n E= %.1f J",E)
+
diff --git a/3740/CH6/EX6.3/Ex6_3.jpg b/3740/CH6/EX6.3/Ex6_3.jpg Binary files differnew file mode 100644 index 000000000..a9ccad4aa --- /dev/null +++ b/3740/CH6/EX6.3/Ex6_3.jpg diff --git a/3740/CH6/EX6.3/Ex6_3.sce b/3740/CH6/EX6.3/Ex6_3.sce new file mode 100644 index 000000000..14b606a8f --- /dev/null +++ b/3740/CH6/EX6.3/Ex6_3.sce @@ -0,0 +1,19 @@ +//Optoelectronics - An Introduction, 2nd Edition by J. Wilson and J.F.B. Hawkes
+//Example 6.3
+//OS=Windows XP sp3
+//Scilab version 5.5.2
+clc;
+clear;
+
+//given
+E=1.7;//Total energy emitted in the pulse in J (From previous example)
+L=0.1;//Cavity length of the laser in m
+R=0.8;//Mirror reflectance of the laser
+c=3e8;//Speed of light in air in m/s
+
+tc=L/((1-R)*c);//Cavity lifetime of the laser in s
+mprintf("\n tc = %.1f ns",tc/1e-9);//Dividing by 10^(-9) to convert in ns
+
+P=E/tc;//Pulse power in W
+mprintf("\n P = %.1e W",P);
+
diff --git a/3740/CH6/EX6.4/Ex6_4.jpg b/3740/CH6/EX6.4/Ex6_4.jpg Binary files differnew file mode 100644 index 000000000..a4d4d2581 --- /dev/null +++ b/3740/CH6/EX6.4/Ex6_4.jpg diff --git a/3740/CH6/EX6.4/Ex6_4.sce b/3740/CH6/EX6.4/Ex6_4.sce new file mode 100644 index 000000000..a401aa301 --- /dev/null +++ b/3740/CH6/EX6.4/Ex6_4.sce @@ -0,0 +1,19 @@ +//Optoelectronics - An Introduction, 2nd Edition by J. Wilson and J.F.B. Hawkes
+//Example 6.4
+//OS=Windows XP sp3
+//Scilab version 5.5.2
+clc;
+clear;
+
+//given
+//Let the focal length ratio of objective lens to eyepiece lens of a telescope be f2/f1 = 'f'
+f=30;
+Lambda=633e-9;//wavelength of the laser beam in m
+D=3e-3;//Diameter of the plasma tube in m
+
+Theta1=Lambda/D;//Divergence of the beam in radians
+mprintf("\n Theta1 = %.1e rad",Theta1);
+
+Theta2=Theta1/f;//Divergence of the beam after collimation in radians
+mprintf("\n Theta2 = %.1e rad",Theta2);
+
diff --git a/3740/CH6/EX6.5/Ex6_5.jpg b/3740/CH6/EX6.5/Ex6_5.jpg Binary files differnew file mode 100644 index 000000000..597c57743 --- /dev/null +++ b/3740/CH6/EX6.5/Ex6_5.jpg diff --git a/3740/CH6/EX6.5/Ex6_5.sce b/3740/CH6/EX6.5/Ex6_5.sce new file mode 100644 index 000000000..6bbc2874f --- /dev/null +++ b/3740/CH6/EX6.5/Ex6_5.sce @@ -0,0 +1,42 @@ +//Optoelectronics - An Introduction, 2nd Edition by J. Wilson and J.F.B. Hawkes
+//Example 6.5
+//OS=Windows XP sp3
+//Scilab version 5.5.2
+clc;
+clear;
+
+//given - Case(i)
+Lambda=589e-6;//wavelength of the sodium lamp in m
+DeltaNu=5.1e11;//Linewidth of the sodium D lines in Hz
+c=3e8;//Speed of light in air in m/s
+
+mprintf("\n For Sodium Lamp:");
+tc=1/DeltaNu;//Coherence time in s
+mprintf("\n tc = %.1e s",tc);
+
+Lc=tc*c;//length of emitted wave in m
+mprintf("\n Lc = %.1f mm\n",Lc/1e-3);//Division by 10^(-3) to convert into mm
+
+
+//given - Case(ii)
+DeltaNu=1500e6;//Linewidth of He-Ne laser in Hz
+c=3e8;//Speed of light in air in m/s
+
+mprintf("\n For He-Ne Laser with many operating modes:");
+tc=1/DeltaNu;//Coherence time in s
+mprintf("\n tc = %.1e s",tc);
+
+Lc=tc*c;//length of emitted wave in m
+mprintf("\n Lc = %.1f m\n",Lc);
+
+
+//given - Case(iii)
+DeltaNu=1e6;//Linewidth of He-Ne laser in Hz
+c=3e8;//Speed of light in air in m/s
+
+mprintf("\n For He-Ne Laser with single operating mode:");
+tc=1/DeltaNu;//Coherence time in s
+mprintf("\n tc = %.1e s",tc);
+
+Lc=tc*c;//length of emitted wave in m
+mprintf("\n Lc = %.1f m\n",Lc);
diff --git a/3740/CH6/EX6.6/Ex6_6.jpg b/3740/CH6/EX6.6/Ex6_6.jpg Binary files differnew file mode 100644 index 000000000..bbf25e0c9 --- /dev/null +++ b/3740/CH6/EX6.6/Ex6_6.jpg diff --git a/3740/CH6/EX6.6/Ex6_6.sce b/3740/CH6/EX6.6/Ex6_6.sce new file mode 100644 index 000000000..b3318dee0 --- /dev/null +++ b/3740/CH6/EX6.6/Ex6_6.sce @@ -0,0 +1,18 @@ +//Optoelectronics - An Introduction, 2nd Edition by J. Wilson and J.F.B. Hawkes
+//Example 6.6
+//OS=Windows XP sp3
+//Scilab version 5.5.2
+clc;
+clear;
+
+//given
+Lambda=632.8e-9;//Wavelength of the laser in m
+F=1;//Focal ratio of the lens
+Prad=10e-3;//Power radiated by the laser in W
+
+rs=2*Lambda*F/%pi;//Radius of the focused spot in m
+mprintf("\n rs = %.1e m",rs);
+
+//Let the power per unit area in W m^-2 be P
+P=Prad/(%pi*(rs)^2);
+mprintf("\n P = %.1e W m^-2",P);
diff --git a/3740/CH6/EX6.7/Ex6_7.jpg b/3740/CH6/EX6.7/Ex6_7.jpg Binary files differnew file mode 100644 index 000000000..13a6e6c8f --- /dev/null +++ b/3740/CH6/EX6.7/Ex6_7.jpg diff --git a/3740/CH6/EX6.7/Ex6_7.sce b/3740/CH6/EX6.7/Ex6_7.sce new file mode 100644 index 000000000..f8f1383aa --- /dev/null +++ b/3740/CH6/EX6.7/Ex6_7.sce @@ -0,0 +1,23 @@ +//Optoelectronics - An Introduction, 2nd Edition by J. Wilson and J.F.B. Hawkes
+//Example 6.7
+//OS=Windows XP sp3
+//Scilab version 5.5.2
+clc;
+clear;
+
+//given
+Lambda=10.6e-6;//Wavelength of the laser in m
+f=200e-3;//Focal length of the lens in m
+D=50e-3;//Diameter of aperture of focusing lens
+
+rs=2*Lambda*f/(%pi*D);//Radius of the focused spot in m
+mprintf("\n rs = %.1f um",rs/1e-6);//Dividing by 10^(-6) to convert to um
+//The answers vary due to round off error
+
+//Let the ratio w(z)/w0 be w
+w=1.1;
+w0=rs;//Also given
+
+z=%pi*w0^2/Lambda*sqrt((w^2)-1);//Depth of focus in m
+mprintf("\n z = %.2f mm",z/1e-3);//Dividing by 10^(-3) to convert to mm
+//The answers vary due to round off error
|
