Table des matières - Gilles Daniel

394 Modélisation et simulation multi-agents pour Sciences de l'Homme et de la Société.
Dim nc As Integer
' nbr de lignes du domaine
Dim nl As Integer
' nbr de colonnes du domaine
Dim nT As Integer
' nbr total de cellules du domaine
Dim nIter As Integer ' n° d'itération
Dim PopTot As Integer ' population totale occupant le domaine
Dim NbGroupes As Integer ' Nbr de groupes sociaux
Dim NbLibres As Integer ' Nbr de cases libres = Nt-PopTot
Dim Seuil As Double ' Seuil de tolérance
Dim EstInitialise As Boolean ' =TRUE si on a initialisé
Dim CellsLibres() As Integer 'contient les n° de cellules libres
Dim Rg() As Integer
'permet de définir un ordre aléatoire
Public Sub UnPas(nInsatisfaits As Integer,_
nIteration As Integer)
Dim i As Integer ' n° de ligne
Dim j As Integer ' n° de colonne
Dim p As Integer ' n° aléatoire de cellule
Dim n As Integer ' numéro de cellule
Dim SV As Double ' nombre seuil pour le voisinage
If Not EstInitialise Then Call InitDomaine
Application.ScreenUpdating = False
SV = Seuil * nV ' nbr d’étrangers maxi tolérés ds voisinage
nInsatisfaits = 0
'on calcule un ordre de parcourt aléatoire des cellules
Call RangsAleatoires(nT, Rg)
'déplacements des insatisfaits
For n = 0 To nT - 1
p = Rg(n)
' numéro de rang aléatoire
i = (p \ nc) + 1 ' n° de ligne associée à p
j = (p Mod nc) + 1 ' n° de colonne associée à p
If (T(i,j) > 0) And (NbEtrangers(i, j, T(i, j)) > SV) Then
nInsatisfaits = nInsatisfaits + 1
Call DeplacerIndividu(i, j, T(i, j))
End If
Next n
nIteration = nIteration + 1
' sortie des résultats :
Range("nInsatisfaits") = nInsatisfaits
Range("nIter") = nIteration
Range("Domaine") = T
Application.ScreenUpdating = True
End Sub 'UnPas
' fonction de calcul du nombre d’étrangers dans le voisinage :
Public Function NbEtrangers(i As Integer, j As Integer,_
nG As Integer) As Integer
Dim k As Integer
Dim ii As Integer
Dim jj As Integer