1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
| data # tableau de données à 3 colonnes (index, altitude, région)
W = 224 # dimension de la carte 2D
H = 214 # dimension de la carte 2D
w = 10 # dimension des régions
h = 10 # dimension des régions
rw = 0 # dimension de la région courante
rh = 0 # dimension de la région courante
rdébut = 1 # id de la région pour les points de la première colonne sur la carte 2D
pour y allant de 1 à H # on parcourt chaque point de la carte 2D
rh = rh + 1 # on ajoute une nouvelle ligne à notre région courante
r = rdébut # id de la région courante
pour x allant de 1 à W # on parcourt chaque point de la carte 2D
rw = rw + 1 # on ajoute une nouvelle colonne à notre région courante
ligne = x + y * W # numéro de ligne dans le tableau correspondant au point courant
si (data(ligne, 2) == 0) # si l'altitude du point courant est nulle
data(ligne, 3) = NA # alors pas de région
else
data(ligne, 3) = r # sinon on attribue la région courante
si (rw == w)
rw = 0 # si la taille de la région est atteinte, on commence une nouvelle région
r = r + 1
si (rh == h)
rh = 0 # si la taille de la région est atteinte, on commence une nouvelle région
rdébut = r + 1 |