Re: Solve this series

• To: mathgroup at smc.vnet.net
• Subject: [mg23845] Re: Solve this series
• From: Brian Higgins <bghiggins at ucdavis.edu>
• Date: Mon, 12 Jun 2000 01:17:36 -0400 (EDT)
• References: <8hsspm\$deh@smc.vnet.net>
• Sender: owner-wri-mathgroup at wolfram.com

```Chetan,
You can use FindRoot to solve the partial sum. Here is a function

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.

Cheers,
Brian

In article <8hsspm\$deh at smc.vnet.net>,
Chetan Parikh <chetanparikh at yahoo.com> 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.
>
>
> Chetan
>
> __________________________________________________
> Do You Yahoo!?
> Yahoo! Photos -- now, 100 FREE prints!
> http://photos.yahoo.com
>
>

Sent via Deja.com http://www.deja.com/