coefficients of a polynomial in two or more variables



for what it's worth...
>
> > d : ratcoef(eq, kn),
> > eq : eq - d * kn,

can be accomplished by   
[d,eq]: bothcoef(eq,kn),

RJF