*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