MathGroup Archive 1992

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

Search the Archive

Re: Evaluating Min[2^(1/2), 3^(1/2)]


"Roger B. Kirchner" <kirchner at cs.umn.edu> asks:

> I would like a way to explicitly find the minimum of a list of exact
> numbers.  Is there a way to get Min[2^(1/2), 3^(1/2)] to evaluate to
> 2^(1/2)?



ExactMin[data_List] := Module[{numlist=N[data]},
	data[[Flatten[Position[numlist,Min[numlist],{1},1]]]]]

This isn't fancy enough to deal the things that don't evalute to
numbers without getting internal errors.  But it works for what you
ask for.

  -- David Jacobson





  • Prev by Date: Plotting curves using different markers
  • Next by Date: MMA/postscript/Textures
  • Previous by thread: Evaluating Min[2^(1/2), 3^(1/2)]
  • Next by thread: Two questions