How to save time with InequalitySolve
- To: mathgroup at smc.vnet.net
- Subject: [mg30305] How to save time with InequalitySolve
- From: zylootino at yahoo.fr (Nathan ZYLBERSZTEJN)
- Date: Wed, 8 Aug 2001 01:33:59 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
Hi,
I want Mathematica to solve this system of inequalities. When I try
the following expressions, Mathematica is gone for hours and never
stops. How can I solve my system in a reasonable time?
InequalitySolve[
-((-8*c*(-1 + d) + Sqrt[2 - 2*d]*
Sqrt[-4*c^2*(-2 + 5*d) + 3*d*(2 - 3*d + d^2)])*
(-4*c^2*(2 + d) + 3*d*(2 - 3*d + d^2) +
2*c*Sqrt[2 - 2*d]*Sqrt[-4*c^2*(-2 + 5*d) +
3*d*(2 - 3*d + d^2)]))/(54*c*(-2 + d)^2*d*
(-1 + 2*c + d)) > (4*Sqrt[2/3])/3 && 1 > c > 0 &&
1 > d > 0, {d, c}]
Thanks a lot
Nathan ZYLBERSZTEJN