First of all, I know there is a Mathematica group in beta, but I don't think the problem of the following is directly a Mathematica issue.
I am trying to calculate the change of the refractive index dnF from the change of absorption daF. Note that l,li,ln is in nm.
The form of the resulting curve is fine (which is a sign for me that there is no Problem with e.g. PrecionGoals), but the order of magnitude is lower by 13 orders of magnitude than the expected one. The MathLab script von Lucarini et. al. "KK Relation in Optical Materials Research" gives the correct values. The formula used here is from the same book and matches the one in German Wikipedia.
Does anyone see my mistake?
c = 300000000;
daF[l_] = 500 * 0.28 Exp[-((l - 500)/90)^2];
dnFpoints = Table[
{
ln,
c/Pi NIntegrate[
daF[li] / ((2 Pi c 10^9 /li)^2 - (2 Pi c 10^9 / ln)^2),
{li, 200, 800},
Method -> {"PrincipalValue"},
Exclusions -> ((2 Pi c 10^9 /li)^2 - (2 Pi c 10^9 / ln)^2) == 0
]
},
{ln, 300, 600}
];
ListPlot[dnFpoints, Filling -> Axis]