There is a redundant line in the code, or is this doing something?
pol_root(p : P, op : OP, n : N) : F ==
cp : R := content(p)$P
cp::F <--------------
pp := (p exquo cp::P)::P
fp_root(factor(pp)$MPfact, op, n)
*fp_root(map(x +-> x::P, factor(cp)
)$FactoredFunctions2(R, P), op, n)
https://github.com/fricas/fricas/blob/master/src/algebra/manip.spad#L357
Ralf
--
You received this message because you are subscribed to the Google Groups "FriCAS -
computer algebra system" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to [email protected].
To view this discussion on the web visit
https://groups.google.com/d/msgid/fricas-devel/48c25a2e-53f6-469e-99f6-a6053057fa84%40hemmecke.org.
