That looks great! As a performance test I tried this:
(79) -> h2323:=((h2*h3*h2*h3)^2); Type: XDistributedPolynomial(OrderedVariableList([x,y,z,w,x1,x2,x3,x4,x5]),Fraction(Integer)) Time: 0.00 (IN) + 2.71 (EV) + 0.00 (OT) = 2.71 sec (80) -> dc_fact h2323 (80) [- y x + x y, - z y x + z x y + y z x - y x z - x z y + x y z, - y x + x y, - z y x + z x y + y z x - y x z - x z y + x y z, - y x + x y, - z y x + z x y + y z x - y x z - x z y + x y z, - y x + x y, - z y x + z x y + y z x - y x z - x z y + x y z] Type: List(XDistributedPolynomial(OrderedVariableList([x,y,z,w,x1,x2,x3,x4,x5]),Fraction(Integer))) Time: 0.00 (IN) + 315.56 (EV) + 0.13 (OT) = 315.69 sec Although you have already pointed out that this code is not yet optimized I think it is interesting to compare this with Konrad's program that produces the following result on the same problem: (54) -> h2323:=((h2*h3*h2*h3)^2); Type: FreeDivisionAlgebra(OrderedVariableList([x,y,z,w,x1,x2,x3,x4,x5]),Fraction(Integer)) Time: 0.00 (IN) + 0.37 (EV) + 0.00 (OT) = 0.37 sec (55) -> map(x+->x::XDP,factor h2323) (55) [y x - x y, z y x - z x y - y z x + y x z + x z y - x y z, - y x + x y, - z y x + z x y + y z x - y x z - x z y + x y z, y x - x y, z y x - z x y - y z x + y x z + x z y - x y z, - y x + x y, - z y x + z x y + y z x - y x z - x z y + x y z] Type: List(XDistributedPolynomial(OrderedVariableList([x,y,z,w,x1,x2,x3,x4,x5]),Fraction(Integer))) Time: 0.00 (IN) + 25.45 (EV) + 0.01 (OT) = 25.46 sec --- On Mon, Nov 12, 2018 at 4:09 PM Waldek Hebisch <hebi...@math.uni.wroc.pl> wrote: > > ... > Thanks for testcases (this one and from other post). I overlooked > a case when lift equation has unique solution, but the simple > method used by 'dc_fact1' found wrong one. Now those cases > are hanlded like cases with non-unique solution and passed to > 'solve' to sort out. New version at: > > http://www.math.uni.wroc.pl/~hebisch/fricas/dcfact3.input > > -- -- 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 fricas-devel+unsubscr...@googlegroups.com. To post to this group, send email to fricas-devel@googlegroups.com. Visit this group at https://groups.google.com/group/fricas-devel. For more options, visit https://groups.google.com/d/optout.