怎样把mathematica中的公式导入到word中

怎样把mathematica中的公式导入到word中
具体就是像这样

这个需要一点额外的知识.你首先要知道计算机一般是如何表示数学公式的呢?虽然各个平台不是很同一,可是有一种国际标准的写数学公式方法,叫做TeX格式（中间e是小写）.
ok,首先装一个MathType,这样可以在word中打开MathType.
然后对mathematica的表达式调用TeX格式,也就是TeXForm函数
例如输入
TeXForm[Integrate[HoldForm[1]/(1 + Sqrt[1 + x^2]),x] ==
1/x - Sqrt[1 + x^2]/x + ArcSinh[x]]
就得到了
1 \left(-\frac{\sqrt{x^2+1}}{x}+\frac{1}{x}+\sinh
^{-1}(x)\right)=-\frac{\sqrt{x^2+1}}{x}+\frac{1}{x}+\sinh ^{-1}(x)
把这一段东西黏贴到MathType,就自动会变成漂亮的格式,因为MathType也接受TeX格式嘛
最后关闭MathType,回到word,就搞定了.
再问： 这个我用的你的那个公式试了下可以，但是你看我图片上是个偏微分的方程，怎样能让他粘到word中变成右边那样，我试了你那种方法，粘贴后还是和左边第二行的一样
再答： 呵呵，你那个右边的写法是下标啊，不是求导的符号了。 如果你非要显示成右边那个，当然要自己手动调整了。不过后来我有想了一下，如果Mathematica不能自动调整为右边的那个样子，岂不是让那些不懂怎么用Mathematica太小看它了。 下面给你演示一段Mathematica内部的盒子模型和模式替换规则，repalceDerivative，DerivativeForm是我自己写的2个函数，实现替换功能。 repalceDerivative[dx_, dfun_, dvars_] := Module[{subc}, subc = StringJoin @@ Table[StringJoin @@ Table[ToString[dvars[[k]]], {dx[[k]]}], {k, 1, Length[dx]}]; Return[ToExpression[SubscriptBox[ToString[dfun], subc]]]] DerivativeForm[eq_, form_: TraditionalForm] := form[ReleaseHold[ ReplaceAll[eq, Derivative[dx__][dfun_][dvars__] -> Hold[repalceDerivative[{dx}, dfun, {dvars}]]]]] 输入 A = D[u[t, x], t] + \[Rho]*u[t, x]^2 D[u[t, x], x] + \[Eta]* D[u[t, x], {x, 3}] - k*D[u[t, x], {x, 5}] 输入 DerivativeForm[A] 输出右边的结果