| Вопрос: Графическое решение уравнений на VB | Добавлено: 29.05.07 17:21 |
Автор вопроса:  socol
|
|
Вот фрагмент программы, строющий два графика функций. Нужно чтобы показывало коодинаты точек пересечения (чжн) или просто 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 |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  Sharp Лидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #1 | Добавлено: 30.05.07 01:36 |
| Вычисляй их одновременно для одинаковых аргументов и сравнивай на изменение знака разности между ними. | ||
Страница: 1 |