Diploma thesis
Diploma thesis
Diploma thesis
Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
��this packages imports the sellmeier equations calculated with matlab��<br />
BeginPackage�"enhancedSellmeier‘",�"myUnits‘","myAssert‘","Notation‘","Units‘"��<br />
noe::usage�"enhanced Sellmeier equation for PPLN."<br />
nee::usage�"enhanced Sellmeier equation for PPLN."<br />
nxe::usage�"enhanced Sellmeier equation for KTP."<br />
nye::usage�"enhanced Sellmeier equation for KTP."<br />
nze::usage�"enhanced Sellmeier equation for KTP."<br />
nxe2::usage�"enhanced Sellmeier equation for KTP."<br />
nye2::usage�"enhanced Sellmeier equation for KTP."<br />
nze2::usage�"enhanced Sellmeier equation for KTP."<br />
��this is a list of all variables appearing in the package<br />
variables with attribute "notSet" have to be declared,<br />
while variables with default values can be neglected<br />
The notSet is used in the If�� statements��<br />
Options�defaults���tempScale��Units‘Celsius,Temperature��25,<br />
��"notSet",��"notSet",sellmeier��"notSet",<br />
np��"notSet",ns��"notSet",ni��"notSet",<br />
Λp��"notSet",Λs��"notSet",Λi��"notSet",<br />
Ωp��"notSet",Ωs��"notSet",Ωi��"notSet",<br />
Λpsigma��"notSet",Ωpsigma��"notSet",Λpfwhm��"notSet",Ωpfwhm��"notSet",<br />
���Infinity Meter,ssig���1,isig���1,<br />
wglength��5 Milli Meter,wgwidth��4 Micro Meter,<br />
Ωsrange��"notSet",Ωirange��"notSet",Λsrange��"notSet",Λirange��"notSet",<br />
Ωsroot��"notSet",<br />
Ωsmin��"notSet",Ωsmax��"notSet",Ωimin��"notSet",Ωimax��"notSet",<br />
Λsmin��"notSet",Λsmax��"notSet",Λimin��"notSet",Λimax��"notSet",<br />
optfoo��"notSet",optbar��"notSet",<br />
modesu��0,modesv��0,airBoundary��"",dn��"notSet",wgheight��"notSet"<br />
�;<br />
Begin�"‘Private‘"�<br />
��Assignment of the variables for use in the modules��<br />
getOpt�name�,opts���,func��:�Module���,Return�name�.�opts��.Options�func���;<br />
��refractive index of the o�polarized ray in ppln��<br />
noe�opts����:�noe�opts��Module��optn,optΛ,optΩ, optwgwidth, optwgheight, optdn, optairBoundary<br />
optstring, optdirectory, optpath, optcoefficient, optstringdn,optdnmantissa,optdnexponent<br />
opta, optb, optc, optd,opte,optf, optg�,<br />
optΛ�getOpt�Λ,opts,defaults�;<br />
optΩ�getOpt�Ω,opts,defaults�;<br />
iassert�Not��opt��"notSet"�&&�opt��"notSet"���;<br />
If�optΛ��"notSet",optΛ:�Λ�optΩ�,""�;<br />
optΛ � replaceSiPrefixes�optΛ��Micro Meter��;<br />
iassert�opt��0�;<br />
iassert�optΛ Ε Reals�;<br />
optwgwidth�getOpt�wgwidth,opts,defaults�;<br />
iassert�optwgwidth��0�;<br />
iassert�optwgwidth Ε Reals�;<br />
��Print�"optwgwidth: ",optwgwidth�;��<br />
;