Wolfram mathematica 如何在Mathematica中打印方程式

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

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]

用于打印表达式而不计算它

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

---

如果我理解正确-您不希望计算极限[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

---

这完全取决于你想做什么，但如果你只是在写文本，不要使用打印。相反，直接输入文本，确保使用的是文本单元格而不是输入单元格。在菜单中，选择：

Format -> Style -> Text

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

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

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

Cell -> ConvertTo -> TraditionalForm

。。。你应该得到这样的东西：

您可能还发现排版的屏幕广播很有用：

如果您实际上是试图用编程方式生成传统的表单输出，例如打印，您可以考虑使用HorddFr:

使用行和传统形式。

---

可能需要添加“TraditionalForm”以按Margus的要求打印。2011年Wolfram技术会议的研讨会也可能有用：

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