[Date Index]
[Thread Index]
[Author Index]
Re: Computing Complex Series Solution using Mathematica
*To*: mathgroup at smc.vnet.net
*Subject*: [mg54684] Re: Computing Complex Series Solution using Mathematica
*From*: Paul Abbott <paul at physics.uwa.edu.au>
*Date*: Sun, 27 Feb 2005 01:29:08 -0500 (EST)
*Organization*: The University of Western Australia
*References*: <cvhiv9$s5r$1@smc.vnet.net>
*Sender*: owner-wri-mathgroup at wolfram.com
In article <cvhiv9$s5r$1 at smc.vnet.net>, Pratik Desai <pdesai1 at umbc.edu>
wrote:
> Hello All,
>
> I am trying to check the convergence or lack there of a complex series
>
> Sinh[lamda*x]
>
> where the first six lamda are given as
> lamda={-0.331+3.162*I,-0.435+6.234*I,-0.093+9.418*I,-0.203+12.566*I,-0.365+15.
> 669*I};
> x=Range[0,1,0.1];
>
> I want to do more efficiently the following:
>
> s4=Sinh[lamda[[1]]*x]+Sinh[lamda[[2]]*x]+Sinh[lamda[[3]]*x]+Sinh[lamda[[4]]*x]
Use Map and Total:
lamda={-0.331+3.162*I,-0.435+6.234*I,-0.093+9.418*I,
-0.203+12.566*I,-0.365+15.669*I};
x=Range[0,1,0.1];
Total[Sinh[# x] & /@ lamda]
You have 5 values in lamda. Do you really want to omit the last value as
you have done in computing s4? If so then use
Total[Sinh[# x] & /@ Most[lamda]]
I also note that the imaginary part of lamda is quite close to n Pi and
that Sinh[x + I n Pi] simplfies.
Cheers,
Paul
--
Paul Abbott Phone: +61 8 6488 2734
School of Physics, M013 Fax: +61 8 6488 1014
The University of Western Australia (CRICOS Provider No 00126G)
35 Stirling Highway
Crawley WA 6009 mailto:paul at physics.uwa.edu.au
AUSTRALIA http://physics.uwa.edu.au/~paul
Prev by Date:
**Re: expression formatting inside tables**
Next by Date:
**Re: Plots for publishing**
Previous by thread:
**Re: Re: Computing Complex Series Solution using Mathematica**
Next by thread:
** Construct palette with hebrew letters**
| |