1
$\begingroup$

After doing experiment with Michelson interferometer I need to calculate two coefficients: k and n. This involves solving two equations for k and n:

$$\frac{(8 \pi d)}{\lambda }{kn}=\frac{\text{$\triangle $I}}{I}$$

$$\text{$\triangle $l}_2=\left\{\frac{\lambda }{2 \pi }\right\} \tan ^{-1}\left(\frac{2 \left(n \sin \left(\frac{4 \pi d n}{\lambda }\right)+k\right)}{\frac{4 \pi d \left(n^2-1\right)}{\lambda }+\left(n^2+1\right) \cos \left(\frac{4 \pi d n}{\lambda }\right)}\right)$$

For the first one I have everything exept $\Delta$*r*. As for second one, I have all coefficients. But Mathematica won't solve it neither with Solve, neither with NSolve.

Solve[{k*n==0.00730621, 
1.67/0.00539535==ArcTan[(2(k+n Sin[8.89655n]))/(8.89655(-1+n^2)+(1+n^2)Cos[8.89655 n])]},
 {k,n}]

It just goes into ever increasing evaluation till computer starts to freeze or I stop evaluation.

Could anyone suggest how I tackle this problem? Thanks.

$\endgroup$
  • $\begingroup$ Welcome to Mathematica! 1) As you receive help, try to give it too, by answering questions in your area of expertise. 2) Take the tour and check the faqs! 3) When you see good questions and answers, vote them up by clicking the gray triangles, because the credibility of the system is based on the reputation gained by users sharing their knowledge. Also, please remember to accept the answer, if any, that solves your problem, by clicking the checkmark sign! $\endgroup$ – user9660 Oct 7 '15 at 17:59
  • $\begingroup$ please put the complete code here. $\endgroup$ – Raymond Ghaffarian Shirazi Oct 7 '15 at 18:18
  • 1
    $\begingroup$ Perhaps start by solving the first equation for, say, n, plugging that into the second equation, then plotting that equation as a function of n and seeing roughly where the roots are. Then use FindRoot. $\endgroup$ – march Oct 7 '15 at 19:12
  • $\begingroup$ Thanks for response. @RaymondGhaffarianShirazi - it is all the code. I'm just trying to use Mathematica to calculate k,n. $\endgroup$ – JustasJ. Oct 7 '15 at 19:48
  • 1
    $\begingroup$ Solve for k in terms of n and plug the result into the second equation. Then Plot[ f[n] , {n,-10,10}] to see that there is no zero. This suggests that there is something strange with the parameter numbers calculated before. $\endgroup$ – Kagaratsch Oct 7 '15 at 22:59
3
$\begingroup$

Following March's suggestion, if one takes the first expression we can determine that k is:

0.00730621/n

Create a function of n that represents the second equation. Replace k in the second equation with the above expression:

eq2[n_] := 1.67/0.00539535 - ArcTan[(2 (0.00730621/n + n Sin[8.89655 n]))/
   (8.89655 (-1 + n^2) + (1 + n^2) Cos[8.89655 n])]

Plot it as a function of n. Since the equation has 8.89655 n as an argument to Sin and Cos it makes sense to limit n to be less than 8.89655/(2 π).

There is a discontinuity where the denominator goes to zero so it is excluded from the plot.

Plot[eq2[n], {n, 0, 8.89655/ (2 π)},
 PlotRange -> {{0, 1.5}, {-1.8, 1.8}}, 
 Exclusions -> {(8.89655 (-1 + n^2) + (1 + n^2) Cos[8.89655 n]) == 0}
 ]

Mathematica graphics

The plot shows that eq2 never approaches zero. At the discontinuity the ArcTan jumps from -π/2 to π/2.

$\endgroup$
  • $\begingroup$ Thanks a lot! @JackLaVigne I just don't understand why you dont use LHS of second equation. $\endgroup$ – JustasJ. Oct 8 '15 at 7:16
  • $\begingroup$ @JustasJ - Terribly sorry. 100% error on my part. The equation should be modified as shown by Willinski below. Following his and Kagaratsch's comment, it is clear that there is no solution. $\endgroup$ – Jack LaVigne Oct 8 '15 at 12:48
  • $\begingroup$ I have edited my answer accordingly. $\endgroup$ – Jack LaVigne Oct 8 '15 at 13:08
  • $\begingroup$ Thanks for going through all the trouble! @JackLaVigne $\endgroup$ – JustasJ. Oct 8 '15 at 15:10
0
$\begingroup$

There are no zeros (see @Kagaratsch comment).

n = 0.00730621/k;
eq = 1.67/0.00539535 - ArcTan[(2 (k +n Sin[8.89655 n]))/(8.89655 (-1 + n^2) + (1 + n^2) Cos[8.89655 n])] // FullSimplify

enter image description here

Plot[eq, {k, -0.1, 0.1}, PlotRange -> All]

enter image description here

$\endgroup$

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service, privacy policy and cookie policy

Not the answer you're looking for? Browse other questions tagged or ask your own question.