summaryrefslogtreecommitdiff
path: root/3740/CH3
diff options
context:
space:
mode:
Diffstat (limited to '3740/CH3')
-rw-r--r--3740/CH3/EX3.1/Ex3_1.jpgbin0 -> 145207 bytes
-rw-r--r--3740/CH3/EX3.1/Ex3_1.sce16
-rw-r--r--3740/CH3/EX3.2/Ex3_2.jpgbin0 -> 132975 bytes
-rw-r--r--3740/CH3/EX3.2/Ex3_2.sce14
-rw-r--r--3740/CH3/EX3.3/Ex3_3.jpgbin0 -> 75764 bytes
-rw-r--r--3740/CH3/EX3.3/Ex3_3.sce21
-rw-r--r--3740/CH3/EX3.4/Ex3_4.jpgbin0 -> 75737 bytes
-rw-r--r--3740/CH3/EX3.4/Ex3_4.sce24
-rw-r--r--3740/CH3/EX3.5/Ex3_5.jpgbin0 -> 63530 bytes
-rw-r--r--3740/CH3/EX3.5/Ex3_5.sce15
-rw-r--r--3740/CH3/EX3.6/Ex3_6.jpgbin0 -> 57844 bytes
-rw-r--r--3740/CH3/EX3.6/Ex3_6.sce15
12 files changed, 105 insertions, 0 deletions
diff --git a/3740/CH3/EX3.1/Ex3_1.jpg b/3740/CH3/EX3.1/Ex3_1.jpg
new file mode 100644
index 000000000..18da4e2f7
--- /dev/null
+++ b/3740/CH3/EX3.1/Ex3_1.jpg
Binary files differ
diff --git a/3740/CH3/EX3.1/Ex3_1.sce b/3740/CH3/EX3.1/Ex3_1.sce
new file mode 100644
index 000000000..4cdb6c872
--- /dev/null
+++ b/3740/CH3/EX3.1/Ex3_1.sce
@@ -0,0 +1,16 @@
+//Optoelectronics - An Introduction, 2nd Edition by J. Wilson and J.F.B. Hawkes
+//Example 3.1
+//OS=Windows XP sp3
+//Scilab version 5.5.2
+clc;
+clear;
+
+//given
+w=10e-3;//Width of the KD*P crystal in m
+r=26.4e-12;//Linear electro-optic coefficient of the crystal in m/V
+n0=1.51;//refractive index of the crystal
+E=4000;//Applied voltage in V
+
+//Let the change in refractive index be Deltan = |n-n0|
+Deltan=(1/2)*r*E*(n0^3)/w;//Dimensionless change in refractive index of the crystal
+mprintf("The change in refractive index of the crystal = %.1e",Deltan);
diff --git a/3740/CH3/EX3.2/Ex3_2.jpg b/3740/CH3/EX3.2/Ex3_2.jpg
new file mode 100644
index 000000000..ac46e2224
--- /dev/null
+++ b/3740/CH3/EX3.2/Ex3_2.jpg
Binary files differ
diff --git a/3740/CH3/EX3.2/Ex3_2.sce b/3740/CH3/EX3.2/Ex3_2.sce
new file mode 100644
index 000000000..bb04a6da2
--- /dev/null
+++ b/3740/CH3/EX3.2/Ex3_2.sce
@@ -0,0 +1,14 @@
+//Optoelectronics - An Introduction, 2nd Edition by J. Wilson and J.F.B. Hawkes
+//Example 3.2
+//OS=Windows XP sp3
+//Scilab version 5.5.2
+clc;
+clear;
+
+//given
+lambda=1.06e-6;//Wavelength at which half-wave voltage is to be calculated, in m
+r=10.6e-12;//Linear electro-optic coefficient of KDP crystal in m/V
+n0=1.51;//refractive index of the crystal
+
+Vpi=lambda/(2*r*(n0^3));//Half-wave voltage for the crystal in V
+mprintf("The half-wave voltage of the crystal = %.1f kV",Vpi/1e3);//Division by 10^3 to convert into kV
diff --git a/3740/CH3/EX3.3/Ex3_3.jpg b/3740/CH3/EX3.3/Ex3_3.jpg
new file mode 100644
index 000000000..0c1bc59a8
--- /dev/null
+++ b/3740/CH3/EX3.3/Ex3_3.jpg
Binary files differ
diff --git a/3740/CH3/EX3.3/Ex3_3.sce b/3740/CH3/EX3.3/Ex3_3.sce
new file mode 100644
index 000000000..0eeb09b56
--- /dev/null
+++ b/3740/CH3/EX3.3/Ex3_3.sce
@@ -0,0 +1,21 @@
+//Optoelectronics - An Introduction, 2nd Edition by J. Wilson and J.F.B. Hawkes
+//Example 3.3
+//OS=Windows XP sp3
+//Scilab version 5.5.2
+clc;
+clear;
+
+//given
+Phi=%pi/30;//Given phase retardation
+Deltaf=1e9;//Frequency bandwidth in Hz
+D=25e-3;//Diameter of the circular aperture of a KD*P Pockels cell in m
+L=30e-3;//Length of the cell in m
+lambda=633e-9;//Wavelength in m
+Epsilon0=8.85e-12;//Permittivity of free space in SI Units
+Epsilonr=50;//Dimensionless Relative permittivty of the crystal
+r=26.4e-12;//Linear electro-optic coefficient of KD*P crystal in m/V
+n0=1.51;//refractive index of the crystal
+
+A=%pi*((D/2)^2);//Cross-sectional area of the crystal in m^2
+P=(Phi^2)*(lambda^2)*A*Epsilon0*Epsilonr*Deltaf/(4*%pi*(r^2)*(n0^6)*L);//Power required for the desired phase retardation in W
+mprintf("P = %.1f W",P);
diff --git a/3740/CH3/EX3.4/Ex3_4.jpg b/3740/CH3/EX3.4/Ex3_4.jpg
new file mode 100644
index 000000000..730639cda
--- /dev/null
+++ b/3740/CH3/EX3.4/Ex3_4.jpg
Binary files differ
diff --git a/3740/CH3/EX3.4/Ex3_4.sce b/3740/CH3/EX3.4/Ex3_4.sce
new file mode 100644
index 000000000..7c23668e0
--- /dev/null
+++ b/3740/CH3/EX3.4/Ex3_4.sce
@@ -0,0 +1,24 @@
+//Optoelectronics - An Introduction, 2nd Edition by J. Wilson and J.F.B. Hawkes
+//Example 3.4
+//OS=Windows XP sp3
+//Scilab version 5.5.2
+clc;
+clear;
+
+//given
+lambda=633e-9;//Wavelength in m
+Deltaf=5e6;//Frequency bandwidth in Hz
+L=50e-3;//Length of the modulator in m
+eta=0.7;//diffraction efficiency
+lambdaa=4.3e-5;//Acoustic wavelength in m
+va=3500;//Acoustic velocity in m/s
+
+ThetaB=asind(lambda/(2*lambdaa));//Angle of diffraction in degrees
+mprintf("ThetaB = %.2f degrees",ThetaB);
+
+//As eta=(sin(Phi/2))^2, Rearranging the terms we get:
+Phi=2*asind(sqrt(eta));
+mprintf("\n Phi = %.1f degrees",Phi);
+
+B=va/Deltaf;//Maximum optical beamwidth in m
+mprintf("\n B = %.1f mm",B/1e-3);//Division by 10^(-3) to convert into mm
diff --git a/3740/CH3/EX3.5/Ex3_5.jpg b/3740/CH3/EX3.5/Ex3_5.jpg
new file mode 100644
index 000000000..ec7d7f91b
--- /dev/null
+++ b/3740/CH3/EX3.5/Ex3_5.jpg
Binary files differ
diff --git a/3740/CH3/EX3.5/Ex3_5.sce b/3740/CH3/EX3.5/Ex3_5.sce
new file mode 100644
index 000000000..3e942f6bf
--- /dev/null
+++ b/3740/CH3/EX3.5/Ex3_5.sce
@@ -0,0 +1,15 @@
+//Optoelectronics - An Introduction, 2nd Edition by J. Wilson and J.F.B. Hawkes
+//Example 3.5
+//OS=Windows XP sp3
+//Scilab version 5.5.2
+clc;
+clear;
+
+//given appropriate refractive indices for ADP :-
+n0w=1.4943;
+new=1.4603;
+n02w=1.5132;
+ne2w=1.4712;
+
+Thetam=asind(sqrt((n0w^(-2)-n02w^(-2))/(ne2w^(-2)-n02w^(-2))));//Phase matching angle for the ADP
+mprintf("Thetam = %d degrees", Thetam);//The answer provided in the textbook is wrong
diff --git a/3740/CH3/EX3.6/Ex3_6.jpg b/3740/CH3/EX3.6/Ex3_6.jpg
new file mode 100644
index 000000000..c8df5f5a3
--- /dev/null
+++ b/3740/CH3/EX3.6/Ex3_6.jpg
Binary files differ
diff --git a/3740/CH3/EX3.6/Ex3_6.sce b/3740/CH3/EX3.6/Ex3_6.sce
new file mode 100644
index 000000000..ae6adf851
--- /dev/null
+++ b/3740/CH3/EX3.6/Ex3_6.sce
@@ -0,0 +1,15 @@
+//Optoelectronics - An Introduction, 2nd Edition by J. Wilson and J.F.B. Hawkes
+//Example 3.5
+//OS=Windows XP sp3
+//Scilab version 5.5.2
+clc;
+clear;
+
+//given
+nOmega=1.5019;//refractive index corresponding to the ray of frequency Omega
+n2Omega=1.4802;//refractive index corresponding to the ray of frequency 2*Omega
+Lambda0=0.8e-6;//vacuum wavelength at the fundamental frequency in m
+
+lc=Lambda0/(4*(nOmega-n2Omega));//Coherence length in m
+mprintf("\n lc = %.1e m",lc);//The answers vary due to round off error
+