Services & Resources / Wolfram Forums
MathGroup Archive
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2005

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

Search the Archive

Re: Computing Complex Series Solution using Mathematica

  • To: mathgroup at
  • Subject: [mg54684] Re: Computing Complex Series Solution using Mathematica
  • From: Paul Abbott <paul at>
  • Date: Sun, 27 Feb 2005 01:29:08 -0500 (EST)
  • Organization: The University of Western Australia
  • References: <cvhiv9$s5r$>
  • Sender: owner-wri-mathgroup at

In article <cvhiv9$s5r$1 at>, Pratik Desai <pdesai1 at> 

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



 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.


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 

  • 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