Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1997
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 1997

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

Search the Archive

Re: Complex Numbers

  • To: mathgroup at smc.vnet.net
  • Subject: [mg5963] Re: Complex Numbers
  • From: "John L. Seger" <jseger at cybertours.com>
  • Date: Wed, 5 Feb 1997 21:12:01 -0500
  • Organization: cyberTours Inc. (cyberTours.com)
  • Sender: owner-wri-mathgroup at wolfram.com

>
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