« Programmation objet et géométrie/Programmation avec DrGeoII » : différence entre les versions

Contenu supprimé Contenu ajouté
Ligne 184 :
 
Il est clair que le 7, qui est sorti 18 fois, est plus fréquent que le 3, qui n'est sorti que 4 fois.
 
Pour avoir un diagramme en bâtons, on peut dessiner les segments à partir des éléments du tableau (abscisses: les indices; longueurs: les affectifs, divisés par 100 pour ne pas avoir de dessin trop allongé). Pour effectuer 10 000 lancers, on peut faire ainsi:
 
<source lang="smalltalk">
|figure de1 de2 s stats a b|
stats:=Array new: 12.
2 to: 12 do: [:i | stats at: i put: 0].
figure := DrGeoCanvas new.
1 to: 10000 do: [:i|
de1:=[(1 to: 6) atRandom] value.
de2:=[(1 to: 6) atRandom] value.
s:=de1+de2.
stats at: s put: ((stats at: s)+1).
].
2 to: 12 do: [:i|
a:=figure point: i@0.
a hide.
b:=figure point: i@((stats at: i) /100).
b hide.
s:=figure segment: a to: b.
s color: Color red.
].
</source>
 
Il faut environ une demi-seconde pour créer le graphique.