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

Re: Help

• To: mathgroup@smc.vnet.net
• Subject: [mg11164] Re: [mg11115] Help
• From: Tomas Garza <tgarza@mail.internet.com.mx>
• Date: Wed, 25 Feb 1998 03:31:40 -0500

Colin wrote:

> I have 3 solutions for a which are
> {a -> 32, a -> -22, a -> 49}.

>I want to use the positive answer to sub in a folowing equation.

>The code that I wrote is

>  aList = Re[Last/@Flatten[%]];
>  aList = Select[%, #>0 &];*)

>  For[
>   m = 1, m < size, m++, aList[[m]]
>  ];

Colin,
Most likely your solutions will be in the form

b = {{a -> 32}, {a -> -22}, {a -> 49}}

If you want to pick the positive values, try

In[1]:= Select [Table[a/.b[[j]], {j,1,3}], # > 0 &]

Out[1]= {32, 49}

Good luck,

Tomas Garza
Mexico City