Mathematica 9 is now available
Student Support Forum
-----
Student Support Forum: 'InequalitySolve Problem' topicStudent Support Forum > General > Archives > "InequalitySolve Problem"

Next Comment >Help | Reply To Topic
Author Comment/Response
Andy R. Eshaghi
03/18/00 06:20am

I have written a set of equations for solving a nonlinear
inequality and mathematica returns no answer! Just wondering if someone can elaborate on why this happens.

<< ''Algebra`InequalitySolve`''

f = {{I23*x2*x3}, {I31*x1*x3 - x2 + p1*x1^2 + p2*x1^3},
{I12*x1*x2 - x3 + q1*x1^2 + q2*x1^3}} /. {p1 -> 0, I23 -> -1, I31 -> 1, I12 -> -3^(-1)};
h1 = p1*x1^2 + (p2 + I31*q1)*x1^3 /. {p1 -> 0, I23 -> -1, I31 -> 1, I12 -> -3^(-1)};
h2 = q1*x1^2 + (q2 + I12*p1)*x1^3 /. {p1 -> 0, I23 -> -1, I31 -> 1, I12 -> -3^(-1)};
w1 = x2 - h1;
w2 = x3 - h2;
V = 0.5*x1^2 + Sqrt[{{w1, w2}} . {{1/2, 0}, {0, 1/2}} . {{w1}, {w2}}];
PV = {D[V, x1], D[V, x2], D[V, x3]};
ParV = {{PV[[1,1,1]]}, {PV[[2,1,1]]}, {PV[[3,1,1]]}};
Vdot = FullSimplify[Transpose[ParV] . f]
InequalitySolve[Vdot < 0, {x1, x2, x3, p2, q1, q2}]

URL: ,

Subject (listing for 'InequalitySolve Problem')
Author Date Posted
InequalitySolve Problem Andy R. Esha... 03/18/00 06:20am
Re: InequalitySolve Problem Forum Modera... 03/18/00 07:58am
Re: InequalitySolve Problem Andy R. Esha... 04/04/00 06:27am
Re: InequalitySolve Problem Forum Modera... 04/04/00 06:34am
Re: InequalitySolve Problem Shawn Cokus 03/20/00 05:29am
Next Comment >Help | Reply To Topic