The Math Forum

Search All of the Math Forum:

Views expressed in these public forums are not endorsed by NCTM or The Math Forum.

Math Forum » Discussions » sci.math.* » sci.math.symbolic

Notice: We are no longer accepting new posts, but the forums will continue to be readable.

Topic: Ask for help to evaluate an equation
Replies: 3   Last Post: Dec 16, 2012 3:51 PM

Advanced Search

Back to Topic List Back to Topic List Jump to Tree View Jump to Tree View   Messages: [ Previous | Next ]
Nasser Abbasi

Posts: 6,677
Registered: 2/7/05
Re: Ask for help to evaluate an equation
Posted: Dec 15, 2012 1:10 PM
  Click to see the message monospaced in plain text Plain Text   Click to reply to this topic Reply

On 12/15/2012 11:29 AM, wrote:
> I want to evaluate the following equation with mathematica but it seems i'm doing something wrong.
> Sum[(-1)^n/A^(n+1)t^(1+n-k(1-eta))beta^(n-k) Binomial[n,k](alpha Gamma[1-eta])^k/Gamma[2+n-k(1-eta)],{n,0,Infinity},{k,0,Infinity}]
> Any help would be appreciate it
> Hugo Perea

The sum over K can't be handled. But the sum over n does result in
closed form:

s = (-1)^n/A^(n + 1) t^(1 + n - k (1 - eta)) beta^(n - k) Binomial[n,
k] (alpha Gamma[1 - eta])^k/Gamma[2 + n - k (1 - eta)]

r = Sum[s, {n, 0, Infinity}]

(t^(1 - (1 - eta)*k)*Binomial[0, k]*(alpha*Gamma[1 - eta])^k*HypergeometricPFQ[{1, 1},
{1 - k, 2 - k + eta*k}, -((beta*t)/A)])/(beta^k*(A*Gamma[2 - k + eta*k]))


r = Sum[r, {k, 0, Infinity}]

does nothing. returns unevaluated.

Version 9

ps. good idea not to use UpperCase for symbols. Might conflict with
Mathematica's own.

Point your RSS reader here for a feed of the latest messages in this topic.

[Privacy Policy] [Terms of Use]

© The Math Forum at NCTM 1994-2018. All Rights Reserved.