[java] Etiquettage de composantes connexes (union-find)

[zuulcoder]

Par contre j'ai tenté de modifier le code pour gérer la continuité "sphérique". Mon but étant d'appliquer cet algorithme à l'étiquetage de continents, îles et océans, et donc un océan sur le bord droit de l'image continu à gauche. On ne devrait trouver qu'un seul label et pas deux.

J'ai essayé avec les modulos (code ci-dessous) tels que déjà implémentés dans l'algo du "Diamond Square". Mais cela ne marche pas. Une idée ?

Code Delphi :

1
2
3
4
5
 
     If ( (X>0)   And (fMatrixC[(X-1+W) Mod W,Y Mod H] = fMatrixC[X Mod W,Y Mod H]))             Then Root := CCunion(CCfind(PosI - 1),     Root);
      If ( (X>0)   And (Y>0) And (fMatrixC[(X-1+W) Mod W, (Y-1+H) Mod H] = fMatrixC[X Mod W,Y Mod H])) Then Root := CCunion(CCfind(PosI - 1 - W), Root);
      If ( (Y>0)   And (fMatrixC[X Mod W,(Y-1+H) Mod H] = fMatrixC[X Mod W,Y Mod H]))             Then Root := CCunion(CCfind(PosI - W),     Root);
      If ( (X<W-1) And (Y>0) And (fMatrixC[(X+1) Mod W, (Y-1+H) Mod H] = fMatrixC[X Mod W,Y Mod H])) Then Root := CCunion(CCfind(PosI + 1 - W), Root);

[pseudocode]

Envoyé par zuulcoder

Par contre j'ai tenté de modifier le code pour gérer la continuité "sphérique". Mon but étant d'appliquer cet algorithme à l'étiquetage de continents, îles et océans, et donc un océan sur le bord droit de l'image continu à gauche. On ne devrait trouver qu'un seul label et pas deux.

J'ai essayé avec les modulos (code ci-dessous) tels que déjà implémentés dans l'algo du "Diamond Square". Mais cela ne marche pas. Une idée ?

Le plus simple c'est de gérer spécifiquement les pixels qui assurent la continuité sphérique, c'est à dire les pixels sur les bords.

Donc, une fois la double boucle effectuée, on s'occupe de fusionner les bords gauche/droit, puis ensuite les bords haut/bas.

Code delphi :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
For Y := 0 to H - 1 do Begin
  For X := 0 to W - 1 do Begin
    (...)
  End;
End;
 
// merge left/right border
Pos := 0;
For Y := 0 to H - 1 do Begin
  if (Image1[0,Y] = Image1[W-1,Y]) then CCunion( CCfind(Pos), CCfind(Pos+W-1) );
  Pos := Pos + W;
End;
 
// merge top/bottom border
Pos := 0;
For X := 0 to W - 1 do Begin
  if (Image1[X,0] = Image1[X,H-1]) then CCunion( CCfind(Pos), CCfind(Pos+(H-1)*W) );
  Pos := Pos + 1;
End;
 
// Remove indirection...
(...)

(je ne maitrise pas trop Delphi )

[zuulcoder]

Envoyé par pseudocode

Le plus simple c'est de gérer spécifiquement les pixels qui assurent la continuité sphérique, c'est à dire les pixels sur les bords.

Donc, une fois la double boucle effectuée, on s'occupe de fusionner les bords gauche/droit, puis ensuite les bords haut/bas.

(je ne maitrise pas trop Delphi )

Pour quelqu'un qui ne maitrise pas Delphi tu te débrouilles plutôt bien
Cela fonctionne

J'ai mis à jour l'algo Delphi avec cette modif.

Un grand merci pour ta disponibilité et tes conseils avisés

[mjobert]

Bonjour,

Quelqu'un a-t-il testé la vitesse en C et en Java pour confirmer (ou non) si le C va (beaucoup ?) plus vite que Java

Merci