如何在 Mathematica 中打印方程

Question

如何定义不应计算公式，而应以传统格式显示公式？这里有两个例子，第一个例子按照我想要的方式显示，但第二个例子被简化了。

Print["5. ", Limit[f[x]/g[x], x -> a], "=", Limit[f[x], x -> a]/Limit[g[x], x -> a], ", where ", Limit[g[x], x -> a] != 0];
Print["7. ", Limit[c, x -> a], "=", c]

Answer 1

使用 HoldForm 打印表达式而不对其求值。

Print["7. ", HoldForm[Limit[c, x -> a]], "=", c]
(* /*        ^^^^^^^^                      */ *)

Answer 2

这在一定程度上取决于您想要做什么，但如果您只是编写文本，请不要使用 Print。相反，请直接输入文本，确保您使用的是 Text 单元格而不是 Input 单元格。在菜单中，选择：

Format -> Style -> Text

然后输入您想要的内容，例如：

5. Limit[f[x]/g[x], x -> a] == Limit[f[x], x->a]/Limit[g[x], x -> a] where ...

选择要转换为 TraditionalForm 的表达式，然后再次在菜单中选择：

Cell -> ConvertTo -> TraditionalForm

...，您应该得到类似这样的内容：

您可能还会发现有关排版的截屏视频很有用：
http://www.wolfram.com/broadcast/screencasts/ howtoentermathematicaltypesetting/

如果您实际上尝试以编程方式生成TraditionalForm 输出（例如，使用Print），您可能会考虑使用Row 和TraditionalForm 与 HoldForm：

Print[Row[{
   "5. ",
    TraditionalForm[HoldForm[
     Limit[f[x]/g[x], x -> a] == Limit[f[x], x -> a]/Limit[g[x], x -> a]]],
   " where ..."
   }]]

Answer 3

如果我理解正确的话——你不需要 Limit[c, x -> a] 待评估。
停止评估的标准方法是使用“Hold”。

  Print["7. ", Hold[Limit[c, x -> a]], "=", c]

但结果并不好：

  7. Hold[Limit[c, x -> a]] = c

HoldForm 命令起到了作用——它保留了求值但不显示：

  Print["7. ", HoldForm[Limit[c, x -> a]], "=", c]
  7. Limit[c, x -> a] = c