Matrix 将Mathematica中的矩阵导出到Maple 2019

我正在尝试将Mathematica中的矩阵导出到Maple中。我尝试在Maple中使用以下调用序列，但没有效果

with(MmaTranslator):
MmaToMaple();

之后，我只需选择我需要的笔记本，并能够将其翻译成枫树语言。当我第一次尝试转移一个矩阵时，这种方法非常有效，但对于所述矩阵的逆矩阵，我无法这样做。我能翻译逆矩阵吗。下面我将写下我在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矩阵导出到Mathematica的InputForm文件中，格式为字符串（即双引号内）

---

然后您可以使用其read命令将该字符串读入Maple，然后应用MmaTranslator[fromma]命令。

y2=FullSimplify[y2]

将显著减小逆矩阵的大小。