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... > >