VBA Принадлежит ли точка графику

Hudgun

Как можно отпределить непринадлежащие точки треугольной области внизу, например точки (0;-1) и (0;-2), остальные принадлежащие точки вроде нормально определяются?
Задание: определить принадлежит ли точка графику

По графику я определил что он состоит из функций y=2-2x , y=2x+2, y=-x и y=x
Исходный код:

Код:

    If (2 - 2 * x <= 2) And (2 - 2 * x >= -2) And (y <= 2) And (y >= 0) Then
    Label4.Caption = "Точка принадлежит графику!"
    Else
        If (2 - 2 * x <= 2) And (2 - 2 * x >= -2) And (-x <= 0) And (-x >= -2) And (y <= 0) And (y >= -2) Then
        Label4.Caption = "Точка принадлежит графику!"
        End If

    End If
    
    If (2 + 2 * x <= 2) And (2 + 2 * x >= -2) And (y <= 2) And (y >= 0) Then
    Label4.Caption = "Точка принадлежит графику!"
    Else
        If (2 + 2 * x <= 2) And (2 + 2 * x >= -2) And (x <= 0) And (x >= -2) And (y <= 0) And (y >= -2) Then
        Label4.Caption = "Точка принадлежит графику!"
        End If
  
    End If

Реклама

lix

еще вариант. можно посчитать площади треугольников, образованных соединением этой точки с вершинами треугольника. если сумма площадей равна площади исходного, то точка внутри треугольника.
ну и еще по теме http://algolist.ru/maths/geom/belong/

Реклама

Hudgun

Сложно как-то лучи пускать и все такое

Я вот тут наткнулся на такое решение:

Цитата:

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

Решение:

Код:

Dim x As Double, y As Double, d As Double
Private Sub Command1_Click()
        x = Text1.Text
        y = Text2.Text
    If (x > 0) And ((x * x + y * y) > 9) And ((x * x + y * y) < 25) Then
        MsgBox "Tochka_prinadlejit_dannomu_promejutku"
    Else
        MsgBox "Tochka_ne_prinadlejit_dannomu_promejutku"
    End If
End Sub

Объясните кто-нибудь, откуда вот эти условия взялись (x * x + y * y) > 9 и (x * x + y * y) < 25

lix

Hudgun писал(а):

Объясните кто-нибудь, откуда вот эти условия взялись (x * x + y * y) > 9 и (x * x + y * y) < 25

уравнение окружности помните? x^2+y^2=R^2. ну вот, если подставить (x,y) в это уравнение, то возможно 3 случая - сумма квадратов меньше R^2 - точно лежит внутри окружности; равно - на окружности, больше - за пределами окружности. т.е. получается условие верно когда точка лежит за пределами окружности радиуса 3 и втутри окружности радиуса 5. такое возжможно только когда центры окружностей совпадают.

Hudgun

Спасибо, по аналогии сделал:

Код:

If (y <= 2 - 2 * x) And (y >= -x) And (x >= 0) Then
Label4.Caption = "Точка принадлежит графику"
Else
    If (y <= 2 * x + 2) And (y >= x) And (x <= 0) Then
    Label4.Caption = "Точка принадлежит графику"
    End If
End If

Вроде работает :)))

Реклама

VBA Принадлежит ли точка графику

Кто сейчас на форуме