diff options
Diffstat (limited to '3740/CH3')
-rw-r--r-- | 3740/CH3/EX3.1/Ex3_1.jpg | bin | 0 -> 145207 bytes | |||
-rw-r--r-- | 3740/CH3/EX3.1/Ex3_1.sce | 16 | ||||
-rw-r--r-- | 3740/CH3/EX3.2/Ex3_2.jpg | bin | 0 -> 132975 bytes | |||
-rw-r--r-- | 3740/CH3/EX3.2/Ex3_2.sce | 14 | ||||
-rw-r--r-- | 3740/CH3/EX3.3/Ex3_3.jpg | bin | 0 -> 75764 bytes | |||
-rw-r--r-- | 3740/CH3/EX3.3/Ex3_3.sce | 21 | ||||
-rw-r--r-- | 3740/CH3/EX3.4/Ex3_4.jpg | bin | 0 -> 75737 bytes | |||
-rw-r--r-- | 3740/CH3/EX3.4/Ex3_4.sce | 24 | ||||
-rw-r--r-- | 3740/CH3/EX3.5/Ex3_5.jpg | bin | 0 -> 63530 bytes | |||
-rw-r--r-- | 3740/CH3/EX3.5/Ex3_5.sce | 15 | ||||
-rw-r--r-- | 3740/CH3/EX3.6/Ex3_6.jpg | bin | 0 -> 57844 bytes | |||
-rw-r--r-- | 3740/CH3/EX3.6/Ex3_6.sce | 15 |
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 Binary files differnew file mode 100644 index 000000000..18da4e2f7 --- /dev/null +++ b/3740/CH3/EX3.1/Ex3_1.jpg 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 Binary files differnew file mode 100644 index 000000000..ac46e2224 --- /dev/null +++ b/3740/CH3/EX3.2/Ex3_2.jpg 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 Binary files differnew file mode 100644 index 000000000..0c1bc59a8 --- /dev/null +++ b/3740/CH3/EX3.3/Ex3_3.jpg 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 Binary files differnew file mode 100644 index 000000000..730639cda --- /dev/null +++ b/3740/CH3/EX3.4/Ex3_4.jpg 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 Binary files differnew file mode 100644 index 000000000..ec7d7f91b --- /dev/null +++ b/3740/CH3/EX3.5/Ex3_5.jpg 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 Binary files differnew file mode 100644 index 000000000..c8df5f5a3 --- /dev/null +++ b/3740/CH3/EX3.6/Ex3_6.jpg 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
+
|