Diploma thesis

opte � FindList�ToString�optpath�,"e�"�;
opte � StringReplace�ToString�opte�,�"e�"��" 10^","e�"��" 10^�","e�" �� "", "�"�� "", "�"��""
opte � ToExpression�opte�;
��Print�"opte: ", opte�;��
optf � FindList�ToString�optpath�,"f�"�;
optf � StringReplace�ToString�optf�,�"e�"��" 10^","e�"��" 10^�","f�" �� "", "�"�� "", "�"��""
optf � ToExpression�optf�;
��Print�"optf: ", optf�;��
optg � FindList�ToString�optpath�,"g�"�;
optg � StringReplace�ToString�optg�,�"e�"��" 10^","e�"��" 10^�","g�" �� "", "�"�� "", "�"��""
optg � ToExpression�optg�;
��Print�"optg: ", optg�;��
��calculation of n��
optn :� Sqrt�opta � optb��optΛ^2�optc�� optd optΛ��optΛ^2 � opte�� optf �optΛ�optg��;
iassert�optn��0�;
iassert�optn�Reals�;
Return�replaceSiPrefixes�optn��;
�
��refractive index of the e�polarized ray in ppln��
nee�opts����:�nee�opts��Module��optn,optΛ,optΩ, optwgwidth, optwgheight, optdn, optairBoundary
optstring, optdirectory, optpath, optcoefficient, optstringdn,optdnmantissa,optdnexponent
opta, optb, optc, optd,opte,optf, optg�,
optΛ�getOpt�Λ,opts,defaults�;
optΩ�getOpt�Ω,opts,defaults�;
iassert�Not��opt��"notSet"�&&�opt��"notSet"���;
If�optΛ��"notSet",optΛ:�Λ�optΩ�,""�;
optΛ � replaceSiPrefixes�optΛ��Micro Meter��;
iassert�opt��0�;
iassert�optΛ Ε Reals�;
optwgwidth�getOpt�wgwidth,opts,defaults�;
iassert�optwgwidth��0�;
iassert�optwgwidth Ε Reals�;
��Print�"optwgwidth: ",optwgwidth�;��
optwgheight�getOpt�wgheight,opts,defaults�;
iassert�optwgheight ��0�;
iassert�optwgheight Ε Reals�;
��Print�"optwgheight: ",optwgheight�;��
optdn�getOpt�dn,opts,defaults�;
iassert�optdn ��0�;
iassert�optdn Ε Reals�;
��Print�"optdn: ",optdn�;��
optairBoundary�getOpt�airBoundary,opts,defaults�;
iassert�optairBoundary �� "o" �� optairBoundary �� "e" ��optairBoundary �� ""�;
��Print�"optairBoundary: ",optairBoundary�;��
optmodesu�getOpt�modesu,opts,defaults�;
iassert�optmodesu ��0�;
iassert�optmodesu Ε Reals�;
��Print�"optmodesu: ",optmodesu�;��
optmodesv�getOpt�modesv,opts,defaults�;
iassert�optmodesv ��0�;
;
enhancedSellmeier.m 3