The Nonlinear Coupler - fitting the data
Author
Charlie ironside
Title
The Nonlinear Coupler - fitting the data
Description
Fits the data on the switching characteristic of an all optical switch the nonlinear coupler
Category
Books & Supplements
Keywords
Semiconductor, optics, integrated optics, all optical switching
URL
http://www.notebookarchive.org/2019-02-2rnonij/
DOI
https://notebookarchive.org/2019-02-2rnonij
Date Added
2019-02-06
Date Last Modified
2019-02-06
File Size
275.75 kilobytes
Supplements
Rights
CC BY 4.0
Download
Open in Wolfram Cloud
The Nonlinear Coupler - fitting the dataProf. Charlie IronsideDepartment of Physics and AstronomyCurtin University Bentley Campus,Western Australia 6102email: Charlie.Ironside@curtin.edu.auweb page address:http://oasisapps.curtin.edu.au/staff/profile/view/Charlie.IronsideIncluded in the book : “Semiconductor Integrated Optics for Switching Light” by Charlie Ironside This note book is based on :-S. M. Jensen, “THE NON-LINEAR COHERENT COUPLER,” IEEE Journal of Quantum Electronics, vol. 18, pp. 1580-1583, 1982.http://dx.doi.org/10.1109/jqe.1982.1071438J. S. Aitchison, A. H. Kean, C. N. Ironside, A. Villeneuve, and G. I. Stegeman, “Ultrafast All-Optical Switching in Al0.18ga0.82as Directional Coupler in 1.55 Mu-M Spectral Region,” Electronics Letters, vol. 27, pp. 1709-1710, Sep 12 1991 http://dx.doi.org/10.1049/el:19911064A. Villeneuve, K. Alhemyari, J. U. Kang, C. N. Ironside, J. S. Aitchison, and G. I. Stegeman, “Demonstration of All-Optical Demultiplexing at 1555nm with an AlGaAs Directional Coupler,” Electronics Letters, vol. 29, pp. 721-722, Apr 15 1993 http://dx.doi.org/10.1049/el:19930482
We are trying to model this result
(*DefineDesignofNonlinearCoherentcoupler*)ClearAll[Iin]Lz:=6.25×;(*InputTransferLength,m*)Lc:=Lz/0.7;λ=1.6×;(*Wavelength,m*)n2:=1.6×;(*nonlinearrefractiveindex,*)Ic:=m:=Ibarr=(1+JacobiCN[πLz/Lc,m])/2;Icross=1-Ibarr;IinStart:=5.0×IinFinish:=20.0×ModelPlot=Plot[{Ibarr,Icross},{Iin,IinStart,IinFinish},PlotRange{{IinStart,IinFinish*1.1},{0,1}},Frame->True,PlotLabel"Nonlinear Directional Coupler",AxesStyleThin,GridLinesAutomatic,PlotStyle{Directive[Thick,Blue],Directive[Thick,Red]},PlotLegendsPlaced[{"Barr","Cross"},{0.5,0.8}],LabelStyle{FontFamily"Times New Roman",24,GrayLevel[0]},FrameLabel{"Input Intensity W/","Normalised Output Fraction"},FrameStyleThick]
-3
10
-6
10
-14
10
2
cm
-1
W
λ
Lc*n2
Iin
Ic
8
10
9
10
2
cm
Scaled1:=5.3;(*Inthepapertheoutputpowerisgivenhereweuseascalingfactortoestimatetheinputpower-takesaccountofcouplinglossandscattering*)DataBarr={{Scaled1*1.3×,0.27},{Scaled1*5×,0.29},{Scaled1*6.5×,0.30},{Scaled1*1.0×,0.35},{Scaled1*1.2×,0.39},{Scaled1*1.5×,0.45},{Scaled1*1.6×,0.5}};DataCross={{Scaled1*1.3×,1-0.27},{Scaled1*5×,1-0.29},{Scaled1*6.5×,1-0.30},{Scaled1*1.0×,1-0.35},{Scaled1*1.2×,1-0.39},{Scaled1*1.5×,1-0.45},{Scaled1*1.6×,1-0.5}};DataBarrCrossPlot=ListPlot[{DataBarr,DataCross},PlotRange{{IinStart,IinFinish*1.1},{0,1}},PlotStyle{Directive[Thick,Blue],Directive[Thick,Red]}]
8
10
8
10
8
10
9
10
9
10
9
10
9
10
8
10
8
10
8
10
9
10
9
10
9
10
9
10
Show[{ModelPlot,DataBarrCrossPlot},PlotRange{{IinStart,IinFinish*1.1},{0,1}}]
Cite this as: Charlie ironside, "The Nonlinear Coupler - fitting the data" from the Notebook Archive (2019), https://notebookarchive.org/2019-02-2rnonij
Download
