Dessiner une courbe

Question

Bonjour, 
Voila j'ai un petit problème que je n'arrive pas à résoudre. Je dois dessiner les points d'une courbe donnée par une équation cartésienne avec VB, par exemple (x^2+y^2)-4(x^2-y^2)=0 ou x^3+y^3-7xy=0
Je ne sais pas comment procéder, faut-il utiliser la méthode de bissection?
Merci de vos réponses

cs_raph123 · Answer

problème résolu voila le code:

Private Sub Command1_Click()
Picture1.Line (Picture1.ScaleWidth / 2, 0)-(Picture1.ScaleWidth / 2, Picture1.ScaleHeight)
Picture1.Line (0, Picture1.ScaleHeight / 2)-(Picture1.ScaleWidth, Picture1.ScaleHeight / 2)

Let xmin = -3
Let xmax = 3
Let ymin = -3
Let ymax = 3
Let nbintervalles = 100

For y = ymin To ymax Step 0.01
    For i = 1 To nbintervalles
        Let xg = xmin + (i - 1) * (xmax - xmin) / nbintervalles
        Let xd = xg + (xmax - xmin) / nbintervalles
        If f(xg, y) * f(xd, y) < 0 Then
            Do
                Let xm = (xg + xd) / 2
                If f(xg, y) * f(xm, y) < o Then
                    Let xd = xm
                Else
                    Let xg = xm
                End If
            Loop Until xd - xg < 0.0001
            Let xecran = 200 * (xd - xmin) / (xmax - xmin)
            Let yecran = 200 - 200 * (y - ymin) / (ymax - ymin)
            Picture1.PSet (xecran, yecran)
        End If
    Next i
Next y
End Sub
Function f(x, y)
    f = (x ^ 2 + y ^ 2 - 4) ^ 3 - 108 * y ^ 2
End Function

13pour12 · Answer

bonjour
Toutes mes excuses d'abord, par rapport à la date, peut-etre la discussion n'a-t-elle plus cours. j'expose quand meme mon problème. Je voudrais sous visual basic 6 dans une macro tracer la représentation graphique d'une fonction de la forme y=sin²(x-x0), mais ça n'est pas là le propos.j'ai cherché pas mal sur le web et j'ai trouvé assez souvent dans les codes, dans le votre aussi, 'Picture1' mais cet objet je ne sais pas comment le déclarer et je ne sais pas de quel type il est, pourriez-vous m'éclairer à ce propos? D'autre part cette courbe peut-elle(ou doit-elle) etre tracée dans une userform, ou bien dans un controle de type cadre, ou de type image, ou autre?
pour toutes vos réponses, merci
f. raoul

jmf0 · Answer

Voilà qui montre énormément de carences ...
VBA n'est pas VB6
VBA ne possède pas de PictureBox
VBA n'offre pas de contrôle doté de propriété .hdc

ahmed84trad · Answer

bonjour j'ai le même problème, svp comment je peut dessiner un courbe a partir d'un équation (y=a*x), merci d'avance.

Dessiner une courbe

4 réponses

Votre réponse

Discussions similaires