Calcul d'égalités sur matrices

[yann3556]

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.

[pascal16]

le coefficient a(i,j) de la matrice A est a(j,i) pour sa transposée.

tu peux aussi programmer façon décomposition des actions :

une fn qui à partir d'une matrice donne sa i ième colonne
une fn qui à partir d'une matrice donne sa j ième ligne
une fn qui compare deux vecteurs (une ligne et une colonne ici)

vérif si la matrice est carré
pour toutes les ligne i
pour toutes les colonne j
si comparer (linge(i), colonne(j)), afficher ...

c'est plus long mais chaque fonction se débogue indépendamment et est réutilisable