MathGroup Archive 2002

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

Search the Archive

RE: Getting Symbolic Real and Imag Parts? (Once Again)

  • To: mathgroup at smc.vnet.net
  • Subject: [mg33498] RE: [mg33443] Getting Symbolic Real and Imag Parts? (Once Again)
  • From: "Higinio Ramos" <higra at usal.es>
  • Date: Sun, 24 Mar 2002 01:43:51 -0500 (EST)
  • References: <200203211427.JAA18200@smc.vnet.net>
  • Reply-to: "Higinio Ramos" <higra at usal.es>
  • Sender: owner-wri-mathgroup at wolfram.com

A way for doing what you want:
In[18]:=
Simplify[Re[Cosh[b] Sin[a] + I Cos[a] Sinh[b]],{a>0,b>0}]
Out[18]=
Cosh[b] Sin[a]
In[19]:=
Simplify[Im[Cosh[b] Sin[a] + I Cos[a] Sinh[b]],{a>0,b>0}]
Out[19]=
Cos[a] Sinh[b]

Higinio
----- Original Message -----
From: aes <siegman at stanford.edu>
To: mathgroup at smc.vnet.net
Subject: [mg33498] [mg33443] Getting Symbolic Real and Imag Parts? (Once Again)


> OK,  so you can use ComplexExpand expand to find the symbolic real and
imag
> parts of an expression -- e.g. the input
>
>       zComplex = ComplexExpand[ Sin[a+I b], TargetFunctions->{Re,Im}]
>
> gives as output
>
>       Cosh[b] Sin[a] + I Cos[a] Sinh[b]
>
> as desired.  But now, how do I get Mathematica to peel out the
symbolically real and
> imaginary parts of this? -- that is, what inputs
>
>       zR = ???
>
>       zI = ???
>
> will give as outputs
>
>       Cosh[b] Sin[a]
>
> and
>
>       Cos[a] Sinh[b]
>
> (Maybe an example in the ComplexExpand Help file would be helpful?)
>
>



  • Prev by Date: Re: Getting Symbolic Real and Imag Parts? (Once Again)
  • Next by Date: 2 Parts is faster than 1...
  • Previous by thread: Getting Symbolic Real and Imag Parts? (Once Again)
  • Next by thread: Re: Getting Symbolic Real and Imag Parts? (Once Again)