MathGroup Archive 2000

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

Search the Archive

Re: Solve this series

  • To: mathgroup at
  • Subject: [mg23845] Re: Solve this series
  • From: Brian Higgins <bghiggins at>
  • Date: Mon, 12 Jun 2000 01:17:36 -0400 (EDT)
  • References: <8hsspm$>
  • Sender: owner-wri-mathgroup at

You can use FindRoot to solve the partial sum. Here is a function
that will do the task

myRoot[nmax_, a_, t_,
initD1_]:=FindRoot[Sum[(2*a_^2*Exp[-D1*(1 + 2*n)^2*Pi^2*t_])/
    ((1 + 2*n)^2*Pi^2), {n, 0, nmax_}] == 0, {D1, initD1_}]

Please note that the symbol "D" is protected in Mathematica (it is
the derivative operator) and "e" is not the exponential.


In article <8hsspm$deh at>,
  Chetan Parikh <chetanparikh at> wrote:
> Hello Steve,
> I am trying to solve this series and was wondering if
> you could help me with it
> Y = Summation from n=0 to n=infinity
> {8/pi^2(1/((2n+1)^2)*(e^(-Dt((2n+1)^2)pi^2)/4a^2))}
> Y, t, and a are known, however D is to be found.
> I am not sure how to write this equation.  If you can
> give me your fax number, I will fax it to you.  I will
> also try to email you a jpeg file later today.
> Thanks in advance for your help.
> Chetan
> __________________________________________________
> Do You Yahoo!?
> Yahoo! Photos -- now, 100 FREE prints!

Sent via
Before you buy.

  • Prev by Date: Re: Re: Plot List 3D
  • Next by Date: Re: Open Form ODE?
  • Previous by thread: Solve this series
  • Next by thread: Re: programming DeleteRepetitions Correction