将Maple输出的LaTex导出到txt文件

> latex(x^2+y^2=z^2);

> latex(x^2 + y^2 = z^2, LatexFile);

interface(prettyprint=0);
> latex(x^2 + y^2 = z^2, res.txt);
> with(linalg):

 matrix(2,2,[5,4,6,3]);
 latex(subs(LambertW=lambertW,erf=Erf,arctanh=Artanh,[%]),"C:/Users/Bravo/Desktop/test1.txt"); 
> latex(BesselK(nu, z)+BesselJ(nu, z), output = string)
"{{\sl K}_{\nu}\left(z\right)}+{{\sl J}_{\nu}\left(z\right)}"

MyLaTeX := module()
 export ModuleApply, ExprsToLaTeX, CleanLaTeX;
 option package;
     ModuleApply := CleanLaTeX;
     ExprsToLaTeX := proc()
         return cat("", `latex/print`(_passed));
     end proc;
     CleanLaTeX := proc(expr, regsubs :: seq(string=string), $)
         return foldr(StringTools:-RegSubs
                      , ExprsToLaTeX(expr)
                      , ListTools:-Reverse([regsubs])[]
                      , "\\\\!"            = ""      # remove \!
                      , "{([0-9])}"        = "\\1 "  # strip braces from single digits
                      , "\\\\_"            = "_"     # change \_ to _
                      , " \\\\right\\)"    = ")"     # remove \right)
                      , " \\\\left\\( "    = "("     # remove \left)
                      , "{\\\\it ([^}]*)}" = "\\1"   # remove italics from variables
                      , "\\\\,"            = " "     # remove \
    , "(([a-zA-Z1-9]+))/(([a-zA-Z1-9]+))" = "\\\\frac {\\1} {\\3}"
   # , "\:\:" = "->"
                     );
     end proc;
 end module: