Polynomial.factorSquareFree

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

CompiledName: FactorSquareFree

Описание

pulls out any multiple factors in a polynomial.

Пример

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

let print = Infix.format >> printfn "%s"

let expr = "x^5 - x^3 - x^2 + 1" |> Infix.parseOrUndefined
let x = symbol "x"

print expr

expr
|> Polynomial.factorSquareFree x
|> print

Вывод

1: 
2:

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