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
>> would follow this.
>>
>> 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>
- On Reduce