Diploma thesis

optnp�getOpt�np,opts,defaults�;
optns�getOpt�ns,opts,defaults�;
optni�getOpt�ni,opts,defaults�;
iassert�optnp �� no �� optnp �� ne �� optnp �� nx �� optnp �� ny �� optnp �� nz �� optnp �� noe
iassert�optns �� no �� optns �� ne �� optns �� nx �� optns �� ny �� optns �� nz �� optns �� noe
iassert�optni �� no �� optni �� ne �� optni �� nx �� optni �� ny �� optni �� nz �� optni �� noe
optΛs�getOpt�Λs,opts,defaults�;
optΛi�getOpt�Λi,opts,defaults�;
optΩs�getOpt�Ωs,opts,defaults�;
optΩi�getOpt�Ωi,opts,defaults�;
If�optΩs �� "notSet", optΩs:�Ω�optΛs�;,""�;
If�optΩi �� "notSet", optΩi:�Ω�optΛi�;,""�;
iassert�optΩs Ε Reals�;
iassert�optΩs � 0�;
iassert�optΩi Ε Reals�;
iassert�optΩi � 0�;
optΩp � optΩs � optΩi;
optdk :� �kwg�sellmeier�� optnp,Ω�� optΩp,Temperature�� optTemperature, tempScale�� opttempScale
wgheight�� optwgheight, airBoundary�� optairBoundary, modesu �� optmodesup, modesv
� optssig kwg�sellmeier�� optns,Ω�� optΩs,Temperature�� optTemperature, tempScale
wgheight�� optwgheight, airBoundary�� optairBoundary, modesu �� optmodesus, modesv
� optisig kwg�sellmeier�� optni,Ω�� optΩi,Temperature�� optTemperature, tempScale
wgheight�� optwgheight, airBoundary�� optairBoundary, modesu �� optmodesui, modesv
�2��optpmorder�opt��optkerror;
iassert�optdk Ε Reals�;
Return�Simplify�replaceSiPrefixes�optdk���;
�
��Calculation of the grating��
��opts����:���opts��Module��opt��,
opt�:� 2��dk�opts,���Infinity��;
iassert�opt� Ε Reals�;
Return�Simplify�replaceSiPrefixes�opt����;
�
��phasematching function��
Φgauss�opts����:�Φgauss�opts��Module��optΦgauss,optwglength�,
optwglength�getOpt�wglength,opts,defaults�;
iassert�optwglength �� 0�;
iassert�optwglength Ε Reals�;
optΦgauss :� �^��0.193 �0.5 optwglength dk�opts��^2�;
iassert�optΦgauss �� 0�;
iassert�optΦgauss Ε Reals�;
Return�Simplify�replaceSiPrefixes�optΦgauss���;
�
pdc.m 9