Probleme de précision

Version imprimable

Salut a tous,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 'Series
        For Delta = DeltaMin To DeltaMax Step DeltaIncrement
            YMDChart.Series.Add("Delta " & Round(Delta, 2).ToString & "°")
        Next
 
        For Beta = BetaMin To BetaMax Step BetaIncrement
            YMDChart.Series.Add("Beta " & Round(Beta, 2).ToString & "°")
        Next
 
        'Points
        Delta = DeltaMin
        For d = 0 To DeltaStep Step 1
            Beta = BetaMin
            For b = 0 To BetaStep Step 1
                YMDChart.Series("Delta " & Round(Delta, 2) & "°").Points.AddXY(LatAccelGraph(b, d), YawMomGraph(b, d))
                YMDChart.Series("Delta " & Round(Delta, 2) & "°").Color = Color.FromArgb(100 + CInt(155 * (d / DeltaStep)), Color.Blue)
            Next
            Delta = Delta + DeltaIncrement
        Next

Dans ce code, Delta est un décimal, DeltaIncrement aussi.

Pour un DeltaIncrement du genre 1.66666666666667 la boucle 'Points plante et me dit ne pas avoir trouvé la serie nommé delta 10.00°....

En mettant le pointeur sur delta j'ai 10.0000000000005, mais çà c'est avant l'arrondi à deux décimals...alors quoi?8O

Merci

15/10/2011, 00h48
franticfranz

Le fait d'utiliser

Code:

(...)& Round(Delta, 2).ToString &(...)

au lieu de

Code:

(...)& Round(Delta, 2) &(...)

dans les dernière lignes de votre code n'y changerait rien ?

Une alternative serait la syntaxe : Delta.ToString("0.00")

Attention également à la localisation : votre séparateur décimal est-il "," ou "." ?
15/10/2011, 02h26
Gualino

Citation:

Envoyé par franticfranz

Le fait d'utiliser

Code:

(...)& Round(Delta, 2).ToString &(...)

au lieu de

Code:

(...)& Round(Delta, 2) &(...)

dans les dernière lignes de votre code n'y changerait rien ?

Bien tenté mais non...

Citation:

Envoyé par franticfranz

Attention également à la localisation : votre séparateur décimal est-il "," ou "." ?

Le je ne vois pas...
C'est en rapport avec le language du clavier...?
15/10/2011, 09h55
franticfranz

Bonjour,

A priori le problème de "." et de "," n'est pas la bonne piste.

J'ai tenté une version un peu simplifiée de votre code chez moi et ça fonctionne. J'ai beau reparcourir le code, je n'y vois pas d'erreur de syntaxe.

La seule éventualité, c'est que la série "Delta 10.00°" ne soit pas créée : l'erreur se trouverait donc quelque part dans les boucles.

Combien valent DeltaMin et DeltaMax ?
15/10/2011, 12h19
Gualino

Merci pour votre aide.

Effectivement cette dernière valeur ne semble pas passé. quand l'increment arrive à deltamax (10) la boucle se finit.

J'ai essayer avec +1, mais çà provoque d'autre erreurs.

Je devrais pouvoir me débrouiller

Merci.
15/10/2011, 13h44
Gualino

Le problème c'est que la boucle arrive à 8.3333333333, il reste un increment à 1.6666666666 ce qui donne 9.999999999, alors que deltaMax vaut 10, et ne pass pas dans la boucle.

En revanche la boucle qui ajoute les points (et qui est construit de la même manière) atteins 10 est réclame cette série...

Bonjour,
et en utilisant les vieilles ruses pour forcer les arrondis, cela te convient il ? et aussi à ton programme ? :

Code:

1
2
3
4
        Dim DeltaMinforce As Decimal = CDec(DeltaMin - 0.001)
        For Delta = DeltaMinforce To DeltaMax Step DeltaIncrement
            YMDChart.Add("Delta " & Math.Round(Delta, 2).ToString & "°")
        Next

Citation:
Envoyé par chrismonoye
Bonjour,
et en utilisant les vieilles ruses pour forcer les arrondis, cela te convient il ? et aussi à ton programme ? :
Code:

1 2 3 4 Dim DeltaMinforce As Decimal = CDec(DeltaMin - 0.001) For Delta = DeltaMinforce To DeltaMax Step DeltaIncrement YMDChart.Add("Delta " & Math.Round(Delta, 2).ToString & "°") Next
Du moment que çà convient à mon programme çà me convient, malheureusement çà marche encore moins bien, ce qui est completement hallucinant...
avec un incrément de 1:

le premier delta vaux -8.001 (avant l'arrondi à 2 decimal) ensuite dans la boucle qui ajoute les points, il ne trouve pas -8.00 ?????

L'arrondi ne fonctionne pas!?8O

Il est peut-être envisageable de créer les séries au moment de les renseigner :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
        Dim mes_series As DataVisualization.Charting.Series
 
 'Series
 
        For Beta = BetaMin To BetaMax Step BetaIncrement
            YMDChart.Series.Add("Beta " & Round(Beta, 2).ToString & "°")
        Next
 
        'Points
        Delta = DeltaMin
        For d = 0 To DeltaStep Step 1
            Beta = BetaMin
            mes_series = New DataVisualization.Charting.Series("Delta " & Round(Delta, 2) & "°")
            For b = 0 To BetaStep Step 1
                mes_series.Points.AddXY(LatAccelGraph(b, d), YawMomGraph(b, d))
                mes_series.Color = Color.FromArgb(100 + CInt(155 * (d / DeltaStep)), Color.Blue)
            Next
            YMDChart.Series.Add(mes_series)
            Delta = Delta + DeltaIncrement
        Next

15/10/2011, 16h11
chrismonoye

D'accord, donc ta plage va de -8 à +10 si je comprends bien.
Alors c'est normal : -8.00 incrémenté de 1.6666667 donne :
-8.00, -6.33, -4.67,.........,7.00, 8.67, 10.33
Le 10 passe à la trappe.
Si tu veux couvrir ta plage en y voyant tes bornes, l'incrément doit, je pense, être un divisible de ta plage 8+10=18.
Sans changer ton code de départ, en testant par exemple 18/11=1.1.63636363, comme incrément, ça donne quoi?
15/10/2011, 17h57
Gualino

Citation:

Envoyé par chrismonoye

D'accord, donc ta plage va de -8 à +10 si je comprends bien.
Alors c'est normal : -8.00 incrémenté de 1.6666667 donne :
-8.00, -6.33, -4.67,.........,7.00, 8.67, 10.33
Le 10 passe à la trappe.
Si tu veux couvrir ta plage en y voyant tes bornes, l'incrément doit, je pense, être un divisible de ta plage 8+10=18.
Sans changer ton code de départ, en testant par exemple 18/11=1.1.63636363, comme incrément, ça donne quoi?

Non en fait j'ai un DeltaRange = +/- X qui donne DeltaMin et DeltaMax
Puis un DeltaStep
(à choisir sois même sur le form)

d'origine j'ai deltaRange=8 et step = 16 donc çà fait des incrment de 1. facile sauf qu'avec la méthode deltaforce çà coince...

un cas qui me pose probleme est deltarange=10 et step =12

çà fait 20/12 et des steps des 1.66666666666667

Citation:

Envoyé par franticfranz

Il est peut-être envisageable de créer les séries au moment de les renseigner :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
        Dim mes_series As DataVisualization.Charting.Series
 
 'Series
 
        For Beta = BetaMin To BetaMax Step BetaIncrement
            YMDChart.Series.Add("Beta " & Round(Beta, 2).ToString & "°")
        Next
 
        'Points
        Delta = DeltaMin
        For d = 0 To DeltaStep Step 1
            Beta = BetaMin
            mes_series = New DataVisualization.Charting.Series("Delta " & Round(Delta, 2) & "°")
            For b = 0 To BetaStep Step 1
                mes_series.Points.AddXY(LatAccelGraph(b, d), YawMomGraph(b, d))
                mes_series.Color = Color.FromArgb(100 + CInt(155 * (d / DeltaStep)), Color.Blue)
            Next
            YMDChart.Series.Add(mes_series)
            Delta = Delta + DeltaIncrement
        Next

Je prévoyais de réduire le nombre de boucle vers la fin, mais çà va peut être résoudre le problème de le faire directement.

Merci je vais essayer.

Ok, et en attendant de réduire tes boucles qui est une sage décision, ce code devrait te dépanner :
Code:

1 2 3 For Delta = DeltaMin To DeltaMax + 0.001 Step DeltaIncrement YMDChart.Add("Delta " & Math.Round(Delta, 2).ToString & "°") Next

16/10/2011, 00h05
Gualino
Citation:
Envoyé par chrismonoye

Ok, et en attendant de réduire tes boucles qui est une sage décision, ce code devrait te dépanner :

Code:

1 2 3 For Delta = DeltaMin To DeltaMax + 0.001 Step DeltaIncrement YMDChart.Add("Delta " & Math.Round(Delta, 2).ToString & "°") Next
çà marche :ccool: