MathGroup Archive 2003

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

Search the Archive

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


  • Prev by Date: Re: exponent_decay_of_fourier_fransform_of_brownian_motion
  • Next by Date: Re: help with 3D scatter plot
  • Previous by thread: make a list
  • Next by thread: Taking a function as a parameter of a function