Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2005
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*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

Computing Complex Series Solution using Mathematica (using BesselI)

  • To: mathgroup at smc.vnet.net
  • Subject: [mg54586] Computing Complex Series Solution using Mathematica (using BesselI)
  • From: Pratik Desai <pdesai1 at umbc.edu>
  • Date: Wed, 23 Feb 2005 03:12:27 -0500 (EST)
  • Sender: owner-wri-mathgroup at wolfram.com

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] 


I tried using Sum but to no great success, however I found a neat 
mathematica notebook on the function Sinh and I found the following 
expansion of sinh
\!\(Sinh[z] \[Equal]
    2\ \(\[Sum]\+\(k = 0\)\%\[Infinity] BesselI[2\ k + 1, z]\)\)

I was wondering how I could implement the above series in my application 
or anyother approach that would be more feasible .

Thanks

Pratik Desai


  • Prev by Date: Re: How to solve an implicit system?
  • Next by Date: Re: pattern matching all list elements but last
  • Previous by thread: Construct palette with hebrew letters
  • Next by thread: Re: Printing numbersDavid Bailey,dbaileyconsultancy.co.uk