Question

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

具体就是像这样

Answer 1

这个需要一点额外的知识。你首先要知道计算机一般是如何表示数学公式的呢？虽然各个平台不是很同一，可是有一种国际标准的写数学公式方法，叫做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]
输出右边的结果

Answer 2

在word中自带了公式编辑器，但是按你说的情况应该是从mathematica中的公式导入到word中，看你mathematica中有无导出公式的功能，如果没有，就没有办法了。word本身好好象没有这种功能。从别的软件里导入公式。

追问

也不是说直接导入，而是说在mathematica中复制公式，然后粘贴到WORD中能用常见的格式，就像图中的那样

Answer 3

这个需要一点额外的知识.你首先要知道计算机一般是如何表示数学公式的呢?虽然各个平台不是很同一,可是有一种国际标准的写数学公式方法,叫做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中变成右边那样，我试了你那种方法，粘贴后还是和左边第二行的一样