Probleme de précision

**Gualino** · 14/10/2011, 19h40

Salut a tous,

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
 '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?

Merci

**franticfranz** · 15/10/2011, 00h48

Le fait d'utiliser

Code :

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

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

au lieu de

Code :

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

(...)& 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 "." ?

**Gualino** · 15/10/2011, 02h26

Envoyé par franticfranz

Le fait d'utiliser

Code :

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

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

au lieu de

Code :

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

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

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

Bien tenté mais non...

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

**franticfranz** · 15/10/2011, 09h55

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 ?

**Gualino** · 15/10/2011, 12h19

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.

**Gualino** · 15/10/2011, 13h44

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

**chrismonoye** · 15/10/2011, 14h18

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

Code :

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

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

**Gualino** · 15/10/2011, 14h47

Envoyé par chrismonoye

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

Code :

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

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!?

**franticfranz** · 15/10/2011, 15h25

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

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

**chrismonoye** · 15/10/2011, 16h11

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?

**Gualino** · 15/10/2011, 17h57

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

**Gualino** · 15/10/2011, 17h59

Envoyé par franticfranz

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

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

**chrismonoye** · 15/10/2011, 18h57

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

Code :

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

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

**Gualino** · 16/10/2011, 00h05

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 :

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

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

çà marche

Probleme de précision

VB.NET

Discussions similaires

Partager

Partager