Calcul d'égalités sur matrice

Version imprimable

19/04/2019, 16h51
debutant_virtuel

Calcul d'égalités sur matrice
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.
Code:

1 2 3 4 5 6 7 8 9 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.
19/04/2019, 20h28
Flodelarab

Bonjour :coucou:

"i" n'est jamais utilisé.
"m" a toujours la même valeur que "i".
Aucune matrice n'est transposée.
Une matrice inversée n'est pas une matrice transposée. Attention au vocabulaire.
On ne comprend rien à ton but, mal exposé.
20/04/2019, 13h44
debutant_virtuel

Citation:

Envoyé par Flodelarab

Bonjour :coucou:

"i" n'est jamais utilisé.
"m" a toujours la même valeur que "i".
Aucune matrice n'est transposée.
Une matrice inversée n'est pas une matrice transposée. Attention au vocabulaire.
On ne comprend rien à ton but, mal exposé.

Bonjour,

Merci pour votre intervention et pour votre cadrage sémantique.

Oui i n'est pas utilisé. En fait i et m font doubles emplois.
Le but de cette manipulation est de trouver le nombre de chiffres identiques.
C'est pas simple d'expliquer pourquoi cela m'intéresse. Je n'ai pas les mots. Désolé.
20/04/2019, 14h07
Flodelarab

Citation:

Envoyé par debutant_virtuel

Le but de cette manipulation est de trouver le nombre de chiffres identiques.

Donc la réponse est 3 ? [0,1,2} ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
For D1 := 1 to 5 do 
  begin
  for D2 := 1 to 5 do
    begin
    cpt :=0
    for i :=1 to 5 do 
      begin
      if M[D1,i] = M[i,D2] then cpt := cpt+1
    end
    print ("  ligne  " + D1 + "  Colonne " + D2 + " compteur = " + cpt)
  end
end

Ca devrait fonctionner. En corrigeant bien sur la ligne 'Print' si nécessaire.