| Вопрос: как нарисовать в visual basic параболу? | Добавлено: 04.03.08 17:45 |
Автор вопроса:  араик
|
| как нарисовать в visual basic параболу? |
| Ответы | Всего ответов: 11 |
|
Номер ответа: 1 Автор ответа:  Artyom Разработчик Вопросов: 130 Ответов: 6602 |
Профиль | | #1 | Добавлено: 04.03.08 18:26 |
| f(x) = x^2 | ||
|
Номер ответа: 2 Автор ответа: MorpheusВопросов: 224 Ответов: 3777 |
Web-сайт: Профиль | | #2 | Добавлено: 04.03.08 18:36 |
блин, апередил ))
тока не забудь перевести систему координат из этих грёбаных Twip-офф в нормальные пикселы, сместить центр куда надо, и ещё поменять местами верх и низ |
||
|
Номер ответа: 3 Автор ответа: MorpheusВопросов: 224 Ответов: 3777 |
Web-сайт: Профиль | | #3 | Добавлено: 04.03.08 18:38 |
|
и вообще лучше писать r(t)=<t,t^2>, так понятнее чем у=х2 )
|
||
|
Номер ответа: 4 Автор ответа: ArtyomРазработчик Вопросов: 130 Ответов: 6602 |
Профиль | | #4 | Добавлено: 04.03.08 18:57 |
|
y=x^2
Сори, я консерваторию не заканчивал
|
||
|
Номер ответа: 5 Автор ответа: VβÐUηìtВопросов: 246 Ответов: 3333 |
Web-сайт: Профиль | | #5 | Добавлено: 10.03.08 14:09 |
|
y = ax^2 + bx + c
Чтоб точно все было хорошо
|
||
|
Номер ответа: 6 Автор ответа: MorpheusВопросов: 224 Ответов: 3777 |
Web-сайт: Профиль | | #6 | Добавлено: 10.03.08 14:39 |
|
y=a(x-h)^2 + k 'чтоб всё бло понятно - где вершина, масштабирование итд )
ищучаем школьную математику. только на uda... ой.. на vbnet.ru!
|
||
|
Номер ответа: 7 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #7 | Добавлено: 10.03.08 14:59 |
| Чего уж тут... Парабола это кривая на плоскости, описываемая уравнением A*x^2 + B*x*y + C*y^2 + D*x + E*y + F = 0, такая, что B^2 = 4*A*C, все коэффициенты принадлежат R, A != 0, C != 0, и этому уравнению удовлетворяет более одной точки. | ||
|
Номер ответа: 8 Автор ответа: MorpheusВопросов: 224 Ответов: 3777 |
Web-сайт: Профиль | | #8 | Добавлено: 10.03.08 16:35 |
|
Sharp, и как это чертить в басике? Пребирать все точки на форме
for i=1 to m for j=1 to n ... next i next j (или что то в этом роде) и проверять - получим мы ноль или нет и если да, то SetPixel(i,j) lol ))
|
||
|
Номер ответа: 9 Автор ответа: VβÐUηìtВопросов: 246 Ответов: 3333 |
Web-сайт: Профиль | | #9 | Добавлено: 10.03.08 16:51 |
| Выразить Х через Y | ||
|
Номер ответа: 10 Автор ответа: VβÐUηìtВопросов: 246 Ответов: 3333 |
Web-сайт: Профиль | | #10 | Добавлено: 10.03.08 17:09 |
|
Dim a, b, c
Private Sub Form_Paint() Dim X As Long Dim Y As Long a = 0.05 Cls ScaleMode = vbPixels For X = 0 To ScaleWidth Y = f(X - ScaleWidth / 2) Y = ScaleHeight - Y Line -(X, Y) Next X End Sub Function f(X As Long) As Long f = a * X ^ 2 + b * X + c End Function Private Sub Form_Resize() Refresh End Sub |
||
|
Номер ответа: 11 Автор ответа: VβÐUηìtВопросов: 246 Ответов: 3333 |
Web-сайт: Профиль | | #11 | Добавлено: 10.03.08 17:10 |
|
В смысле запарили - уж прям такая тема сложная ))))
|
||
Страница: 1 |