リストから3変数多項式へ変換するプログラム


In[1]:=poly[t_]:=Expand[Map[(Table[y^(k-1),{k,Length[#]}].#)&,
                 Map[(Table[z^(k-1),{k,Length[#]}].#)&,t,{2}]].Table[
                 x^(k-1),{k,Length[t]}]]
		 
		 
poly[3変数 x、y、z、の多項式のリスト]と入力すると、
3変数 x、y、z、の多項式を出力します。
		 

(Example)

In[2]:=poly[{{{0,0,4}},{{0},{0},{0,4}},{{0,0,7}},{{-5}}}]

Out[2]=-5x^3+4x*y^2*z+4z^2+7x^2*z^2