> > 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
I have put a new version at: http://www.math.uni.wroc.pl/~hebisch/fricas/dcfact4.input Now, on my machine: (357) -> dc_fact(h2323) (357) [- 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: 1.12 (EV) = 1.12 sec Code tries to solve linear equations if possible, so in this case does not need to call 'solve'. But there are many special cases so more space where bugs can hide... -- Waldek Hebisch -- 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 post to this group, send email to [email protected]. Visit this group at https://groups.google.com/group/fricas-devel. For more options, visit https://groups.google.com/d/optout.
