MathGroup Archive 2006

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

Search the Archive

Re: Separation of variables scheme

  • To: mathgroup at smc.vnet.net
  • Subject: [mg64004] Re: [mg63988] Separation of variables scheme
  • From: Bob Hanlon <hanlonr at cox.net>
  • Date: Fri, 27 Jan 2006 05:13:15 -0500 (EST)
  • Reply-to: hanlonr at cox.net
  • Sender: owner-wri-mathgroup at wolfram.com

Cosh[x+I*y]//TrigExpand

Cos[y]*Cosh[x] + I*Sin[y]*Sinh[x]

expr=A[x]*B[y]*R[x]*S[y];

f1[x_]=Select[expr,FreeQ[#,y]&]

A[x]*R[x]

g1[y_]=Select[expr,FreeQ[#,x]&]

B[y]*S[y]

expr==f1[x]*g1[y]

True


Bob Hanlon

> 
> From: "cosmicstring" <cosmicstring at gmail.com>
To: mathgroup at smc.vnet.net
> Subject: [mg64004] [mg63988] Separation of variables scheme
> 
> I have two related questions
> 
> 1) I have functions like Cosh[x+Iy] (I being Sqrt[-1]) and I want to
> decompose it to two functions, one depending only on x and the other
> depending only on y.
> 
> 2) I have this kind of function:
> 
> A[x] B[y] R[x] S[y]
> 
> and I want to decompose it to functions depending only one variable
> such as
> 
> f1[x]=A[x] R[x]
> g1[y]=B[y] S[y]
> 
> (Separation of variables scheme)
> 
> What command(s) should I use?
> 
> Thanks in advance...
> 
> 


  • Prev by Date: Re: Re: SetPrecision causes logical comparisons to fail in Mathematica 5.1 on Mac OS X?
  • Next by Date: Re: deleting cells in mathematica
  • Previous by thread: Re: Separation of variables scheme
  • Next by thread: implementation of Granger causality tests in Mathematica