Services & Resources / Wolfram Forums / MathGroup Archive

MathGroup Archive 2008

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

Search the Archive

Re: Symbols in expression

  • To: mathgroup at
  • Subject: [mg89098] Re: Symbols in expression
  • From: Andrzej Kozlowski <akoz at>
  • Date: Sun, 25 May 2008 06:27:24 -0400 (EDT)
  • References: <>

On 25 May 2008, at 16:22, sigmundv at wrote:

> Dear all,
> Define, say,
> r = {Cos[u] Sin[v],Sin[u] Sin[v],Cos[v]}.
> How can I write a function, which takes r as an argument and returns a
> list {u,v}? If we defined r[u_,v_]:=... it could be achieved fairly
> easily using DownValues. But how can I achieve it in this case?
> Kind regards,
> Sigmund Vestergaard

Your question is far from clear, but this pehraps might be what you  
are lookign for:

r = {Cos[u] Sin[v], Sin[u] Sin[v], Cos[v]};

Union[Cases[r, _Symbol?(Not[NumericQ[#]] &), {-1}]]

{u, v}

The Not[NumericQ[#]] & part is needed in case you r was something like:

r = {Cos[2Pi u] Sin[2Pi v], Sin[2Pi u] Sin[2Pi v], Cos[2 Pi v]};

Andrzej Kozlowski

  • Prev by Date: Re: NDSolve limits
  • Next by Date: Re: Symbols in expression
  • Previous by thread: Symbols in expression
  • Next by thread: Re: Symbols in expression