Rational.simplify

1:	`val simplify: symbol : Expression -> x : Expression -> Expression`

CompiledName: Simplify

Описание

Упрощает дробь относительно заданного символа

Пример

 1: 
 2: 
 3: 
 4: 
 5: 
 6: 
 7: 
 8: 
 9: 
10:

let expr = "(x+2)/(x+1) + (x-1)/(x-2)" |> Infix.parseOrUndefined
let sim = expr |> Rational.simplify (symbol "x")

expr
|> Infix.format
|> printfn "%s"

sim
|> Infix.format
|> printfn "%s"

Вывод

1: 
2:

(-1 + x)/(-2 + x) + (2 + x)/(1 + x)
(-5 + 2*x^2)/(-2 - x + x^2)