Экспорт матриц в Mathematica в Maple 2019

Question

Я пытаюсь экспортировать матрицу из 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 в клен. Любая помощь будет принята с благодарностью.

Answer 1

Проверьте, можете ли вы экспортировать матрицу y2 в файл, в InputForm Mathematica в виде строки (ie. В двойных кавычках).

Затем вы можете прочитать эту строку в Maple, используя команду read , а затем применить команду MmaTranslator [FromMma] .