bonsoir,

je souhaite calculer une matrice des distances à partir d'une matrice de départ assimilé à un tableau individus-variables. je sais qu'il y a statbox pr la faire mais là c'est en vba qu'il faut l'établir.

alors j'ai un code de départ , mais il manque des choses.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 Function distance2individus(T() As Integer, i As Integer, j As Integer) As Single
 
   Dim p As Integer
   Dim l As Integer
   Dim s As Long
 
 
   For l = 1 To p
    s = 0
 
   s = s + (T(i, l) - T(j, l)) * (T(i, l) - T(j, l))
 
 
distance2individus = Sqr(s)
 
  Next l
 
 
   End Function
là , il manque des boucles non ?


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub matrice_distance(T() As Integer, n As Integer, p As Integer)
 
   Dim i, j As Integer
   Dim D() As Single
 
   ReDim D(1 To n, 1 To n) As Single
 
    For i = 1 To n
 
       For j = 1 To n
 
            D(i, j) = distance2individus(T, i, j)
 
      Next j
 
    Next i
 
   End Sub
j'ai voulu y apporter des modifications mais ça donne rien ... à part un tableau rempli de 0.