*** Pour masquer/découvrir le code Asymptote qui a permis de créer la figure, il faut cliquer dessus. ;-) ***
- CODE ASYMPTOTE de la figure ci-dessus : Tout sélectionner
- import graph;
- ///////////////////////////////////////////////
- void loibinomiale(int n, real p){
- real pk;
- for(int k=0; k<=n; ++k){
- pk=choose(n,k)*p^k*(1-p)^(n-k);
- draw(rotate(60)*scale(.5)*Label(format("$%f$",pk),EndPoint),
- (k,0)--(k,pk),
- 4bp+blue+squarecap);
- }
- xaxis(Label("$k$",align=2E),xmin=-.5,xmax=n+.9,
- RightTicks(Step=1,step=1,red),
- Arrow());
- draw(minipage("\tiny
- \fbox{Loi Binomiale $\mathcal{B}("+string(n)+","+string(p)+")$}\\[.2cm]
- $p(X=k)={"+string(n)+" \choose k}
- \times"+string(p)+"^k
- \times "+string(1-p)+"^{"+string(n)+"-k}$",
- 120pt),
- truepoint(NE),SW);
- }
- ///////////////////////////////////////////////
- size(10cm,8cm,IgnoreAspect);
- loibinomiale(10,.2);
*** Pour masquer/découvrir le code Asymptote qui a permis de créer la figure, il faut cliquer dessus. ;-) ***
- CODE ASYMPTOTE de la figure ci-dessus : Tout sélectionner
- import graph;
- ///////////////////////////////////////////////
- void loibinomiale(int n, real p){
- real pk;
- for(int k=0; k<=n; ++k){
- pk=choose(n,k)*p^k*(1-p)^(n-k);
- draw(rotate(60)*scale(.5)*Label(format("$%f$",pk),EndPoint),
- (k,0)--(k,pk),
- 4bp+blue+squarecap);
- }
- xaxis(Label("$k$",align=2E),xmin=-.5,xmax=n+.9,
- RightTicks(Step=1,step=1,red),
- Arrow());
- draw(minipage("\tiny
- \fbox{Loi Binomiale $\mathcal{B}("+string(n)+","+string(p)+")$}\\[.2cm]
- $p(X=k)={"+string(n)+" \choose k}
- \times"+string(p)+"^k
- \times "+string(1-p)+"^{"+string(n)+"-k}$",
- 120pt),
- truepoint(NE),SW);
- }
- ///////////////////////////////////////////////
- size(10cm,8cm,IgnoreAspect);
- loibinomiale(15,.4);
*** Pour masquer/découvrir le code Asymptote qui a permis de créer la figure, il faut cliquer dessus. ;-) ***
- CODE ASYMPTOTE de la figure ci-dessus : Tout sélectionner
- import graph;
- ///////////////////////////////////////////////
- void loibinomiale(int n, real p){
- real pk;
- for(int k=0; k<=n; ++k){
- pk=choose(n,k)*p^k*(1-p)^(n-k);
- draw(rotate(60)*scale(.5)*Label(format("$%f$",pk),EndPoint),
- (k,0)--(k,pk),
- 4bp+blue+squarecap);
- }
- xaxis(Label("$k$",align=2E),xmin=-.5,xmax=n+.9,
- RightTicks(Step=1,step=1,red),
- Arrow());
- draw(minipage("\tiny
- \fbox{Loi Binomiale $\mathcal{B}("+string(n)+","+string(p)+")$}\\[.2cm]
- $p(X=k)={"+string(n)+" \choose k}
- \times"+string(p)+"^k
- \times "+string(1-p)+"^{"+string(n)+"-k}$",
- 120pt),
- truepoint(NE),SW);
- }
- ///////////////////////////////////////////////
- size(10cm,8cm,IgnoreAspect);
- loibinomiale(18,.52);
Un script vite fait pour répondre à une demande : il sera amélioré ultérieurement. Je le mets, en l'état, au cas où cela peut dépanner d'autres personnes malgré les défauts.