Forums before death by AOL, social media and spammers... "We can't have nice things"
|    sci.math.symbolic    |    Symbolic algebra discussion    |    10,432 messages    |
[   << oldest   |   < older   |   list   |   newer >   |   newest >>   ]
|    Message 8,555 of 10,432    |
|    clicliclic@freenet.de to Waldek Hebisch    |
|    Re: variable elimination from polynomial    |
|    06 Apr 14 18:26:10    |
      Waldek Hebisch schrieb:       >       > Using lexicographic order seem to take a lot of time and       > memory. Using elimination order (homogeneous in blocks) in       > FriCAS I get only one polynomial in elimination ideal:       >       > (x4^6+(25/16)*x4^4+(625/768)*x4^2+(15625/110592))*x3^9+(-4*x4^7+(-245/48)*x4       > ^5+(-2375/1152)*x4^3+(-3125/12288)*x4)*x3^8+((85/12)*x4^8+(527/72)*x4^6+(2309       > 5/9216)*x4^4+(31625/73728)*x4^2+(3125/55296))*x3^7+((-787/108)*x4^9+(-439/72)       > *x4^7+(-19543/9216)*x4^5+(-63125/110592)*x4^3+(-625/8192)*x4)*x3^6+((691/144)       > *x4^10+(119/36)*x4^8+(77375/55296)*x4^6+(28571/65536)*x4^4+(4075/73728)*x4^2+       > (625/110592))*x3^5+((-151/72)*x4^11+(-179/144)*x4^9+(-6241/9216)*x4^7+(-11683       > 3/589824)*x4^5+(-32335/884736)*x4^3+(-125/24576)*x4)*x3^4+((1051/1728)*x4^12+       > (773/2304)*x4^10+(15941/73728)*x4^8+(3059/49152)*x4^6+(5011/294912)*x4^4+(235       > /147456)*x4^2+(125/884736))*x3^3+((-65/576)*x4^13+(-37/576)*x4^11+(-9085/2211       > 84)*x4^9+(-2309/147456)*x4^7+(-123/32768)*x4^5+(-187/442368)*x4^3+(-25/294912       > )*x4)*x3^2+((7/576)*x4^14+(97/12288)*x4^12+(49/12288)*x4^10+(139/49152)*x4^8+       > (91/442368)*x4^6+(79/589824)*x4^4+(1/98304)*x4^2)*x3+((-1/1728)*x4^15+(-17/36       > 864)*x4^13+(-5/36864)*x4^11+(-35/147456)*x4^9+(1/49152)*x4^7+(-1/65536)*x4^5)       >              Thanks for the private message. Meanwhile I have sped matters up by       teaching Derive how to do resultants:              resultant(f, g, x, n, m, a, h) := PROG(        n := POLY_DEGREE(f, x),        m := POLY_DEGREE(g, x),        IF(n > m,        RETURN (-1)^(n*m)*resultant(g, f, x),        PROG(        a := POLY_COEFF(f, x, n),        IF(n = 0,        RETURN a^m,        PROG(        h := REMAINDER(g, f, x),        IF(IDENTICAL?(h, 0),        RETURN 0,        RETURN a^(m - POLY_DEGREE(h, x))*resultant(f, h, x)))))))              Running resultant(resultant(lhs1, lhs2, x1), lhs3, x2) gives a result       quite similar to yours, albeit squared:              4194304*(16*x3^9*(110592*x4^6 + 172800*x4^4 + 90000*x4^2 + 15625)       - 48*x3^8*x4*(147456*x4^6 + 188160*x4^4 + 76000*x4^2 + 9375)       + 8*x3^7*(1566720*x4^8 + 1618944*x4^6 + 554280*x4^4 + 94875*x4^2       + 12500) - 8*x3^6*x4*(1611776*x4^8 + 1348608*x4^6 + 469032*x4^4       + 126250*x4^2 + 16875) + x3^5*(8491008*x4^10 + 5849088*x4^8       + 2476000*x4^6 + 771417*x4^4 + 97800*x4^2 + 10000)       - x3^4*x4*(3710976*x4^10 + 2199552*x4^8 + 1198272*x4^6 + 350499*x4^4       + 64670*x4^2 + 9000) + 2*x3^3*(538112*x4^12 + 296832*x4^10       + 191292*x4^8 + 55062*x4^6 + 15033*x4^4 + 1410*x4^2 + 125)       - 2*x3^2*x4*(99840*x4^12 + 56832*x4^10 + 36340*x4^8 + 13854*x4^6       + 3321*x4^4 + 374*x4^2 + 75) + x3*x4^2*(21504*x4^12 + 13968*x4^10       + 7056*x4^8 + 5004*x4^6 + 364*x4^4 + 237*x4^2 + 18)       - x4^5*(1024*x4^10 + 816*x4^8 + 240*x4^6 + 420*x4^4 - 36*x4^2       + 27))^2              The squaring doesn't worry me, but that the factors are not fully       proportional does very much. Could there be a bug somewhere?              Martin.              PS: Alas, my bivariate polynomial doesn't factor, nor does the next       higher one. The polynomials do possess an expected property, though -       they have no solutions for x3 >= 0, x4 <= 0 except [0,0] - but without       some simple common structure, this property seems hopeless to establish       for all orders.              --- SoupGate-Win32 v1.05        * Origin: you cannot sedate... all the things you hate (1:229/2)    |
[   << oldest   |   < older   |   list   |   newer >   |   newest >>   ]
(c) 1994, bbs@darkrealms.ca