Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2000
*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 2000

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

Search the Archive

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

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.
>
> Thanks in advance for your help.
>
> Chetan
>
> __________________________________________________
> Do You Yahoo!?
> Yahoo! Photos -- now, 100 FREE prints!
> http://photos.yahoo.com
>
>


Sent via Deja.com http://www.deja.com/
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