将 LaTeX 矩阵导入 Mathematica

hbghlyj

将

1. toMatrix=Function[str,str/. {ExpressionCell -> Identity, TraditionalForm -> Identity,SqrtBox->Function[x,StringJoin["\\sqrt{", x, "}"]], FormBox ->
2. Function[{x, y},
3.   StringJoin["\\frac{", ToString[x], "}{", ToString[IntegerPart[y]],
4.    "}"]],BoxData->Function[x,ToExpression[StringJoin[x],TeXForm]], TextCell -> Identity, RawBoxes -> Function[x, If[StringQ[x], ToExpression[x], x]], Cell -> Function[{x, y}, x]}]

复制代码

加入User Mathematica initialization file(位置C:\ProgramData\Mathematica\Kernel\init.m)每次启动可以预加载
每次先选择"粘贴排板表达式"然后调用上面的函数.
示例

hbghlyj

1. $\frac{1}{3}\left(\begin{array}{ccc}2 & 2 & -1 \\ 2 & -1 & 2 \\ -1 & 2 & \frac{2}{3}\end{array}\right)$

复制代码

像这种,分子为整数的,可以正确转换.
转换不好的情况:

1. $\frac{1}{3}\left(\begin{array}{ccc}2 & 2 & -1 \\ 2 & -1 & 2 \\ -1 & 2 & \frac{2}{a}\end{array}\right)$

复制代码

分母会丢失..

1. $\frac{1}{2}\left(\begin{array}{ccc}\sqrt{2} & \sqrt{2} & 0 \\ 1 & -1 & \sqrt{2} \\ 1 & -1 & -\sqrt{2}\end{array}\right)$

复制代码

根号丢失,除了右下角的根号..