list - Mathematica - 初始化变量列表

Question

我想制作一个将被初始化和可访问的变量列表。
在那种代码之后:

abc = {a, b, c}
{a, b, c} = {0, 0, 0}
abc[[1]] = 1

换句话说，我想创建一个变量列表，用零初始化它们，然后通过引用变量指示列表而不是使用单个变量的名称来更改它们。

如果你愿意

abc = {a, b, c}
Evaluate[abc[[1]]] = 1

你得到了正确的结果，即变量 a 被设置为 1。但是在第一次设置之后，你不能使用上面的方法为该变量设置另一个值。

更多详情
我想创建 SetterBars 列表，其中每个都独立于其他，我可以以某种方式存储它们的值。更重要的是，我希望它们被初始化为零。有点像

abc = {a, b, c};
Evaluate[abc] = {0, 0, 0};
Table[SetterBar[Dynamic[ abc[[i]] ],{-1,1}], {i,3}]

Answer 1

我相信这可以简化，但至少它确实有效:

     {a, b, c} = {0, 1, 0}; 
        {
          With[{abc = {Unevaluated[a], Unevaluated[b], Unevaluated[c]}}, 
               tab = Table[With[{abci = abc[[i]]}, 
                                SetterBar[Dynamic[abci], {0, 1}]], {i, 3}]; 
               tab /. Dynamic[Unevaluated[x_]] :> Dynamic[x]
          ], 
         Dynamic[{a, b, c}]
        }