Discussion :

[GuillaumeNcy]

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 !

[ebastien]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

(num1 + num2) \ 2

Cela effectue une division entière. Si Num1 + Num2 < 2 alors le résultat sera égal à zéro.

[Pol63]

et c'est / pour division normale

[GuillaumeNcy]

Parfait, c'était bien ça le problème... honte à moi.

Du coup j'ai utilisé decimal.divide :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
If (tableau_density.Length - 1) Mod 2 <> 0 Then 
                median_density_1 = Math.Round(tableau_density(((tableau_density.Length + 1) / 2) - 1), 4)
            Else 
                Dim num1 As Double = Math.Round(tableau_density((tableau_density.Length - 1) \ 2), 4)
                Dim num2 As Double = Math.Round(tableau_density(((tableau_density.Length - 1) \ 2) + 1), 4)
                median_density_1 = Math.Round(Decimal.Divide(num1 + num2, 2), 4)
                MsgBox(median_density_1)
            End If

Et ça roule

Merci !



EDIT : Je ne sais pas comment c'est possible mais j'ai réussi a ne pas voir le message de Pol63... donc en fait il suffisait juste d'inverser \ par /...