William Angerer - Department of Physics and Astronomy - University ...

234
1 - 2500.0;
III -
xU]; 1/ ti. tor Cd 1Adox
.... oqrc(1 • 1.023798-1...0-1..0/(1..0.1..0 - .00377588)
• 1.0582&4-1...0-1..0/(1..0-1...0 - .0122544)
• 5.280792·1..0.10 .. 0/(1..0.1 ... 0 - 321.3838»;
c:&lc_~emp· 0.0;
normalize • 0.0;
t'uncvalu. • 0.0;
UlIleO • 0.0;
tor (1 • 1; iC- num; 1.+.) <
""8100 - .2[i] ·Pi/lBO.O;
""8101 - adl1(dl1(ansloO)/IlI);
aa.s1e2 ••• inCainCans1eO)/I1I);
... 0 - 1. O/coo (&11&100) ;
etas· al/col(anSl.U;
.~.. • rut cal (&D.&le2) ;
tor (j • -500; j (. 500; J++)
II loop over bandvidth ot lip'
lam • lamO •. 00075-j 1250. 0;
dele.,; • 2-Pi-us:/lam-d-col(anslet):
ct. It ••• 2-Pi-uI/1am.-t-col(ansle2);
1/ pril1.f("U\,X:\I1". d.lt"!. dolt ..);
! • cOICd.leagl-caledalt ••) - .t.... 1n(d..ltq) •• lnCd..lt ••)/.t.S •
• taO- CCoz:pllx(O .1)-coled.h•• l -linCdelta,>'It as •
Coapl.xeO ,1)·coI(d.1 tas) -linedelt••"a'••) ;
e • campt.xeo.1) •• t:aS-co.(dl1t •• )-Iia,(delta,> •
Campl.xeO.l) •• t.'·COI (dllt&S) -.inCdalt••) •
ItaO-CcoICd.elt.,>-coICdelt ••) -
"-a-.ined.Lt_,)-.inCd.Ltu)/.ta.);
t - 2-.taO/C.taO-! • :!);
T - Ilona(t);
calc_,amp+. T.oxp(-j-jl