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.

4 enhancedSellmeier.m<br />

iassert�optmodesv ��0�;<br />

iassert�optmodesv Ε Reals�;<br />

��Print�"optmodesv: ",optmodesv�;��<br />

��gruesome code to assemble the approbriate filename��<br />

If�optairBoundary �� "e",optdirectory � ".�neff�fit�ppln�true�extraordinary�neff�fit�true�extraordinary<br />

optdnmantissa�PaddedForm�10 MantissaExponent�optdn���1��,�8,6��;<br />

optdnexponent��MantissaExponent�optdn���2����1;<br />

optstringdn � ToString�optdnmantissa� �� "e�0" �� ToString��1�optdnexponent��;<br />

optwgwidth�PaddedForm�replaceSiPrefixes�optwgwidth��Micro Meter��,�8,6��;<br />

optwgheight�PaddedForm�replaceSiPrefixes�optwgheight��Micro Meter��,�8,6��;<br />

optpath � ToString�optdirectory� �� ToString�optmodesu� �� "�" �� ToString�optmodesv��� "�" ��<br />

optpath � StringReplace�optpath,�" " �� ""��;<br />

��Print�"optpath: ", optpath�;��<br />

��extracts the coefficients from the selected file��<br />

opta � FindList�ToString�optpath�,"a�"�;<br />

opta � StringReplace�ToString�opta�,�"e�"��" 10^","e�"��" 10^�","a�" ��"", "�"�� "", "�"��""�<br />

opta � ToExpression�opta�;<br />

��Print�"opta: ", opta�;��<br />

optb � FindList�ToString�optpath�,"b�"�;<br />

optb � StringReplace�ToString�optb�,�"e�"��" 10^","e�"��" 10^�","b�" �� "", "�"�� "", "�"��""<br />

optb � ToExpression�optb�;<br />

��Print�"optb: ", optb�;��<br />

optc � FindList�ToString�optpath�,"c�"�;<br />

optc � StringReplace�ToString�optc�,�"e�"��" 10^","e�"��" 10^�","c�" �� "", "�"�� "", "�"��""<br />

optc � ToExpression�optc�;<br />

��Print�"optc: ", optc�;��<br />

optd � FindList�ToString�optpath�,"d�"�;<br />

optd � StringReplace�ToString�optd�,�"e�"��" 10^","e�"��" 10^�","d�" �� "", "�"�� "", "�"��""<br />

optd � ToExpression�optd�;<br />

��Print�"optd: ", optd�;��<br />

opte � FindList�ToString�optpath�,"e�"�;<br />

opte � StringReplace�ToString�opte�,�"e�"��" 10^","e�"��" 10^�","e�" �� "", "�"�� "", "�"��""<br />

opte � ToExpression�opte�;<br />

��Print�"opte: ", opte�;��<br />

optf � FindList�ToString�optpath�,"f�"�;<br />

optf � StringReplace�ToString�optf�,�"e�"��" 10^","e�"��" 10^�","f�" �� "", "�"�� "", "�"��""<br />

optf � ToExpression�optf�;<br />

��Print�"optf: ", optf�;��<br />

optg � FindList�ToString�optpath�,"g�"�;<br />

optg � StringReplace�ToString�optg�,�"e�"��" 10^","e�"��" 10^�","g�" �� "", "�"�� "", "�"��""<br />

optg � ToExpression�optg�;<br />

��Print�"optg: ", optg�;��<br />

��calculation of n��<br />

optn :� Sqrt�opta � optb��optΛ^2�optc�� optd optΛ��optΛ^2 � opte�� optf �optΛ�optg��;<br />

iassert�optn��0�;<br />

iassert�optn�Reals�;<br />

Return�replaceSiPrefixes�optn��;<br />

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

Saved successfully!

Ooh no, something went wrong!