Le forum de XCAS

Code : Tout sélectionner

u:=[];
pour j de 0 jusque 199 faire
x:=randvector(400,'rand(2)');
u[j]:=count_eq(0,x)/400.0;
fpour;

Code : Tout sélectionner

lancerpiece(n,p):={
  local j,k,L,X,nb; 
  L:=NULL; // L est une séquence initialement vide
  pour k de 1 jusque n faire // boucle pour répéter n fois le lancer de p pièces
    X:=0;
    pour j de 1 jusque p faire //boucle simulant le lancer de p pièces
      si alea(2)==1 alors 
        X:=X+1; // X est le nombre de fois pile, nombre entre 0 et p
      fsi;
    fpour;
    L:=L,X; // L est une séquence du type (4,15,13,8,0,etc) contenant n entiers entre 0 et p
  fpour;
  return round(count_eq(nb,[L])/n,3)$(nb=0..p); // le programme renvoie les 16 fréquences d'apparition du nombre de pile 
}
:;