Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Matrice des distances

  • Initiateur de la discussion Initiateur de la discussion Pablo85
  • Date de début Date de début
P

Pablo85

XLDnaute Nouveau
Bonjour
je suis etudiant et j'ai une preoccupation concernant le VBA... J'aimerais si possible d'avoir une solution pour ce probleme.
Calculez la matrice des distances entre chaque paire de clients.
I La distance de i à j (où i <j) est donnée par le Pythagore
règle.???
Compute the matrix of distances between every pair of customers.
I The distance from i to j (where i <j) is given by the Pythagoras
rule.????
 
Trier par date Trier par votes

job75

XLDnaute Barbatruc
Bonjour Pablo85, bienvenue sur XLD,

Joignez le fichier Excel anonymisé où vous avez défini la position de chaque client.

Une dizaine de clients suffit.

A+
 
Dernière édition:
Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc
Bonjour.
Piste: Cela signifie par la règle qui définit la longueur de l'hypothénuse d'un triangle rectangle en fonction de la longueur des deux cotés adjacents selon le théorème de Pythagore. La distance entre deux points de coordonnées données se ramène en effet à l'application de ça à leurs différences de coordonnées.
 
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
Bonjour Pablo85, Bernard, le forum,

Pythagore c'est élémentaire :
VB: 
Cells(1 + i, 4) = Sqr(Cells(1 + i, 2) ^ 2 + Cells(1 + i, 3) ^ 2)
A+
 

Pièces jointes

  • Exercise(1).xlsm
    20.7 KB · Affichages: 11
Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc
Ben, non : Là tu calcule la distance à l'origine de chaque point. D'après ce que j'ai compris, il est demandé la matrice des distances entre chaque paire de points. Donc je suppose une grille de 85×85, diagonale exclue.
 
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
Ah oui j'oubliais qu'il faut créer les combinaisons (paires).

Comme il n'y en a pas un très grand nombre ceci suffit, voyez ce fichier (2) :
VB: 
'---liste des combinaisons et distances---
Cells(1, 5) = "Paire": Cells(1, 6) = "Distance"
n = 1
For i = 2 To l
    For j = i + 1 To l + 1
        n = n + 1
        Cells(n, 5) = Cells(i, 1) & " * " & Cells(j, 1)
        Cells(n, 6) = Sqr((Cells(i, 2) - Cells(j, 2)) ^ 2 + (Cells(i, 3) - Cells(j, 3)) ^ 2)
Next j, i
End Sub
 

Pièces jointes

  • Exercise(2).xlsm
    23.3 KB · Affichages: 7
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
Si l'on veut créer la matrice carrée des distances on utilisera ce fichier (3) :
VB: 
'---matrice carrée des distances---
[E1].Resize(, l) = Application.Transpose([A2].Resize(l))
For i = 2 To l
    For j = i + 1 To l + 1
        Cells(i, j + 3) = Sqr((Cells(i, 2) - Cells(j, 2)) ^ 2 + (Cells(i, 3) - Cells(j, 3)) ^ 2)
        Cells(j, i + 3) = Cells(i, j + 3)
Next j, i
 

Pièces jointes

  • Exercise(3).xlsm
    23.8 KB · Affichages: 4
Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc
1 - Déjà acquérir le B.A. BA d'Excel sans VBA ...
2 - L'algorithme de programmation de cet exercice est indépendant du langage utilisé.
3 - La maîtrise de Pythagore est une lacune pour un étudiant.

l'adaptation à VBA est tributaire du point 1

solution sans VBA

 

Pièces jointes

  • Eloignements.xlsx
    34.6 KB · Affichages: 7
  • Eloignements (1).xlsx
    146.5 KB · Affichages: 5
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

R
  • Question Question
Passer d'un code matlab à un code VBA
Réponses
0
Affichages
819
regatier25
R
L
  • Question Question
Examen de VBA au secours...
Réponses
2
Affichages
2 K
bouvbouv
B
S
  • Question Question
Macro probleme...Activation Module de Feuille alors que absolument pas concerne......
Réponses
7
Affichages
2 K
sim
S
C
  • Question Question
Graphique (abscisse) : interprétation d'un variant.
Réponses
0
Affichages
3 K
Charly88
C
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…