Message Boards Message Boards

0
|
7159 Views
|
1 Reply
|
0 Total Likes
View groups...
Share
Share this post:

plotting a gamma distribution

Plot[Evaluate@ Table[PDF[GammaDistribution[alpha, beta], x], {alpha, {329.31}}, {beta, {411.63}}], {x, 0, 100}, Filling -> Axis]

  • This does not seem to be working. Is anything wrong with the values of parameters? I am getting these values for alpha and beta. Could you please tell me why this is happening?

Is anything wrong with the values of parameters?

       data=Table[PDF[GammaDistribution[alpha, beta], x], {alpha, {329.31}}, {beta, {411.63}}]

gives

      {{Piecewise[{{(6.62729289400781106065850404419402`12.345130730619111*^-1547*x^328.31)/E^(0.002429366178364065*x), x > 0}}, 0]}}

Looking at some values

           data /. x -> 1   (*{{6.611212313514908*10^-1547}}*)
           data /. x -> 100 (*{{2.166856405198*10^-890}}*)

So the values are all practically zero. That is why you do not see them. Mathematica is having hard time plotting such small values since if Chop them, they are zero Chop[data /. x -> 1] gives zero.

POSTED BY: Nasser M. Abbasi
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract