Графическое решение уравнений на VB

[socol999]

Вот фрагмент программы, строющий два графика функций. Нужно чтобы показывало коодинаты точек пересечения (X;Y) или просто X. Заранее спасибо.


Picture1.Scale (xmi, yma)-(xma, ymi)
Picture1.Line (xmi, 0)-(xma, 0), vbRed
For n = Val(ymi) To -1
Picture1.Line (xmi, n)-(xma, n), vbBlue
Next n
For n = 1 To Val(yma)
Picture1.Line (xmi, n)-(xma, n), vbBlue
Next n
Picture1.Line (xma - 0.5, 0.2)-(xma, 0), vbRed
Picture1.Line (xma - 0.5, -0.2)-(xma, 0), vbRed
Picture1.Line (0, yma)-(0, ymi), vbRed
For n = ymi To -1
Picture1.Line (n, yma)-(n, ymi), vbBlue
Next n
For n = 1 To yma
Picture1.Line (n, yma)-(n, ymi), vbBlue
Next n
Picture1.Line (0.2, yma - 0.5)-(0, yma), vbRed
Picture1.Line (-0.2, yma - 0.5)-(0, yma), vbRed

For a = xmi To xma
Picture1.PSet (a, 0)
Picture1.Print a
Next a

For b = ymi To yma
Picture1.PSet (0, b)
Picture1.Print b
Next b

For X = -10 To 10 Step 0.001
Picture1.PSet (X, X^2)
Next X

For X1 = -10 To -0.01 Step 0.001
Picture1.PSet (X1, X1+1)
Next X1

[Crio]

Если графически...
Перед тем как отрисовать точку, нужно посмотреть, какого цвета пиксель в месте будущей отрисовки. Если он цвета другого графика, то это и будет точка пересечения.
На мой взгляд...

[keks-n]

Графически здесь не слишком уместно. Битмапы впустую память жрать будут. Приближение к данному методу можно достигнуть так: помнить для каждого значения X свой Y, а потом делать проход на условие