AW: exponentials to sines and cosines
- To: mathgroup at smc.vnet.net
- Subject: [mg42642] AW: [mg42603] exponentials to sines and cosines
- From: Matthias.Bode at oppenheim.de
- Date: Sat, 19 Jul 2003 03:19:27 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
Hello Will, ExpToTrig[(1 + E^(x + (-1)^(1/3)*x) + E^((-1)^(1/3)*x + (-1)^(2/3)*x))/E^((-1)^(1/3)*x)] does the trick: (Cosh[(-1)^(1/3)*x] - Sinh[(-1)^(1/3)*x])*(1 + Cosh[x + (-1)^(1/3)*x] + Cosh[(-1)^(1/3)*x + (-1)^(2/3)*x] + Sinh[x + (-1)^(1/3)*x] + Sinh[(-1)^(1/3)*x + (-1)^(2/3)*x]) Best regards, Matthias Bode. -----Ursprüngliche Nachricht----- Von: Will Self [mailto:wself at msubillings.edu] Gesendet: Freitag, 18. Juli 2003 11:25 An: mathgroup at smc.vnet.net Betreff: [mg42603] exponentials to sines and cosines 1. How do I get Mathematica to rewrite (-1)^(1/3) in standard rectangular form? 2. The following function was returned by Mathematica as the solution of a differential equation. This function is real. How do I get Mathematica to write it in terms of Sines and Cosines? f[x_]=(1 + E^(x + (-1)^(1/3)*x) + E^((-1)^(1/3)*x + (-1)^(2/3)*x))/ E^((-1)^(1/3)*x) Thanks.