Maple Equation

The last point I would make about the dice problem; is to mention a way to graph the probabilities ... as n increases.

Given that the following function determines the probability of all faces being shown when n dice are rolled (from previous work):

> P := n -> 1 - ((add((-1)^(k+1)*binomial(6,k)*(6-k)^n,k=1..5))/(6^n));

> Maple Equation

Then following command can be used to plot a "curve" of the probabilities varying n from 5 to 50:

> plot([seq([n,P(n)],n=5..50)],x=5..50,y=0..1);

Maple Equation

This post was generated using the MaplePrimes File Manager

View 1_discretePoints.mw on MapleNet or Download 1_discretePoints.mw
View file details


Please Wait...