Diploma thesis

10 pdc.m
��phasematching function��
Φsinc�opts����:�Φsinc�opts��Module��optΦsinc,optwglength�,
optwglength�getOpt�wglength,opts,defaults�;
iassert�optwglength �� 0�;
iassert�optwglength Ε Reals�;
optΦsinc :� Sinc�0.5 optwglength dk�opts��;
iassert�optΦsinc �� 0�;
iassert�optΦsinc Ε Reals�;
Return�Simplify�replaceSiPrefixes�optΦsinc���;
�
��pump��
Α�opts����:�Α�opts��Module��optΑ,optΛp, optΛpsigma,optΛpfwhm, optΛs,optΛi, optΩp, optΩpsigma,
optΛp�getOpt�Λp,opts,defaults�;
optΛpsigma�getOpt�Λpsigma,opts,defaults�;
optΛpfwhm�getOpt�Λpfwhm,opts,defaults�;
optΛs�getOpt�Λs,opts,defaults�;
optΛi�getOpt�Λi,opts,defaults�;
optΩp�getOpt�Ωp,opts,defaults�;
optΩpsigma�getOpt�Ωpsigma,opts,defaults�;
optΩpfwhm�getOpt�Ωpfwhm,opts,defaults�;
optΩs�getOpt�Ωs,opts,defaults�;
optΩi�getOpt�Ωi,opts,defaults�;
If�optΛp �� "notSet", optΛp :� Λ�optΩp��;
iassert�optΛp �� 0�;
iassert�optΛp Ε Reals�;
If�optΛs �� "notSet", optΛs :� Λ�optΩs��;
iassert�optΛs �� 0�;
iassert�optΛs Ε Reals�;
If�optΛi �� "notSet", optΛi :� Λ�optΩi��;
iassert�optΛi �� 0�;
iassert�optΛi Ε Reals�;
If�optΛpsigma �� "notSet" && optΩpsigma �� "notSet" && optΩpfwhm �� "notSet", optΛpsigma � optΛpfwhm
If�optΛpsigma �� "notSet" && optΩpsigma �� "notSet" && optΛpfwhm �� "notSet", optΛpsigma � Λ�
If�optΛpsigma �� "notSet" && optΛpfwhm �� "notSet" && optΩpfwhm �� "notSet", optΛpsigma � Λ�optΩpsigma
iassert�optΛpsigma �� 0�;
iassert�optΛpsigma Ε Reals�;
optΑ:�Exp��1��optΛp��optΛs optΛi��optΛs�optΛi���^2��4�optΛpsigma�^2���;
iassert�optΑ �� 0�;
iassert�optΑ Ε Reals�;
Return�Simplify�replaceSiPrefixes�optΑ���;
�
��joint spectral amplitude without phase��
jointSpecAmplitude�opts����:�jointSpecAmplitude�opts��Module��optjointSpecAmplitude�,
optjointSpecAmplitude:��Φgauss�opts� Α�opts��;
iassert�optjointSpecAmplitude Ε Reals�;
Return�Simplify�replaceSiPrefixes�optjointSpecAmplitude���;
�