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


In[1]:=ListOrder[f_]:=ListOrder[f]=Module[{ord,leg,i},
                      ord=Ord[f,x];leg=Length[ord];
		      Do[ord=ReplacePart[ord,Ord[ord[[i]],y],i],{i,leg}];
		      leg=Length[ord];Do[legz=Length[ord[[i]]];ordz=ord[[i]];
                      Do[ordz=ReplacePart[ordz,Ord[ordz[[ii]],z],ii],
		      {ii,legz}];
                      ord=ReplacePart[ord,ordz,i],{i,leg}];ord]
		      
		      
	但し、Ord[f_,va_]:=Ord[f,va]=Module[{deg,tab,j},
                 If[f===0,{0},deg=Exponent[f,va];Coex[j_]:=Coefficient[f,va,j];
                 tab=Table[Coex[j],{j,0,deg}]]]	      
	

ListOrder[3変数 x、y、z、の多項式]と入力すると、リストを出力します。

		 
(Example)

In[2]:=ListOrder[4x*y^2*z+4z^2-5x^3+7x^2*z^2]

Out[2]={{{0,0,4}},{{0},{0},{0,4}},{{0,0,7}},{{-5}}}