Re: On Reduce

• To: mathgroup at smc.vnet.net
• Subject: [mg72173] Re: [mg72011] On Reduce
• From: Virgil Stokes <vs at it.uu.se>
• Date: Wed, 13 Dec 2006 06:42:23 -0500 (EST)
• References: <200612081118.GAA20205@smc.vnet.net> <B874AACE-F0C2-4869-9588-5B3DDBBB8183@mimuw.edu.pl>

```Andrzej Kozlowski wrote:
>
> On 8 Dec 2006, at 20:18, Virgil Stokes 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
>>
>> Thanks,
>> V. Stokes
>>
>
>
> Do you mean you wan tot extract the pair {0,8} as a list? There are
> lots of way, e.g.
>
>
> Cases[%,_?NumericQ]
>
> {0,8}
>
> Andrzej Kozlowski
Very nice Andrzej,

It is clear I need to study Mathematica more.

--Thanks,
V

```

• References:
• On Reduce
• From: Virgil Stokes <vs@it.uu.se>
• Prev by Date: Re: Two suggestions for Wolfram Workbench
• Next by Date: Re: it seems like InequalityPlot can only handle a color
• Previous by thread: Re: On Reduce
• Next by thread: Re: On Reduce