Re: Problem
- To: mathgroup at smc.vnet.net
- Subject: [mg33556] Re: [mg33541] Problem
- From: Andrzej Kozlowski <andrzej at bekkoame.ne.jp>
- Date: Sun, 31 Mar 2002 04:09:03 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
Assuming I have understood what you mean by "replicate the above"
correctly the following should be what you are looking for:
In[1]:=
<<Algebra`InequalitySolve`
In[2]:=
InequalitySolve[a*(b-c)/d>0&&a>0&&d>0,{b,c,a,d}]
Out[2]=
c<b&&a>0&&d>0
In[3]:=
InequalitySolve[a*(b-c)/d<0&&a>0&&d>0,{b,c,a,d}]
Out[3]=
c>b&&a>0&&d>0
Andrzej Kozlowski
Toyama International University
JAPAN
http://platon.c.u-tokyo.ac.jp/andrzej/
On Friday, March 29, 2002, at 08:13 PM, Anastasius Moumtzoglou wrote:
> Suppose that I have the following equation:
>
> x=a*(b-c)/d
>
> If I already know that "a" and "d" are positive then "x" could be
> positive if b>c and negative if b<c.
>
> So, my question is how to replicate the above, using Mathematica, in
> really complex equations?
>
> Thank you very much for your time and help!
>
> Anastasius Moumtzoglou
>
>
>