getMultiplicityPoly <-
function(elements, multiplicity){
num <- getSimplePolyProduct(elements, multiplicity)
denom <- getSimplePolyProduct(multiplicity, multiplicity)
return(as.numeric(as.polynomial(num)/denom))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.