Re: how to find minimum value.

*To*: mathgroup at smc.vnet.net*Subject*: [mg94959] Re: [mg94945] how to find minimum value.*From*: Bob Hanlon <hanlonr at cox.net>*Date*: Thu, 1 Jan 2009 07:25:37 -0500 (EST)*Reply-to*: hanlonr at cox.net

a = Solve[x^2 + 3 x + 1 == 0] {{x -> (1/2)*(-3 - Sqrt[5])}, {x -> (1/2)*(Sqrt[5] - 3)}} Select[a, #[[1, 2]] == Min[a[[All, 1, 2]]] &][[1]] {x -> (1/2)*(-3 - Sqrt[5])} or Min[x /. Solve[x^2 + 3 x + 1 == 0]] (1/2)*(-3 - Sqrt[5]) Bob Hanlon On Wed, Dec 31, 2008 at 11:28 AM , mssivava wrote: > Hi everyone, > > For instance, lets assume that we have an equation like > a = Solve[x^2 + 3 x + 1 == 0] > > the solution gives 2 x values as > > {{x -> 1/2 (-3 - Sqrt[5])}, {x -> 1/2 (-3 + Sqrt[5])}} > > Which function can I use to find the min x? (Min[] or FindMimimum[] is > not working) > > In my real question, I have more than 50 values. So I need to find a > mathematica function to find the minimum value from 50 automatically. > > Thank you very much.