10.02.2013 Views

Diploma thesis

Diploma thesis

Diploma thesis

SHOW MORE
SHOW LESS

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 />

;

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!