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

Simulation de n parcours

On note T l'abscisse du point d'arrivée de la tortue et TA le tableau des résultats : TA[0] represente le nombre de fois que la tortue est au point 0 à l'arrivée.
On écrit dans son éditeur préféré le programme suivant (par exemple dans l'éditeur de programmes de Xcas (raccourci Alt+p) et on sauve ce programme dans le fichier parsim.
parcoursim(n) :={
  local T,r,TA;
  ClrGraph();
  TA:=[0,0,0,0,0,0];
  for (j:=1;j<n+1;j++){
    T:=0;
    for (k:=1;k<6;k++){ 
      r:=rand(2);
      if (r==1){
        T:=T+1;
      }
    }
  TA[T]:=TA[T]+1;
  }
  switch_axes(NULL);
  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);
  segment(0,i*TA[0]);	
  segment(1,1+i*TA[1]);
  segment(2,2+i*TA[2]);
  segment(3,3+i*TA[3]);
  segment(4,4+i*TA[4]);
  segment(5,5+i*TA[5]);
  return(TA)
};
Attention Ici parcoursim renvoie une liste de valeurs mais les segments ne figurent pas après return : les segments sont donc dessinés dans l'écran de géométrie DispG. Les écrans de géométrie ne sont pas effacés : il faut donc écrire ClrGraph(); au début du programme pour effacer seulement l'écran de géométrie DispG.
Puis on exécute ce fichier : si le programme se trouve d'un éditeur prg de Xcas on le teste avec le bouton OK, puis si on a obtenu //Success compilling, le programme est validé.
On tape dans la ligne de commande :
parcoursim(30)
Voici le résultat graphique obtenu dans l'écran de géométrie DispG lors de l'execution de parcoursim(30) :

\begin{pspicture}(0,0)(5.2000,8.0000)
\psset{unit=0.5cm}
\psset{linewidth=.5pt}
...
...0)
\psset{linecolor=black}
\psline(5.0000,0.0000)(5.0000,0.0000)
\end{pspicture}
Voici des résultats obtenus pour la liste des abscisses des points d'arrivée :
pour parcoursim(30) on a trouvé [0,4,14,6,6,0]
pour parcoursim(300) on a trouvé [7,41,94,102,47,9]
pour parcoursim(1000) on a trouvé [36,172,310,306,148,28]
pour parcoursim(10000) on a trouvé [287,1575,3184,3136,1517,301]
next up previous contents index
suivant: Analyse des résultats monter: Déplacement sur un axe précédent: Simulation d'un parcours   Table des matières   Index
Documentation de giac écrite par Renée De Graeve