Ttdfjt

Second 100 amp breaker inside existing 200 amp residential panel for new detached garage

Why is it easier to balance a non-moving bike standing up than sitting down?

How long did the SR-71 take to get to cruising altitude?

What was the flower of Empress Taytu?

Warnings using NDSolve on wave PDE. "Using maximum number of grid points" , "Warning: scaled local spatial error estimate"

How to work with PETG? Settings, caveats, etc

How do internally carried IR missiles acquire a lock?

Can the pre-order traversal of two different trees be the same even though they are different?

Umlaut character order when sorting

Can I enter the UK for 24 hours from a Schengen area, holding an Indian passport?

I found a password with hashcat, but it doesn't work

Is there a name for the trope when there is a moments dialogue when someone pauses just before they leave the room?

Very tricky nonogram - where to go next?

How hard is it to distinguish if I am given remote access to a virtual machine vs a piece of hardware?

Why does independence imply zero correlation?

macOS: How to take a picture from camera after 1 minute

Why does std::string_view create a dangling view in a ternary expression?

Is declining an undergraduate award which causes me discomfort appropriate?

"What is the maximum that Player 1 can win?"

Justifying Affordable Bespoke Spaceships

How many people are necessary to maintain modern civilisation?

What is the "ls" directory in my home directory?

How can a warlock learn from a spellbook?

How did Gollum enter Moria?

Why does the PoissonDistribution not plot around its mean for moderate large numbers?

How can I show a rotated PDF plot superimposed on a ListPlot of the underlying data?PDF for Gamma Distribution not what I expectDirichlet marginals - why does Mathematica not give the *Kth* marginal?Given an exact formula, how can Mathematica find a probability distribution whose PDF matches it?Mean of a half-Cauchy distributionRandom Variate generating strange results when using ProbabilityDistributionEstimate parameters of a derived distributionWhy Plot does not work for a my function?Why ListPlot3D does not plot specific triangles?Using Table to determine Plotrange coordinates

.everyoneloves__top-leaderboard:empty,.everyoneloves__mid-leaderboard:empty,.everyoneloves__bot-mid-leaderboard:empty margin-bottom:0;

2

$begingroup$

I plotted the Poisson Distribution for various mean values (plot label and vertical line). The plots does not peak around the mean as the mean increase. Any advice to get the right plot, or at least the right distribution values?

Same when plotting the log of the distribution -s + n Log[s] - LogGamma[n + 1]

Table[ListPlot[Table[PDF[PoissonDistribution[s], n], n, Round[Max[s - 8 Sqrt[s], 0]], Round[s + 8 Sqrt[s]]], PlotLabel -> s, GridLines -> s, None], s, 50, 60, 70, 80, 100, 150]

plotting distributions precision-and-accuracy

share|improve this question

edited Jun 11 at 13:07

user64494

3,96821323

asked Jun 11 at 7:27

jssjss

15018

$endgroup$

• 
  
  
  

  
  

  
  
  
  
  
  

  
  $begingroup$
  Also try DiscretePlot, for example: Table[DiscretePlot[ PDF[PoissonDistribution[s], n], n, Round[Max[s - 8 Sqrt[s], 0]], Round[s + 8 Sqrt[s]], PlotLabel -> s, GridLines -> s, None], s, 50, 60, 70, 80, 100, 150]
  $endgroup$
  – becko
  Jun 11 at 8:41
  

  
  
  
  

add a comment | 

2

$begingroup$

I plotted the Poisson Distribution for various mean values (plot label and vertical line). The plots does not peak around the mean as the mean increase. Any advice to get the right plot, or at least the right distribution values?

Same when plotting the log of the distribution -s + n Log[s] - LogGamma[n + 1]

Table[ListPlot[Table[PDF[PoissonDistribution[s], n], n, Round[Max[s - 8 Sqrt[s], 0]], Round[s + 8 Sqrt[s]]], PlotLabel -> s, GridLines -> s, None], s, 50, 60, 70, 80, 100, 150]

plotting distributions precision-and-accuracy

share|improve this question

edited Jun 11 at 13:07

user64494

3,96821323

asked Jun 11 at 7:27

jssjss

15018

$endgroup$

• 
  
  
  

  
  

  
  
  
  
  
  

  
  $begingroup$
  Also try DiscretePlot, for example: Table[DiscretePlot[ PDF[PoissonDistribution[s], n], n, Round[Max[s - 8 Sqrt[s], 0]], Round[s + 8 Sqrt[s]], PlotLabel -> s, GridLines -> s, None], s, 50, 60, 70, 80, 100, 150]
  $endgroup$
  – becko
  Jun 11 at 8:41
  

  
  
  
  

add a comment | 

$begingroup$

I plotted the Poisson Distribution for various mean values (plot label and vertical line). The plots does not peak around the mean as the mean increase. Any advice to get the right plot, or at least the right distribution values?

Same when plotting the log of the distribution -s + n Log[s] - LogGamma[n + 1]

Table[ListPlot[Table[PDF[PoissonDistribution[s], n], n, Round[Max[s - 8 Sqrt[s], 0]], Round[s + 8 Sqrt[s]]], PlotLabel -> s, GridLines -> s, None], s, 50, 60, 70, 80, 100, 150]

plotting distributions precision-and-accuracy

share|improve this question

edited Jun 11 at 13:07

user64494

3,96821323

asked Jun 11 at 7:27

jssjss

15018

$endgroup$

Table[ListPlot[Table[PDF[PoissonDistribution[s], n], n, Round[Max[s - 8 Sqrt[s], 0]], Round[s + 8 Sqrt[s]]], PlotLabel -> s, GridLines -> s, None], s, 50, 60, 70, 80, 100, 150]

share|improve this question

edited Jun 11 at 13:07

user64494

3,96821323

asked Jun 11 at 7:27

jssjss

15018

share|improve this question

edited Jun 11 at 13:07

user64494

3,96821323

asked Jun 11 at 7:27

jssjss

15018

edited Jun 11 at 13:07

user64494

3,96821323

edited Jun 11 at 13:07

user64494

3,96821323

asked Jun 11 at 7:27

jssjss

15018

asked Jun 11 at 7:27

jssjss

15018

1 Answer
1

active

oldest

votes

8

$begingroup$

Because of the way you are generating the lists. What you are plotting is just a list of "y" values without the corresponding "x", that with ListPlot are plotted by Mathematica from 1 to n (with n the number of elements). If you start the list from a "x" value larger than one, Mathematica still plots from 1 to n.

Try with the following code where I explicitly add the "x" values to the lists: this should fix the problem.

Table[ListPlot[
 Table[n, PDF[PoissonDistribution[s], n], n, 
 Round[Max[s - 8 Sqrt[s], 0]], Round[s + 8 Sqrt[s]]]
 , PlotLabel -> s, GridLines -> s, None]
 , s, 50, 60, 70, 80, 100, 150]

share|improve this answer

answered Jun 11 at 7:44

FraccaloFraccalo

2,648618

$endgroup$

• 
  
  
  

  
  

  
  
  
  
  
  

  
  $begingroup$
  Well I see, I miss the x coordinate. Thank you. That is the answer!
  $endgroup$
  – jss
  Jun 11 at 7:50
  
  

  
  
  
  

add a comment | 

Your Answer

StackExchange.ready(function()
var channelOptions =
tags: "".split(" "),
id: "387"
;
initTagRenderer("".split(" "), "".split(" "), channelOptions);

StackExchange.using("externalEditor", function()
// Have to fire editor after snippets, if snippets enabled
if (StackExchange.settings.snippets.snippetsEnabled)
StackExchange.using("snippets", function()
createEditor();
);

else
createEditor();

);

function createEditor()
StackExchange.prepareEditor(
heartbeatType: 'answer',
autoActivateHeartbeat: false,
convertImagesToLinks: false,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: null,
bindNavPrevention: true,
postfix: "",
imageUploader:
brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
allowUrls: true
,
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
);



);

draft saved

draft discarded

Sign up or log in

StackExchange.ready(function ()
StackExchange.helpers.onClickDraftSave('#login-link');
);

Sign up using Google

Sign up using Facebook

Sign up using Email and Password

Post as a guest

Name

Email

Required, but never shown

StackExchange.ready(
function ()
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f200120%2fwhy-does-the-poissondistribution-not-plot-around-its-mean-for-moderate-large-num%23new-answer', 'question_page');

);

Post as a guest

Name

Email

Required, but never shown

8

$begingroup$

Because of the way you are generating the lists. What you are plotting is just a list of "y" values without the corresponding "x", that with ListPlot are plotted by Mathematica from 1 to n (with n the number of elements). If you start the list from a "x" value larger than one, Mathematica still plots from 1 to n.

Try with the following code where I explicitly add the "x" values to the lists: this should fix the problem.

Table[ListPlot[
 Table[n, PDF[PoissonDistribution[s], n], n, 
 Round[Max[s - 8 Sqrt[s], 0]], Round[s + 8 Sqrt[s]]]
 , PlotLabel -> s, GridLines -> s, None]
 , s, 50, 60, 70, 80, 100, 150]

share|improve this answer

answered Jun 11 at 7:44

FraccaloFraccalo

2,648618

$endgroup$

• 
  
  
  

  
  

  
  
  
  
  
  

  
  $begingroup$
  Well I see, I miss the x coordinate. Thank you. That is the answer!
  $endgroup$
  – jss
  Jun 11 at 7:50
  
  

  
  
  
  

add a comment | 

8

$begingroup$

Because of the way you are generating the lists. What you are plotting is just a list of "y" values without the corresponding "x", that with ListPlot are plotted by Mathematica from 1 to n (with n the number of elements). If you start the list from a "x" value larger than one, Mathematica still plots from 1 to n.

Try with the following code where I explicitly add the "x" values to the lists: this should fix the problem.

Table[ListPlot[
 Table[n, PDF[PoissonDistribution[s], n], n, 
 Round[Max[s - 8 Sqrt[s], 0]], Round[s + 8 Sqrt[s]]]
 , PlotLabel -> s, GridLines -> s, None]
 , s, 50, 60, 70, 80, 100, 150]

share|improve this answer

answered Jun 11 at 7:44

FraccaloFraccalo

2,648618

$endgroup$

• 
  
  
  

  
  

  
  
  
  
  
  

  
  $begingroup$
  Well I see, I miss the x coordinate. Thank you. That is the answer!
  $endgroup$
  – jss
  Jun 11 at 7:50
  
  

  
  
  
  

add a comment | 

$begingroup$

Because of the way you are generating the lists. What you are plotting is just a list of "y" values without the corresponding "x", that with ListPlot are plotted by Mathematica from 1 to n (with n the number of elements). If you start the list from a "x" value larger than one, Mathematica still plots from 1 to n.

Try with the following code where I explicitly add the "x" values to the lists: this should fix the problem.

Table[ListPlot[
 Table[n, PDF[PoissonDistribution[s], n], n, 
 Round[Max[s - 8 Sqrt[s], 0]], Round[s + 8 Sqrt[s]]]
 , PlotLabel -> s, GridLines -> s, None]
 , s, 50, 60, 70, 80, 100, 150]

share|improve this answer

answered Jun 11 at 7:44

FraccaloFraccalo

2,648618

$endgroup$

Table[ListPlot[
 Table[n, PDF[PoissonDistribution[s], n], n, 
 Round[Max[s - 8 Sqrt[s], 0]], Round[s + 8 Sqrt[s]]]
 , PlotLabel -> s, GridLines -> s, None]
 , s, 50, 60, 70, 80, 100, 150]

share|improve this answer

answered Jun 11 at 7:44

FraccaloFraccalo

2,648618

answered Jun 11 at 7:44

FraccaloFraccalo

2,648618

answered Jun 11 at 7:44

FraccaloFraccalo

2,648618