RE: How can solue the inequation system in mathematica

• To: mathgroup at smc.vnet.net
• Subject: [mg34758] RE: [mg34728] How can solue the inequation system in mathematica
• From: "DrBob" <majort at cox-internet.com>
• Date: Wed, 5 Jun 2002 03:38:16 -0400 (EDT)
• Sender: owner-wri-mathgroup at wolfram.com

Here's a little code and a plot to get you started:

Needs["Graphics`InequalityGraphics`"]
ineq = {2*x^3 + y^ +1 > 0,
5*x^2 - y^2 + 5 < 0};
eqns = {x, y /. #} & /@
Flatten[Solve[#, y] & /@ (ineq /. {Greater -> Equal, Less ->
Equal})]
xRange = {x, -10, 10};
yRange = {y, -20, 20};
Show[{
ParametricPlot[Evaluate[eqns], Evaluate[xRange],
DisplayFunction -> Identity],
InequalityPlot[ineq, Evaluate[xRange], Evaluate[yRange],
DisplayFunction -> Identity]},
PlotRange -> {Rest[xRange], Rest[yRange]},
ImageSize -> 400,
DisplayFunction -> \$DisplayFunction]

One issue you face is "What does a solution look like?"  A picture?  A
dichotomy of the solution set?  If the latter, you can find
intersections of the equality curves and, based on those, state the
solution set in y for each range of x values (or in x for each range of
y values).

Bobby Treat

-----Original Message-----
From: DrBob [mailto:majort at cox-internet.com]
To: mathgroup at smc.vnet.net
Subject: [mg34758] RE: [mg34728] How can solue the inequation system in
mathematica

Check out the InequalityGraphics package (Addons>Standard
Packages>Graphics>InequalityGraphics in Help), and you can also try
InequalityInstance in the Developer package.

I think you'll have to figure it out yourself, with Mathematica's help.
For instance, in the problem you've listed below, you can fix x and
solve the corresponding equations for y, and figure out from that what
range of y values are feasible for that x.  You can do the similar thing
fixing x and solving for y.  You might even make it fairly automatic, as
InequalityGraphics has done.

Bobby

-----Original Message-----
From: MailPhys [mailto:physics.nsu at bdvn.vnd.net]
To: mathgroup at smc.vnet.net
Subject: [mg34758] [mg34728] How can solue the inequation system in mathematica

Dear friends
This my question. How can I solve the Inequation system in mathematica.
I haven't seen any command for that
for example
2*x^3 +y^ +1 >0
5*x^2 -y^2+5<0

If you  know that , please point out to me
Thank you

• Prev by Date: RE: Re: Re: Function as an argument of the function
• Next by Date: NMinimize function
• Previous by thread: RE: How can solue the inequation system in mathematica
• Next by thread: RE: How can solue the inequation system in mathematica