Synopsis:
See also:
Code:
-- ../../../Macaulay2/m2/enginering.m2:208-212 RingElement _ ZZ := RingElement => (f,d) -> ( u := select(terms f, t -> d === sum degree t); if #u === 0 then 0_(ring f) else sum u )