wolfram-mathematica - Mathematica - 将多项式函数转换为列表并从中提取项

Question

我有一个 mathematica 多项式函数，我想将其转换为项列表。 IE。对于一个函数

   v[a_,b_,c_]:=a^2+b^2+c^2

我可以使用 MonomialList 以列表的形式获取术语，即

   vl[a_,b_,c_]:=MonomialList[v[a,b,c]]

这给了我:

   vl[a,b,c]={a^2,b^2,c^2};

现在我想为这些术语中的每一个创建单独的函数，以便我得到:

   vl[1,1,1]={1,1,1}

代替

   vl[1,1,1]=3

有什么简单的方法可以做到这一点吗？

Answer 1

例如

v[a_, b_, c_] := a^2 + b^2 + c^2
vl[a_, b_, c_] := Module[{x, y, z}, 
                         MonomialList[v[x, y, z]] /. {x -> a, y -> b, z -> c}]
vl[1, 1, 1]
(*
 -> {1,1,1}
*)