Re: make a list
- To: mathgroup at smc.vnet.net
- Subject: [mg41928] Re: make a list
- From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
- Date: Tue, 10 Jun 2003 04:46:58 -0400 (EDT)
- Organization: Universitaet Leipzig
- References: <bbq8hl$d6s$1@smc.vnet.net>
- Reply-to: kuska at informatik.uni-leipzig.de
- Sender: owner-wri-mathgroup at wolfram.com
Hi,
> I have the following lists from solve:
> {{p -> 1.03536, M -> 1.96464}, {p -> 1.77981, M -> 1.22019}, {
> p -> 2.94439, M -> 0.0556147}}
>
> all of those {P,M} pairs are corresponding to one single value of t
>
> Now I want to make a list of {p,m,t} pairs and show it in 3D, how can I do
> it?
{t, p, M} /. {{p -> 1.03536, M -> 1.96464}, {p -> 1.77981,
M -> 1.22019}, {p -> 2.94439, M -> 0.0556147}}
???
>
> And also, some t will correspond to one real pair of {P,M} and 2 complex
> pairs of {P,M}, such as:
>
> {p -> 15.9418, M -> 34.0582}, {p ->
> 49.4712\[InvisibleSpace] - 0.898763 \[ImaginaryI], M -> 0.528762\
> \[InvisibleSpace] + 0.898763 \[ImaginaryI]}, {p -> 49.4712\[InvisibleSpace]
> +
> 0.898763 \[ImaginaryI], M -> 0.528762\[InvisibleSpace] -
> 0.898763 \[ImaginaryI]}
>
> How can I detect if this pair is complex or real and then decide that we
> only show the real one?
Select[{t, p, M} /. {{p -> 15.9418, M -> 34.0582},
{p -> 49.4712 - 0.898763*I,
M -> 0.528762 + 0.898763*I},
{p -> 49.4712 + 0.898763*I,
M -> 0.528762 - 0.898763*I}}, FreeQ[#1, Complex] & ]
Regards
Jens