根据未知常数求解方程 wolfram mathematica

【问题标题】：Solving an equation in terms of unknown constants wolfram mathematica根据未知常数求解方程 wolfram mathematica
【发布时间】：2017-07-28 03:26:08
【问题描述】：

我想解决以下等式。我想根据未知常数 alpha 和 beta 来获得 x 的表达式。有谁知道如何在 Matlab 或 Mathematica 中解决这个问题？谢谢。

这是我在 wolfram Mathematica 中的一行代码。

'Assuming[alpha>beta>0,Solve[Cos(alpha*Cos(x)) + Cos(beta*Cos(x)) -1.96 ==0,x]] '

【问题讨论】：

你的语法错误，但无论如何也不会有任何解决办法。

标签： wolfram-mathematica trigonometry equation mathematica-8

【解决方案1】：

由于获得分析解决方案似乎并不容易，因此显示行为的图形可能会提供一些关于下一步做什么的见解。

ListPointPlot3D[Reap[Do[
   {alpha, beta, x} = RandomReal[{0, 2 Pi}, 3];
   If[alpha > beta,
      err = Norm[Cos[alpha*Cos[x]]+Cos[beta*Cos[x]]-1.96];
      If[err < .01, Sow[{alpha, beta, x}]]
],{10^6}]][[2, 1]], ViewPoint->{0, -2., 0}]

一旦显示在您的显示器上，您可以调整 Viewpoint 中的数字，或者您可以将鼠标放在图形内，按住鼠标左键并拖动以旋转图像。

该图似乎表明解决方案位于相当明确的区域内。

一旦您查看了此内容，您可能会将随机数的范围提高到 {0,4Pi}，因为看起来对于较大的 alpha 和 beta 值会有更有趣的行为。

【讨论】：