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

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]]