MathGroup Archive 1997

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

Search the Archive

Re: Complex Numbers

This may be a rather verbose method, but it works for me,

note: x is a list of real and complex entities

GetReal[x_] := Select[Cases[Map[#[[2]]&, Flatten[x]],_Real],#>0&][[1]];

This will give you the first real, non-negative result.

I hope this helps.

  • Prev by Date: Re: html
  • Next by Date: Re: Laplace Transforms
  • Previous by thread: Re: html
  • Next by thread: Re: implizit function