VBNet - Форум - Принадлежит ли точка области

Вопрос: Принадлежит ли точка области Добавлено: 03.10.08 22:07

Автор вопроса: D o c a l | Web-сайт: www.doc-source.pp.net.ua/ | ICQ: 408802757

Вот короче домашка по программированию.
у нас есть две точки x,y нужно сказать принадлежат ли они зарисованой области на рисунке или нет.проблема в том что я не могу найти которому уравнению принадлежит такой график(внутренний ,ромбик)
Ответить

Ответы Всего ответов: 7

Номер ответа: 1 Автор ответа: *D o c a l* ICQ: 408802757 Вопросов: 76 Ответов: 985	Web-сайт: www.doc-source.pp.net.ua/ Профиль \| \| #1	Добавлено: 03.10.08 22:07
	а вот и сам рисунок http://www.doc-source.tut.su/pic.JPG Ответить

Номер ответа: 2 Автор ответа: Skywalker ICQ: 300-70-6пятьЪ Вопросов: 62 Ответов: 545	Web-сайт: iSkywalker.ru Профиль \| \| #2	Добавлено: 03.10.08 22:31
	уравнение ромба, если не ошибаюсь \|y\| = \|x-1\| на [-1;1] если ничо не сообразишь, то вот функция определяет принадлежит ли точка треугольнику, правда написана на нете Public Shared Function PointInPoly(ByVal p() As Point, ByVal q As Point) As Boolean Dim xnew, ynew As Integer Dim xold, yold As Integer Dim x1, y1 As Integer Dim x2, y2 As Integer Dim t As Boolean = False xold = p(2).X yold = p(2).Y For i As Integer = 0 To 2 xnew = p(i).X ynew = p(i).Y If xnew > xold Then x1 = xold y1 = yold x2 = xnew y2 = ynew Else x1 = xnew y1 = ynew x2 = xold y2 = yold End If If ((xnew < q.X) = (q.X <= xold) And (q.Y - y1) * (x2 - x1) < (y2 - y1) * (q.X - x1)) Then t = Not t xold = xnew yold = ynew Next If t Then Return True xold = p(3).X yold = p(3).Y For i As Integer = 0 To 3 If i = 1 Then Continue For xnew = p(i).X ynew = p(i).Y If xnew > xold Then x1 = xold y1 = yold x2 = xnew y2 = ynew Else x1 = xnew y1 = ynew x2 = xold y2 = yold End If If ((xnew < q.X) = (q.X <= xold) And (q.Y - y1) * (x2 - x1) < (y2 - y1) * (q.X - x1)) Then t = Not t xold = xnew yold = ynew Next Return t End Function разбиваешь ромб на 2 треугольника и вперед Ответить

Номер ответа: 3 Автор ответа: Skywalker ICQ: 300-70-6пятьЪ Вопросов: 62 Ответов: 545	Web-сайт: iSkywalker.ru Профиль \| \| #3	Добавлено: 03.10.08 22:33
	вру эт функция принадлежности четырехугольнику как раз, так что сразу туда ромб пихай Ответить

Номер ответа: 4 Автор ответа: Artyom Разработчик Вопросов: 130 Ответов: 6602	Профиль \| \| #4	Добавлено: 04.10.08 00:08
	DOCAL, тебе верно говорят, но нужно сделать не уравнение а неравенство. У тебя получится два неравенства (одно для ромба, второе для круга) - нужно проверить чтоб 1) Точки удовлетворяли неравенству для круга 2) Точки не удовлетворяли неравенству ромба Думаю сработает Ответить

Номер ответа: 5 Автор ответа: Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949	Web-сайт: domkratt.com Профиль \| \| #5	Добавлено: 04.10.08 10:57
	+1 Ответить

Номер ответа: 6 Автор ответа: *D o c a l* ICQ: 408802757 Вопросов: 76 Ответов: 985	Web-сайт: www.doc-source.pp.net.ua/ Профиль \| \| #6	Добавлено: 04.10.08 11:18
	Бренд ты прав спору нет.проблема в том что я не знаю уравнения зделать как же я не равенство зделаю.как зделать все я знаю.проблема только з ромбиком.Skywalker Ответить

Номер ответа: 7 Автор ответа: Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949	Web-сайт: domkratt.com Профиль \| \| #7	Добавлено: 04.10.08 13:25
	Думаю, так должно работать. Хотя толком не проверял. Private Sub Form_Load() ' координаты точки Dim X As Single Dim Y As Single Dim A As Single ' полуось ромба Dim r As Single ' радиус окружности Dim Result As Boolean X = 1.3 Y = 1.3 A = 1 r = 2 Result = (Abs(X * X) + Abs(Y * Y) <= Abs(r * r)) And (Abs(X) + Abs(Y) >= Abs(A)) 'true - принадлежит, false - нет End Sub Ответить

Страница: 1 |