Calcul d'égalités sur matrice

[debutant_virtuel]

Bonjour,

Je planche sur un problème informatique.
J'ai une matrice 5*5 dont je veux déterminer les égalités entre lignes et colonnes.

Exemple
l1-1 0 2 0 1
l2- 0 2 0 1 1
l3- 1 1 1 0 0
l4- 0 1 0 1 0
l5- 2 2 0 0 1

J'ai trouvé une solution en recopiant la matrice ci dessus en l'inversant et en employant le code suivant
en Pascal.
D1 est la matrice originale
D2 la matrice inversée
D3 la matrice contenant les égalités de chaque ligne avec chaque colonne.

m:=0;
for i:=1 to 5 do
begin
m:=m+1;
for j:=1 to 5 do
begin
for k:=1 to 5 do if d1[m,j]=d2[k,j] then d3[m,k]:=d3[m,k]+1;
end;
end;

Tout juste soit elle, cette solution ne me satisfait pas. J'aimerais en trouver une autre sans transposer la matrice.

Merci pour vos réponses.
-----

[minushabens]

bonjour, je ne comprends pas bien ce que tu veux compter mais si d2 est la transposée de d1 alors d2[i,j] n'est autre que d1[j,i] donc le tableau d2 ne sert à rien. Tu peux aussi bien tester d1[m,j]==d1[j,k] au lieu de d1[m,j]==d2[k,j]

[debutant_virtuel]

Merci pour votre réponse.
En fait ce calcul en soi n'a pas de sens.
C'est comme si je mélangeais des torchons et des serviettes.
Chaque ligne représente des valeurs de 0 à 2 qui expriment la représentativité de combinaisons selon des classements.
Certains classements sont naturels par ordre chronologique, d'autres sont fonctions de critères de tri, d'autres encore sont des fonctions de type f->g et g->f.

C'est à partir d'une observation que j'ai voulu voir ce que donnait ce calcul.
Les matrices carrés se développent à l'infini et permettent de superposer des "plans d'information".

Je regarde votre solution que j'avais d'ailleurs expérimenté mais sans avoir le résultat escompté.
J'ai dû faire une erreur dans mes indices.