如何在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

如果我没有正确理解你 - 你不想要限制[c，x - ＆gt; a]待评估。 从评估中阻止某些东西的标准方法是使用“保持”。

  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