Bonjour à tous,

Je fais face à un problème surprenant...

je calcule une médiane de cette manière :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
If (tableau_density.Length - 1) Mod 2 <> 0 Then ' nombre d'élément impair
 
                MsgBox("Median = " & tableau_density(((tableau_density.Length + 1) / 2) - 1).ToString)
            Else 'nombre d'élément pair 
 
                Dim num1 As Double = Math.Round(tableau_density((tableau_density.Length - 1) \ 2), 4)
                MsgBox(num1)
                Dim num2 As Double = Math.Round(tableau_density(((tableau_density.Length - 1) \ 2) + 1), 4)
                MsgBox(num2)
                Dim median_density_1 As Double = (num1 + num2) \ 2
                MsgBox("Median = " & median_density_1)
 
            End If
Quand mon nombre d'élément est impair, pas de soucis, je récupère une médiane digne de ce nom.
Problème :
Quand mon nombre d'élément est pair, num1 prend bien une valeur, num2 également mais ma mediane (ici "median_density_1") est égale à 0.

Pour info num1 et num2 sont toujours < ou = à 1, et j'ai essayer de changer double par décimal, même soucis.

Une idée du problème?

Merci d'avance !