Courbe

Question

Bonjour, 

J'aimerais savoir si'il était possible d'intégrer une courbe dans le code VB et de s'y référer ?? 

Actuellement j'utilise un tableau à 2 dimensions qui me permet de substituer la courbe. Mais cela n'est pas trés fiable . 
MErci
JD

Kevin.Ory · Answer

Salut,

Une courbe peut-être représenté par une équation. Si tu as l'équation, tu as la courbe. 
Par ex :  y = ax^2 + bx + c

Ou est le problème?

jeanjeandada · Answer

Slt Kevin.Ory,

Na ma courbe n'a pas d'équation. Je n'ai que les points. est-il possible sous VB de faire une courbe avec des points que l'on connaît et de s'y référer par la suite ??

Merci

RomainDotNet · Answer

Salut,
eh bien tu peux te lancer dans une classe qui dessinnera tes courbes selon les points que tu as,
Le bufferedGraphics a une méthode drawcurves,
sinon, qu'appelles-tu "s'y référer?
Bonne chance,
Salut!

jeanjeandada · Answer

Yep,


Bin en disant "s'y référer" jvoulais dire que lorsque j'ai l'abscisse d'un point, jvoudrai utilisai mon graphe pour trouver l'ordonnée de ce point.


Existe t-il un tutorial pr les les "classe", parce que le "bufferedGraphics a une méthode drawcurves" ne me dit rien du tout ..

ou s'il y a un exemple ..

Merci a toi !
+

us_30 · Answer

Bonjour,

Est-ce une courbe régulière ? 

Si oui, essayes de trouver une équation approchée (même par morceau), ainsi tu trouveras une grande facilité d'utilisation dans la programmation, comme évoqué plus haut par Kevin.Ory. Tout dépend de l'objectif  rcherché donc...

Amicalement,
Us.

jeanjeandada · Answer

Nananan pas du tout elle n'a pas d'équation équivalent );
(Elle n'est pas non plus réguliére)

Existe t-il une rubrique pr utiliser les "classe" ??

merci !

us_30 · Answer

A voir Module de classe... mais je ne vois pas l'intérêt ici... Tu seras obligé de passer par un tableau dans ton cas...

Par curiosité, c'est quoi ces points ? ... J'aimerais y réfléchir dessus, si cela est possible... As-tu un site où je pourrais voir ce que tu traites... ? Est-ce des données météo, boursières ?... Dans ce cas, il faut plutôt s'orienter vers une Bas de Données...

Amicalement,
Us.

Kevin.Ory · Answer

Je ne vois pas d'autre solution que le tableau. Suffit de faire un petit algo pour faire une moyenne entre 2 points lorsque tu as des valeurs intermédiaire. Clair que ça sera moins rapide que l'utilisation d'une équation (justement), mais pas le choix.

X : Y
1 : 10
2 : 12
3 : 18
4 : 15
5 : 9
6 : 5
Par ex si X 4.3, alors Y 15 - 0.3*6 = 13.2

jeanjeandada · Answer

ReSalut,

En faite il s'agit d'une courbe de puissance pour éolienne.
Au début j'ai créé un tableau à 2 dimensions (pour l'abscisse et l'ordonnées). J'ai pensé à passer par une courbe pour rendre les relevés plus précis. 

Il n'y a pas de site pour visualiser.
Si tu veux je peux t'envoyer ce que j'ai déjà fait en MP.

Merci des aides !

jeanjeandada · Answer

Bon, en faite il faudrai que je fasse entre chaque points une équation de droite ?

us_30 · Answer

Non. Une droite entre chaque point, ne fait pas un gain de place.

La courbe de puissance d'une éolienne... hum... Ce n'est que des points sans relations ?... est-ce en temps réel, dépendant du vent ?... ou un truc du genre... quelle analyse comptes-tu faire dessus ? 

Amicalement,
Us.

Kevin.Ory · Answer

"Bon, en faite il faudrai que je fasse entre chaque points une équation de droite ?"

C'est ce que j'ai fais dans mon exemple. Ce n'est pas parfait, mais on s'approche dejà bien de la valeur réelle (au lieu d'une droite, il faudrait une courbe qui suit les points)
"Non. Une droite entre chaque point, ne fait pas un gain de place."
Un gain de place?
Il est effectivement très probable de pourvoir trouver une équation pour représenter la courbe de puissance en fonction de la vitesse de rotation, mais là c'est un problème de math et non de programmation.

us_30 · Answer

Kenvin, nous sommes d'accord. Si les points sont susceptibles d'être interpolés, y'a pas photo, faudrait en trouver une équation... Surtout la précision nécessaire n'est pas trop exigeante... En réalité, il faudrait savoir à quoi  tout cela est destiné... Peut-être même qu'une courbe de fréquence serait suffisante... Tout dépend du but cherché.

Ensuite, faire des équations de droite à stocker n'apporte rien. Autant faire les interpolation à partir des points. C'est le sens de ma remarque.

Amicalement,
Us.

Kevin.Ory · Answer

"Ensuite, faire des équations de droite à stocker n'apporte rien. Autant
faire les interpolation à partir des points. C'est le sens de ma
remarque."

Absolument. Mais il est inutile de stoquer les équations des droites, un simple calcul permet de la calculer très rapidement, comme je l'ai fais dans mon exemple:

X : Y
1 : 10
2 : 12
3 : 18
4 : 15
5 : 9
6 : 5Par ex si X 4.3, alors Y 15 - 0.3*6 = 13.2
Inutile donc de stoquer une équation de droite entre 4 et 5 pour trouver la valeur au point 4.3, le simple calcul Y 15 - 0.3*6 13.2 permet d'obtenir la bonne valeur

Mais si on trouve la fonction par interpolation, comme tu le dis, y'a pas photo, c'est mieux

us_30 · Answer

Ok, Kevin. Un petit bout de l'histoire s'est échappé de ma mémoire... Tu proposes bien une interpolation... 
donc 100% en accord. 

A Jeanjeandada, d'en dire plus... 

Amicalement,
Us.

Kevin.Ory · Answer

Oui, je propose une interpolation linéaire entre chaque point pour
trouver les valeurs intermédiaires (je ne suis pas sûr du terme
interpolation, mais si tu le dis ).

... Mais en même temps, si on peut trouver la fonction de la courbe complète, même plus besoins de stoquer les points X-Y et on aura une valeur "parfaite" pour tous les points 

Mais c'est vrai, laissons donc Jeanjeandada répondre

us_30 · Answer

" je ne suis pas sûr du terme interpolation, mais si tu le dis "



interpolation : c'est un terme vague dans l'absolu... il n'existe pas une seule interpolation possible... tout dépend de ce qu'on se fixe comme dispersion... donc tu aurais pu même dire Y = -10 ...  ...

Amicalement,
Us.

jmfmarques · Answer

Bonjour,

S'agissant d'éoliennes et donc de vent (dont la vitesse est non seulement un facteur, mùais également un facteur de type "inconstant"), l'interpolation n'est pas suffisante... et une telle courbe ne sera significative que pour un vent à vitesse constante entre deux mesures (ce qui sera très rarement le cas, en raison des turbulences spécifiques aux vents)
Un conseil de lecture (lire attentivemùent et lentement) :
http://www.windpower.org/fr/tour/wres/pwr.htm

Kevin.Ory · Answer

Effectivement, la courbe est assez complexe, mais il ne faut pas sous-estimer les math 
Me suis amusé à représenter la courbe qu'on peut voir sur ton lien (jmfmarques) dans Excel, puis j'ai ajouté une courbe de tendance plynomiale (d'ordre 6), ca donne un résultat concluant je trouve :

Il y a de forte erreur entre 0 et 4, logique puisque Y est constante à 0, une plynomiale ne sait pas faire ça. Mais après 4, ça donne pas mal du tout...
Mais au niveau vitesse de calcul, je me demande si ma 1ère technique (interpolation linéaire entre chaque point du tableau X-Y) n'est pas plus rapide...

Kevin.Ory · Answer

Suffit de commencer à 4 pour que ce soit encore plus joli:

us_30 · Answer

Bonjour,

Donc, plus qu'honorable cette interpolation, hein Jmfarques ?...

   Surtout que sur le site en question, il est bien dit que les incertitudes sur le vent ne permet pas d'avoir une précision supérieure à 10%... " [....]  il faut prévoir un risque d'erreur de +/- 10 %, même dans les courbes de puissance certifiées "

   A la lecture attentive du seul post où jeanjeandada nous renseigne sur ses données, on ne sait pas si c'est une courbe énergitique qu'il tente d'interpoler... Ceci, n'est qu'une supposition de Jmfmarques... Néanmoins, rien n'empêche de faire un programme de calcul avec des éoliennes. La preuve sur le même site d'ailleurs... http://www.windpower.org/fr/tour/wres/pow/index.htm

Amicalement,
Us.

jeanjeandada · Answer

Voici à peut prés la totalité de la courbe de puissance : Lien .  Donc la courbe reste stable sur une période puis rechute à 0 à une certaine limite de vent.

J'ai pris connaissance de vos messages postés. Si je dois interpoler la courbe je devrai donc la scinder la courbe en 3 partie. Avec une 1° partie le démarrage de l'éolienne; 2° partie : partie stable de la courbe; 3° partie : chûte de la courbe pour le retour à 0.

Hmmmmmmmmmm ... cela ne revient il pas à la même chose que d'écrire les équations de droite entre chaque points? et peut-être que la deuxiéme solution (équation entre chaque points) et plus fiable que la 1° (scinder la courbe en 3 partie et les interpoler?

Merci

us_30 · Answer

Bonjour, Les 2 solutions sont envisageables. C'est le sens des propos tenus précédemment. Mais, perso, si j'avais à choisir, sans nul doute je ferais une interpolation à la Kevin... En s'aidant d'Excel tu mettras pas longtemps pour obtenir des équations très proches des données... et même reproduire la petite bosse au sommet... De plus, en terme de programmation, il serait très simple (et pratique) d'en faire une fonction. Ainsi, tu aura un code simple et clair... Exemple (avec des équations bidons) à mettre dans un module : Function Yenergie(X As Double) As Double If X < 1.5 Then Yenergie = 0If X >1.5 And X < 3 Then Yenergie 20If X >3 And X < 5 Then Yenergie 1500 * (X - 3)If X >5 And X < 7 Then Yenergie 3 * X ^ 2 - X + 2000If X >7 Then Yenergie 4500 End Function Sub essai() MsgBox Yenergie(4.5) End Sub Voilà. A noter, qu'on pourrait faire beaucoup moins de décomposition... Une seule équation devrait suffire... Amicalement, Us.

jeanjeandada · Answer

ReSlt, 

      Est ce que vous sauriez si'il y a un tutorial qui expliquerai comment tracer une courbe à partir des points dans le module classe ?

+

Kevin.Ory · Answer

Pas besoin de tuto pour tracer une courbe:

Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
    Dim p1 As New PointF(0, 0)
    For x As Integer = 1 To 150
        Dim p2 As New PointF(x, Me.ClientRectangle.Bottom - FonctionDeLaCourbe(x))
        e.Graphics.DrawLine(Pens.Black, p1, p2)
        p1 = p2
    Next
End Sub

Courbe

25 réponses

Votre réponse

Discussions similaires