Wolfram mathematica 如何提取输出

mathematica单元的输出只是一个长代数方程，由

解[%，下标[u，i，j+1]]

生成

{{Subscript[u, i, 1 + j] -> (1/(
   2 h^2))(-2 h^2 k Subscript[f, i, j] + 2 h^2 Subscript[u, i, j] + 
     2 b h^2 k Subscript[u, i, j] - 
     h k Subscript[u, -1 + i, j] Subscript[\[Mu], i, j] + 
     h k Subscript[u, 1 + i, j] Subscript[\[Mu], i, j] + 
     2 k Subscript[u, -1 + i, j] Subscript[\[Sigma], i, j] - 
     4 k Subscript[u, i, j] Subscript[\[Sigma], i, j] + 
     2 k Subscript[u, 1 + i, j] Subscript[\[Sigma], i, j])}}

我想收集这个表达式右侧的术语$u_{I，j}$，但我不知道如何获得Solve[]输出的句柄。i、 我想做一些像这样的事情

Collect[%, {Subscript[u, i, j - 1], Subscript[u, i, j], Subscript[u, 
  i, j + 1]}]

---

但是这里的%并没有完全起作用。有什么想法吗？

如果找到了，Mathematica会返回嵌套列表，可由%[[1][[1]]]]访问。

如果找到了，Mathematica会返回嵌套列表，可由%[[1][[1]]访问。

Mathematica会返回嵌套列表，因为通常会有多个变量的多个解决方案

提取替换规则的RHS最可靠的方法是实际使用它，例如

In[1]:= x/.Solve[x - m b - m c == 0,x]
        Collect[First[%],m]
Out[1]= {b m + c m}
Out[2]= (b + c) m

也就是说，命令部分[]（或[]）可以接受多个参数，因此无需重复：

In[3]:= Solve[x-m b-m c==0,x]
        Collect[%[[1,1,2]],m]
Out[3]= {{x->b m+c m}}
Out[4]= (b + c) m

---

Mathematica返回嵌套列表，因为通常会有多个变量的多个解决方案

提取替换规则的RHS最可靠的方法是实际使用它，例如

In[1]:= x/.Solve[x - m b - m c == 0,x]
        Collect[First[%],m]
Out[1]= {b m + c m}
Out[2]= (b + c) m

也就是说，命令部分[]（或[]）可以接受多个参数，因此无需重复：

In[3]:= Solve[x-m b-m c==0,x]
        Collect[%[[1,1,2]],m]
Out[3]= {{x->b m+c m}}
Out[4]= (b + c) m

---

案例[%[[1,1,2]]，下标[u，[u，[u]，无穷大]案例[%[[1,1,2]]，下标[u，[u，[u，[u]，无穷大]