Problème de déclaration?

Bonjour à tous,

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

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

Code:

---

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 !

Bonjour,

Code:

---

(num1 + num2) \ 2

---

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

et c'est / pour division normale

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

Du coup j'ai utilisé decimal.divide :

Code:

---

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 /...