通过下标将方程式解析为变量

Question

在我想要的Mathematica一些功能和记录解决方案,等等.f[x]Solve[f[x] == a, x]Subscript[x, 1, a], Subscript[x, 2, a]

如果,这是最好的方法

1. 我知道有多少解决方案存在
2. 我不知道有多少解决方案

Answer 1

应该适用于这两种情况的一种方法是做类似的事情

MapIndexed[(Subscript[x, #2[[1]], a] = x /. #1) &,  Solve[f[x] == a, x]]