Help:=proc(): print(`GenHOMPolG(X,d,a,DegList), GPg(X,d,a,DegList)`):end: GenHOMPolG:=proc(X,d,a,DegList) local t,i,k,P,L: P:=expand(mul(add((X[i]*t)^k,k=0..DegList[i]),i=1..nops(X))): L:=convert(coeff(P,t,d),list): add(a[i-1]*L[i],i=1..nops(L)),{seq(a[i-1],i=1..nops(L))}: end: GPg:=proc(X,d,a,DegList) local t,i,k,P,L: P:=expand(mul(add((X[i]*t)^k,k=0..DegList[i]),i=1..nops(X))): L:=convert(add(coeff(P,t,i),i=0..d),list): add(a[i-1]*L[i],i=1..nops(L)),{seq(a[i-1],i=1..nops(L))}: end: