【发布时间】：2020-02-12 01:36:24
【问题描述】：
我正在尝试将 Mathematica 中的矩阵导出到 Maple。我尝试在 Maple 中使用以下调用序列无济于事
with(MmaTranslator):
MmaToMaple();
之后，我只需选择我需要的笔记本并能够将其翻译成 Maple 语言。当我第一次尝试转移一个矩阵时，这非常有效，但是对于所述矩阵的逆矩阵，我无法这样做。无论如何我可以翻译逆矩阵。下面我将编写我在 Mathematica 中尝试过的代码
x1 = {{1, 0, 0, 0}, {0, (1/(
4 (x^2 +
z^2)))(4 z^2 Sqrt[(-1 + K (x^2 + y^2 + z^2))/(-1 +
K r^2)] + (Sqrt[2]
x^4 (Sqrt[(-2 +
K (x^2 + 2 y^2 - Sqrt[x^4 + 4 x^2 y^2 + 4 y^2 z^2]))/(-1 +
K r^2)] -
Sqrt[(-2 +
K (x^2 + 2 y^2 + Sqrt[x^4 + 4 x^2 y^2 + 4 y^2 z^2]))/(-1 +
K r^2)]))/(Sqrt[x^4 + 4 x^2 y^2 + 4 y^2 z^2]) +
Sqrt[2] x^2 (Sqrt[(-2 +
K (x^2 + 2 y^2 - Sqrt[x^4 + 4 x^2 y^2 + 4 y^2 z^2]))/(-1 +
K r^2)] +
Sqrt[(-2 +
K (x^2 + 2 y^2 + Sqrt[x^4 + 4 x^2 y^2 + 4 y^2 z^2]))/(-1 +
K r^2)])), (x y (Sqrt[(-2 +
K (x^2 + 2 y^2 - Sqrt[x^4 + 4 x^2 y^2 + 4 y^2 z^2]))/(-1 +
K r^2)] -
Sqrt[(-2 +
K (x^2 + 2 y^2 + Sqrt[x^4 + 4 x^2 y^2 + 4 y^2 z^2]))/(-1 +
K r^2)]))/(Sqrt[2] Sqrt[x^4 + 4 x^2 y^2 + 4 y^2 z^2]), (1/(
4 (x^2 + z^2)))
x z (-4 Sqrt[(-1 + K (x^2 + y^2 + z^2))/(-1 + K r^2)] +
Sqrt[(-4 +
2 K (x^2 + 2 y^2 - Sqrt[x^4 + 4 x^2 y^2 + 4 y^2 z^2]))/(-1 +
K r^2)] +
Sqrt[(-4 +
2 K (x^2 + 2 y^2 + Sqrt[x^4 + 4 x^2 y^2 + 4 y^2 z^2]))/(-1 +
K r^2)] + (Sqrt[2]
x^2 (Sqrt[(-2 +
K (x^2 + 2 y^2 - Sqrt[x^4 + 4 x^2 y^2 + 4 y^2 z^2]))/(-1 +
K r^2)] -
Sqrt[(-2 +
K (x^2 + 2 y^2 + Sqrt[x^4 + 4 x^2 y^2 + 4 y^2 z^2]))/(-1 +
K r^2)]))/(Sqrt[
x^4 + 4 x^2 y^2 + 4 y^2 z^2]))}, {0, (x y (Sqrt[(-2 +
K (x^2 + 2 y^2 - Sqrt[x^4 + 4 x^2 y^2 + 4 y^2 z^2]))/(-1 +
K r^2)] -
Sqrt[(-2 +
K (x^2 + 2 y^2 + Sqrt[x^4 + 4 x^2 y^2 + 4 y^2 z^2]))/(-1 +
K r^2)]))/(Sqrt[2] Sqrt[x^4 + 4 x^2 y^2 + 4 y^2 z^2]), (1/(
2 Sqrt[2]))(Sqrt[(-2 +
K (x^2 + 2 y^2 - Sqrt[x^4 + 4 x^2 y^2 + 4 y^2 z^2]))/(-1 +
K r^2)] +
Sqrt[(-2 +
K (x^2 + 2 y^2 + Sqrt[x^4 + 4 x^2 y^2 + 4 y^2 z^2]))/(-1 +
K r^2)] + (x^2 (-Sqrt[((-2 +
K (x^2 + 2 y^2 - Sqrt[x^4 + 4 x^2 y^2 + 4 y^2 z^2]))/(-1 +
K r^2))] +
Sqrt[(-2 +
K (x^2 + 2 y^2 + Sqrt[x^4 + 4 x^2 y^2 + 4 y^2 z^2]))/(-1 +
K r^2)]))/(Sqrt[
x^4 + 4 x^2 y^2 +
4 y^2 z^2])), (y z (Sqrt[(-2 +
K (x^2 + 2 y^2 - Sqrt[x^4 + 4 x^2 y^2 + 4 y^2 z^2]))/(-1 +
K r^2)] -
Sqrt[(-2 +
K (x^2 + 2 y^2 + Sqrt[x^4 + 4 x^2 y^2 + 4 y^2 z^2]))/(-1 +
K r^2)]))/(Sqrt[2] Sqrt[x^4 + 4 x^2 y^2 + 4 y^2 z^2])}, {0, (
1/(4 (x^2 + z^2)))
x z (-4 Sqrt[(-1 + K (x^2 + y^2 + z^2))/(-1 + K r^2)] +
Sqrt[(-4 +
2 K (x^2 + 2 y^2 - Sqrt[x^4 + 4 x^2 y^2 + 4 y^2 z^2]))/(-1 +
K r^2)] +
Sqrt[(-4 +
2 K (x^2 + 2 y^2 + Sqrt[x^4 + 4 x^2 y^2 + 4 y^2 z^2]))/(-1 +
K r^2)] + (Sqrt[2]
x^2 (Sqrt[(-2 +
K (x^2 + 2 y^2 - Sqrt[x^4 + 4 x^2 y^2 + 4 y^2 z^2]))/(-1 +
K r^2)] -
Sqrt[(-2 +
K (x^2 + 2 y^2 + Sqrt[x^4 + 4 x^2 y^2 + 4 y^2 z^2]))/(-1 +
K r^2)]))/(Sqrt[
x^4 + 4 x^2 y^2 + 4 y^2 z^2])), (y z (Sqrt[(-2 +
K (x^2 + 2 y^2 - Sqrt[x^4 + 4 x^2 y^2 + 4 y^2 z^2]))/(-1 +
K r^2)] -
Sqrt[(-2 +
K (x^2 + 2 y^2 + Sqrt[x^4 + 4 x^2 y^2 + 4 y^2 z^2]))/(-1 +
K r^2)]))/(Sqrt[2] Sqrt[x^4 + 4 x^2 y^2 + 4 y^2 z^2]), (1/(
4 (x^2 +
z^2)))(4 x^2 Sqrt[(-1 + K (x^2 + y^2 + z^2))/(-1 +
K r^2)] + (Sqrt[2]
x^2 z^2 (Sqrt[(-2 +
K (x^2 + 2 y^2 - Sqrt[x^4 + 4 x^2 y^2 + 4 y^2 z^2]))/(-1 +
K r^2)] -
Sqrt[(-2 +
K (x^2 + 2 y^2 + Sqrt[x^4 + 4 x^2 y^2 + 4 y^2 z^2]))/(-1 +
K r^2)]))/(Sqrt[x^4 + 4 x^2 y^2 + 4 y^2 z^2]) +
Sqrt[2] z^2 (Sqrt[(-2 +
K (x^2 + 2 y^2 - Sqrt[x^4 + 4 x^2 y^2 + 4 y^2 z^2]))/(-1 +
K r^2)] +
Sqrt[(-2 +
K (x^2 + 2 y^2 + Sqrt[x^4 + 4 x^2 y^2 + 4 y^2 z^2]))/(-1 +
K r^2)]))}}
y2 = Inverse[x1]
我忽略了添加，因为它非常长。我希望能够将这个 y2 导出到 Maple 中。任何帮助将不胜感激。
【问题讨论】：
-
y2 = FullSimplify[y2]会显着减小逆矩阵的大小。
标签： matrix export wolfram-mathematica linear-algebra maple