Table des matières - Gilles Daniel

Comparaison de trois implémentations du modèle de Schelling. 389
La procédure ListeHabitationLibre permet de créer la liste complète des cellules
qui ne sont pas habitées :
to CréerListeHabitationsLibres
set ListeHabitationslibres [ ] ; La liste est vide au départ
ask-patches [
if count-turtles-here = 0 [ ; s’il n’y a pas d’habitant
let [:k (((xcor + screen-half-height) * screen-width ) +
(ycor + screen-half-width) )] ;on calcule le numéro de cellule
set ListeHabitationslibres lput :k ListeHabitationslibres]]
] ; et on l’insère dans la liste
end
La procédure ObserveVoisinage permet à chaque agent de comptabiliser le
nombre d’étrangers dans le voisinage, on utilise ici l’opérateur de voisinage présenté
précédemment.
To ObserveVoisinage
set idem 0 ; remise à zéro en t pour ne pas cumuler avec (t – n)
let [:a breed-at 0 1] ; on commence par observer au nord
if (:a != breed) and ; si l’habitant n’est pas du même groupe
(:a != 0)
; et qu’il y a un habitant
[set diff diff + 1]] ; alors j’incrémente la variable d’état
let [:a breed-at 1 1] ; même opération, pour la cellule au nord-est
if (:a != breed) and (:a != 0) [set diff diff + 1] ]
let [:a breed-at 1 0]
; idem, pour la cellule à l’est
if (:a != breed) and (:a != 0) [set diff diff + 1] ]
let [:a breed-at 1 -1]
;cellule au sud-est
if (:a != breed) and (:a != 0) [set diff diff + 1] ]
let [:a breed-at 0 -1]
; cellule au sud
if (:a != breed) and (:a != 0) [set diff diff + 1] ]
let [:a breed-at -1 -1]
; cellule au sud-ouest
if (:a != breed) and (:a != 0) [set diff diff + 1] ]
let [:a breed-at -1 0]
; cellule à l’ouest
if (:a != breed) and (:a != 0) [set diff diff + 1] ]
let [:a breed-at -1 1]
; cellule au nord-ouest
if (:a != breed) and (:a != 0) [set diff diff + 1] ]
end
La procédure Demenage détermine si l’agent doit quitter ou non la cellule en
fonction du seuil de tolérance fixé.
to Demenage
if diff > ((Tolerance / 100) * 8) [ChoisirHabitation]
end
La procédure ChoisirHabitation est appelée par tout individu répondant « vrai »
au test précédent (procédure Demenage). L’agent tire au hasard une cellule non
habitée dans la liste des habitations libres, la supprime de la liste et y rajoute le