Table des matières - Gilles Daniel

390 Modélisation et simulation multi-agents pour Sciences de l'Homme et de la Société.
numéro de la cellule qu’il laisse vacante. Il se positionne ensuite sur la cellule
précédemment choisie.
to ChoisirHabitation
let [:a pick ListeHabitationslibres
:b ( ((xcor + screen-half-height) * screen-width ) +
(ycor + screen-half-width) )]
set ListeHabitationslibres remove-element :a
ListeHabitationslibres
set ListeHabitationslibres insert (1+(random length
ListHabitationslibres)) ListeHabitationslibres :b
setx ((:a div screen-width) - screen-half-width)
sety ((:a mod screen-width) - screen-half-height)
end
Enfin la procédure itérer représente l’enchaînement des procédures dans une
boucle, ici asynchrone.
to itérer
set iteration iteration + 1 ; variable globale
CréerListeHabitationsLibres ; crée la liste des maisons libres
set ListeAgents List-of-turtles ; la liste de tous les agents
Loop [
; faire une boucle
ifelse empty ListeAgents
; si la liste est vide
[stop]
; on sort de la boucle, sinon
[let [:toi pick ListeAgents] ; variable locale
set ListeAgents remove-element :toi ListeAgents
ask-turtle :toi [ ; l’agent sélectionné
ObserveVoisinage] ; observe son voisinage
Demenage]
; et fait le test
]
]
end
Le lien entre la partie algorithmique du modèle, le Control Center, et la partie
fenêtre de simulation, l’unité Starlogo, se fait par l’intermédiaire de boutons sur
l’interface graphique (Figure 17.4). Le bouton setup permet d’initialiser l’espace de
simulation, de créer les agents en fonction de la densité voulue et de choisir le
nombre de groupes d’agents. Les boutons asynchrone et synchrone font un
adressage en boucle à la procédure d’itération correspondant au mode en question,
en l’occurrence à la procédure itérer précédente pour le bouton asynchrone. Il est
enfin possible de faire varier le seuil de tolérance au cours de la simulation.
L’exemple de la Figure 17.5 illustre la dynamique du système composé de trois
groupes.