Le programme ci-dessous calcule pour n noyaux radioactif les fréquences des noyaux qui se sont désintégrés pendant les 15 premières années.
Code : Tout sélectionner
viedesnoyaux(n):={
local k,vie,etat,annee,temps,classe;
annee:=[0$15];
pour k de 1 jusque n faire
etat:=1;
temps:=0;
tantque temps<=14 et etat<>0 faire
vie:=alea(10);
etat:=etat*vie;
temps:=temps+1;
ftantque;
si etat==0 alors annee[temps-1]:=annee[temps-1]+1;
fsi;
fpour;
annee:=approx(annee/n);
diagramme_batons(annee,annee);
}
:;
Pour la représentation graphique j'utilise la commande
Code : Tout sélectionner
diagramme_batons
Code : Tout sélectionner
histogram
Si j'ai bien compris ma liste est une matrice(1,n) (1 ligne et n colonnes) et histogram utilise des matrices de type (n,2).
Il doit bien exister un moyen simple de tracer cet histogramme sans utiliser la transposition pour rester compréhensible pour mes élèves.
Par avance merci de votre aide.