Converts an algebraic system to a polynome by eliminating variables

Converts an algebraic system to a polynome by eliminating variables

Usage

createPolynom(f, elimVars)

Arguments

f

is a function defining the algebraic system

elimVars

is a character vector defining the variables which have to be eliminated

Value

the resulting polynome of the elimination

Examples

f <- function() {
  h + hd + -h0 = 0
  d + hd -d0 = 0   
  hd / (h*d) -kd = 0
}
elimVars <- c("h", "d")
createPolynom(f, elimVars)
#> (hd^2 + (-h0 - d0) * hd + d0 * h0) * kd - hd