Advanced Search

Question: Extracting an integer coefficient from a term

Question:Extracting an integer coefficient from a term

Joe Riel 9530 Maple
constants integer
October 21 2005
0
What is an efficient, robust, way to extract an integer coefficient from a single term? My first thought was using lcoeff, however, it doesn't work if the term contains constants (say Pi) or floats. Currently I'm using patmatch, 
icoeff := proc(t)
local k,x,kx;
  return `if`(patmatch(t, k::'nonunit'(integer)*x::anything,kx)
              ,eval(k,kx)
              ,1);
end proc:
map(icoeff, [0, 1, -3.0, -3, -0.,  3.0*Pi, 4*Pi, -12/5*I]);
                           [0, 1, 1, -3, 1, 1, 4, 1]
Please Wait...