
Re: Automatic solving of unprepared polynomial equation systems?
Posted:
Mar 31, 2013 4:01 PM


On 3/31/2013 10:24 AM, Axel Vogt wrote: > On 31.03.2013 16:15, IV wrote: > > ... > > [c1=A*B/C, c2=C*A/D, D=c3A, C=AB]; > solve(%, [A, B, C, D]); > > Maple 17 solves it, using roots of a cubic (and ignoring > cases where a denominatror may vanish). > >
Mathematica V 9.01 solves it as well. But D and A are reserved. So changed them to lower cases.
 eq1 = c1 == A*B/c; eq2 = c2 == c*A/d; eq3 = d == c3  A; eq4 = c == A  B; Solve[{eq1, eq2, eq3, eq4}, {A, B, c, d}] 
The answer is too long to post here.
Reduce can be attempted also here:
Reduce[{eq1, eq2, eq3, eq4}, {A, B, c, d}]
"Reduce reduces the statement by solving equations or inequalities for vars and eliminating quantifiers."
screen shot, with Maple answer
http://12000.org/tmp/033113/solve.png
Nasser

