Problems with accuracy of determinant, multilayer stack, optics
Hi. I would like to calculate the imaginary part of a determinant as function of a parameter (in the attached example it is nR). The curve should cross the zero at some point, and later I would like to get the root of this function.
However, when I plot the function using Plot (see file attached), the resulting curve is extremely noise, which will presumably screw up my root search.
Could anyone help me and explain how to increase the precision of the calculation, such that the curve gets smooth? I thought that Mathematica is capable of calculating stuff to arbitrary precision, but I did not manage to implement that. What is the trick?
Regards,
Markus Hi. I would like to calculate the imaginary part of a deternimant as function of a parameter.
Attachments: