我遇到个问题就是将偏导数输出形式改成不要写自变量，并写成算符求偏导数的的形式。

先谢谢各位能给帮助或者给个思路的朋友

第一幅图的输入文本：
\!\(\*SuperscriptBox[\(A[1]\),
TagBox[
RowBox[{"(",
RowBox[{"2", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}],
Derivative],
MultilineFunction->None]\)[t, x1, x2, x3, z]
第二幅图的输入文本：
\!\(
\*SubscriptBox[\(\[PartialD]\), \(t\)]\(A[7]\)\)

http://blog.wolfram.com/2011/12/15/mathematica-qa-series-converting-to-conventional-mathematical-typesetting/