Hi. Same idea as others, but with the use of '?.
data = {1 + 3I, 2, 1 - 3I};
data /. z_?NumericQ -> {Re[z], Im[z]}
{{1, 3}, {2, 0}, {1, -3}}
--
HTH :>)
Dana DeLouis
Mathematica 5.2 Windows Xp.
<planetmarshalluk at hotmail.com> wrote in message
news:elosbs$ojk$1 at smc.vnet.net...
> Hi there,
>
> I have a list of mixed complex and real numbers returned from a function,
e=
> g
>
> {1+3i, 2, 1-3i}
>
> I wish to convert the list to a list of points.
>
> {1+3i,2,1-3i} /. z_Complex->{Re[z],Im[z]}
>
> gives
>
> {{1,3},2,{1,-3}}
>
> Which is almost what I want, but has not dealt with the possibility of
non-=
> complex numbers in the list. Is there a compact way of doing this, such
wit=
> h a list of rules? Nothing obvious seems to work, the only success I have
h=
> ad is splitting the list into real and complex sublists, applying rules to
=
> each list individually and then recombining them, which seems like an
awful=
> lot of hard work.
>
> What I want is
> toPoints[{1+3i, 2, 1-3i}] == {{1,3},{2,0},{1,-3}}
>
> Any help appreciated,
> Thanks.
>
> Andrew.
>