如何在mathematica中调整操作输出？

Question

是否可以调整操作选项，以便该公式以标准形式编写：5 Cos（2x + 1.85982），我的意思是在括号内首先写成x，然后是相位。

还有一种方法是用Pi语写这个阶段，因为我认为对于学生来说，看到熟悉的形式Pi / 2比1.5708更有意义。

感谢您提出任何建议和解答。

以下是我使用的代码：

Manipulate[
     Plot[A Cos[\[Omega] t + \[Phi]], {t, -4 Pi, 4 Pi}, AspectRatio -> 1, PlotRange -> 10], 
     Dynamic[A Cos[\[Omega] x + \[Phi]]], {{A, 5}, 1, 10, 1, Appearance -> "Labeled"}, 
     {\[Omega], 1, 5, 1, Appearance -> "Labeled"}, 
     {\[Phi], 0, 2 Pi, Appearance -> "Labeled"}]

Answer 1

也许你可以做类似

的事情

Manipulate[
 Plot[A Cos[\[Omega] t + \[Phi]], {t, -4 Pi, 4 Pi}, AspectRatio -> 1, PlotRange -> 10], 
 Pane[Dynamic[A Cos[Row[{\[Omega] x, "+", \[Phi]}]]], {100, 30}],
 {{A, 5}, 1, 10, 1, Appearance -> "Labeled"},
 {\[Omega], 1, 5, 1, Appearance -> "Labeled"}, 
 {\[Phi], 0, 2 Pi, Pi/10, Appearance -> "Labeled"}]

截图：

Answer 2

在实践中，人们更喜欢连续控制相位和幅度。因此，为了达到预期的效果，我们使用HoldForm[expr]阻止评估expr来添加一个可能需要的技巧：

Manipulate[ 
    Plot[A Cos[\[Omega] t + \[Phi]], {t, -4Pi, 4Pi}, AspectRatio -> 1, PlotRange -> 10],
    Pane[Dynamic[ A Cos[Row[{ \[Omega] x, "+", \[Phi]/Pi  HoldForm[Pi]}]]], {150, 30}],
    {{A, 5}, 1, 10, Appearance -> "Labeled"}, 
    {\[Omega], 0.1, 5, Appearance -> "Labeled"},
    {\[Phi]  , 0, 2 Pi, Appearance -> "Labeled"}]