next up previous contents index
suivant: Analyse des résultats monter: Déplacement dans deux directions précédent: Simulation d'un parcours   Table des matières   Index

Simulation de n parcours

On note XA le tableau des résultats selon les abscisses.
On remarquera qu'ici Y ne sert à rien puisqu'on peut repérer le point d'arrivée seulement à l'aide de son abscisse, elle permet juste de visualiser le point d'arrivée.
On écrit :
parcoursim2(n) :={
  local X,Y,r,j,k,XA;
  XA:=[0,0,0,0,0,0];
  for (j:=1;j<n+1;j++){
    r:=rand(2);
    X:=0;
    Y:=0;
    for (k:=1;k<6;k++){
      if (r==1){
        X:=X+1;
      } else {
        Y:=Y+1;
      }
    r:=rand(2);
    }
  XA[X]:=XA[X]+1;
  }
  switch_axes(NULL);
  ClrGraph();
  xyztrange(-0.5,5.2,-0.1,16.0,-10.0,10.0,-10.0,-10.0,
            -0.5,5.2,-0.1,16.0,1);
 
  return([XA,segment(0,i*XA[0]),segment(1,1+i*XA[1]),
     segment(2,2+i*XA[2]),segment(3,3+i*XA[3]),
     segment(4,4+i*XA[4]),segment(5,5+i*XA[5])]);
};
Voici les résultats obtenus :
pour parcoursim2(30) on a trouvé :
XA=[0,4,9,9,7,1]
pour parcoursim2(300) on a trouvé :
XA=[6,48,91,99,46,10]
pour parcoursim2(1000) on a trouvé :
XA=[26,170,313,320,148,23]
pour parcoursim2(10000) on a trouvé :
XA=[290,1498,3207,3128,1572,305]
Attention Ici parcoursim2 renvoie une liste de segments : ces segments seront donc dessinés dans un écran de géométrie et dans l'écran DispG. Il faut donc écrire ClrGraph() en début de programme si on veut effacer l'écran de géométrie DispG.

Documentation de giac écrite par Renée De Graeve