(p <- mp("x y^2 + x (x+1) (x+2) x z + 3 x^10"))
p[2]
p[-2]
p[2:3]
LT(p)
LC(p)
LM(p)
multideg(p)
totaldeg(p)
monomials(p)
monomials(p, unit = TRUE)
coef(p)
p[1:2]
coef_lift(p[1:2])
exponents(p)
exponents(p, reduce = TRUE)
lapply(exponents(p), is.integer)
homogeneous_components(p)
(p <- mp("(x + y)^2"))
normalize_coefficients(p)
norm <- function(v) sqrt(sum(v^2))
norm(coef( normalize_coefficients(p) ))
abs_norm <- function(x) sum(abs(x))
normalize_coefficients(p, norm = abs_norm)
p <- mp(c("x", "2 y"))
normalize_coefficients(p)
# normalize_coefficients on the zero polynomial returns the zero polynomial
normalize_coefficients(mp("0"))
Run the code above in your browser using DataLab