MathGroup Archive 2006

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

Search the Archive

Re: On Reduce


BInv={{1/4, 1/4, 0},
      {-1/2, 1/2, 0},
      {3/4, -5/4, 1}};
B=Inverse[BInv];
b={4 + \[Delta], 8, 10};
BInv.b // Simplify;
ineq=Reduce[Thread[% >= 0], \[Delta]]/.
      {\[Delta] -> b1-4} // Simplify

0 <= b1 <= 8

{First@ineq, Last@ineq}

{0,8}

Cases[ineq, _?NumericQ]

{0,8}


Bob Hanlon

---- Virgil Stokes <vs at it.uu.se> wrote: 
> I have the following small piece of Mathematica code that works fine for 
> my purposes.
> 
>  BInv = {{  1/4, 1/4, 0},
>               {-1/2, 1/2, 0},
>               {  3/4, -5/4, 1}}
>  B = Inverse[BInv]
>  b = {4 + \[Delta], 8, 10};
>  BInv.b // FullSimplify
>  Reduce[{%[[1]] >= 0, %[[2]] >= 0, %[[3]] >= 0}, {\[Delta]}]
>  % /. {\[Delta] -> b1 - 4} // FullSimplify
> 
> which gives
> 
> 0 <=  b1 <= 8
> 
> which is of course correct. But, how can I use (access) the values 0 and 8?
> That is, I would like to now use these values in some expressions that 
> would follow this.
> 
> Thanks,
> V. Stokes
> 


  • Prev by Date: Re: Problem with text rendering on Linux.
  • Next by Date: Re: General--Mathematica and Subversion
  • Previous by thread: Re: On Reduce
  • Next by thread: Re: On Reduce