MathGroup Archive 2011

[Date Index] [Thread Index] [Author Index]

Search the Archive

Solve[] with inequalities


I have the following problem parameters:

cl1 = 0.2; ch1 = 0.7; m1 = 0.65;
cl2 = 0.4; ch2 = 0.5; m2 = 0.3;

When I use the call

In[90]:= Solve[{D[(a - (w1 + ch2))^2/(4 b) (w1 - cl1)^2/((ch1 - cl1)
(m1 - cl1)) ((ch2 - cl2)/(ch2 - cl2)), w1] == 0 && w1 > 0.2}, {w1},
Reals, VerifySolutions -> True]

I get
Out[90]= {{w1 -> 0.5}}

But when I use the call

In[91]:= Solve[{D[(a - (w1 + ch2))^2/(4 b) (w1 - cl1)^2/((ch1 - cl1)
(m1 - cl1)) ((ch2 - cl2)/(ch2 - cl2)), w1] == 0 && w1 > 0.0}, {w1},
Reals, VerifySolutions -> True]

I get
Out[91]= {{w1 -> 0.2}, {w1 -> 0.35}, {w1 -> 0.5}}

Clearly, 0.3 is a solution to the first call, but it disappears in the
first call. Any ideas why? Is this a bug in the code?

Thanks,

Enis.



  • Prev by Date: mathematica antialiasing quality has no influence
  • Next by Date: Re: Baffled by notebook history
  • Previous by thread: Re: mathematica antialiasing quality has no influence
  • Next by thread: Re: Solve[] with inequalities