Связка линий.

[ALX_2002]

Здарова челы. ! Ух как давно я тут не был. Очень рад всех вас видеть. . У меня тут вопр возник - как связать две линии в сочленение.
Т.е есть линия 1 и линия 2.
Line1.x1 и Line1.y1 - закреплены
Line1.x2 и Line1.y2 и Line2.x1 и Line2.y1 Общая точка этих линий.
А Line2.x2 и Line2.y2 свободно перемещаются.
Задача создать нечто похожее на руку человека. Т.е кисть я перемещаю, а вся рука сгибается или разгибается.

Помогите плиз... Очень нуно

[Firestorm]

я думаю что если рука крутится, то нжно пользоваться синусами и косинусами, для нахождения координат... советую сначала посмотреть примеры аналоговых часов (например на planet-source-code.com), где идёт полный оборот стрелок... и от этого плясать....

[GoGosha]

Здарова челы. ! Ух как давно я тут не был. Очень рад всех вас видеть. . У меня тут вопр возник - как связать две линии в сочленение.
Т.е есть линия 1 и линия 2.
Line1.x1 и Line1.y1 - закреплены
Line1.x2 и Line1.y2 и Line2.x1 и Line2.y1 Общая точка этих линий.
А Line2.x2 и Line2.y2 свободно перемещаются.
Задача создать нечто похожее на руку человека. Т.е кисть я перемещаю, а вся рука сгибается или разгибается.

Помогите плиз... Очень нуно

Что-то я не понял. Надо чтоб конец линии вращался вокруг вращающегося конца другой линии?

[ALX_2002]

2 Firestorm: Хм... Щапопробую поискать - А моно более точную ссылочку ?
2 GoGosha: Неа... Не совсем так.
Значит смотри - дело такое:
Есть три точки A,B,C
Две соединены линиями AB и BC
Точка A - жёстко закреплена.
Точка B - соединена с A и C.
Точку C - я произвольно передвигаю (Скореевсего по курсору)
И задача - Надо, чтобы когда я передвигаю точку C относительно A, точка B срабатывала как сустав.
Точнее - A - плечо, B - Сустав, C - кисть. И двигаю кисть, а локоть сгибается или разгибается.

[sanches]

НУ во 1-ых, дарова, ALX_2002 !!!!!

У меня есть вариант. Только теоретический. Допустим длины линий = L1 (AB) и L2 (BC). При каждом изменении положения C считаются точки пересечений окружностей:
с центром в A и радиусом L1
и с центром в C и радиусом L2

Поскольку таких точек две - логично выбрать ту, которая ближе к предыдущей позиции точки B

Вот чисто теория, какже это будет на практике - ты дал мне о чем подумать сегдня вечером , а то уж я нек знаю, чем и заняться......

[Firestorm]

2 Firestorm: Хм... Щапопробую поискать - А моно более точную ссылочку ?

нет
написал же, что ищи на planet-source-code.com ... в поиске должен найти предостаточно примеров...

[GoGosha]

2 Firestorm: Хм... Щапопробую поискать - А моно более точную ссылочку ?
2 GoGosha: Неа... Не совсем так.
Значит смотри - дело такое:
Есть три точки A,B,C
Две соединены линиями AB и BC
Точка A - жёстко закреплена.
Точка B - соединена с A и C.
Точку C - я произвольно передвигаю (Скореевсего по курсору)
И задача - Надо, чтобы когда я передвигаю точку C относительно A, точка B срабатывала как сустав.
Точнее - A - плечо, B - Сустав, C - кисть. И двигаю кисть, а локоть сгибается или разгибается.

Ну, тогда просто.

Код: Выделить всё


Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    On Error Resume Next
    '&&&&&&& &&&&&&
    Dim Length As Double
    Length = (Abs(Line1.X1 - X) ^ 2 + Abs(Line1.Y1 - Y) ^ 2) ^ 0.5
    '&&&& &&&&&& &&&&&& &&&&&& &&&&, &&
    If Length <= (1320 * 2) Then
        '&&&& &&&&& &&&&&&&&&&& &&&&&&&& &&&& &&&&&&&&&&&
        '&&& &&&&& &&&&&& && &&&&&&&&&&&&&&&&& &
        '&&&&&&& &&&&&&&&&&&& &&& &&& &&&&&&&&&&&
        '& &&&&& &&&&&&&&& &&&&& &&& &&&&&
        '&&&&&&&& &&&&&&&&&&&
        Dim a As Double
        Dim b As Double
        Dim c As Double
       
        a = Length / 2
        b = 1320
        '&& &&&&&&& Ï&&&&&&&
        c = (b ^ 2 - a ^ 2) ^ 0.5
        '&&&&&&& &&&&
        Dim Alpha As Double
        Alpha = Atn(Abs(Line1.Y1 - Y) / Abs(Line1.X1 - X)) + Atn(c / a)
        '&&&&&&& &&&&&& Õ & &&&&&& Ó & && &&& &&& &&&&&&& &&&&&
        If Y < Line1.Y1 Then
            Alpha = (3.141592 * 2) - Alpha
        End If
        Line2.X1 = (Cos(Alpha)) * b + ((Line1.X1))
        Line2.Y1 = (Sin(Alpha)) * b + ((Line1.Y1))
        Me.Cls
        Debug.Print Atn(Abs(Line1.Y1 - Y) / Abs(Line1.X1 - X)) * 57.29577951308
        Line1.Y2 = Line2.Y1
        Line1.X2 = Line2.X1
        Line2.X2 = X
        Line2.Y2 = Y
        'Circle (Line1.X1, Line1.Y1), 1320
        'Circle (X, Y), 1320
    End If
End Sub


[GoGosha]

2 Firestorm: Хм... Щапопробую поискать - А моно более точную ссылочку ?
2 GoGosha: Неа... Не совсем так.
Значит смотри - дело такое:
Есть три точки A,B,C
Две соединены линиями AB и BC
Точка A - жёстко закреплена.
Точка B - соединена с A и C.
Точку C - я произвольно передвигаю (Скореевсего по курсору)
И задача - Надо, чтобы когда я передвигаю точку C относительно A, точка B срабатывала как сустав.
Точнее - A - плечо, B - Сустав, C - кисть. И двигаю кисть, а локоть сгибается или разгибается.

Ну, тогда просто.

Код: Выделить всё


Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    On Error Resume Next
    '&&&&&&& &&&&&&
    Dim Length As Double
    Length = (Abs(Line1.X1 - X) ^ 2 + Abs(Line1.Y1 - Y) ^ 2) ^ 0.5
    '&&&& &&&&&& &&&&&& &&&&&& &&&&, &&
    If Length <= (1320 * 2) Then
        '&&&& &&&&& &&&&&&&&&&& &&&&&&&& &&&& &&&&&&&&&&&
        '&&& &&&&& &&&&&& && &&&&&&&&&&&&&&&&& &
        '&&&&&&& &&&&&&&&&&&& &&& &&& &&&&&&&&&&&
        '& &&&&& &&&&&&&&& &&&&& &&& &&&&&
        '&&&&&&&& &&&&&&&&&&&
        Dim a As Double
        Dim b As Double
        Dim c As Double
       
        a = Length / 2
        b = 1320
        '&& &&&&&&& Ï&&&&&&&
        c = (b ^ 2 - a ^ 2) ^ 0.5
        '&&&&&&& &&&&
        Dim Alpha As Double
        Alpha = Atn(Abs(Line1.Y1 - Y) / Abs(Line1.X1 - X)) + Atn(c / a)
        '&&&&&&& &&&&&& Õ & &&&&&& Ó & && &&& &&& &&&&&&& &&&&&
        If Y < Line1.Y1 Then
            Alpha = (3.141592 * 2) - Alpha
        End If
        Line2.X1 = (Cos(Alpha)) * b + ((Line1.X1))
        Line2.Y1 = (Sin(Alpha)) * b + ((Line1.Y1))
        Me.Cls
        Debug.Print Atn(Abs(Line1.Y1 - Y) / Abs(Line1.X1 - X)) * 57.29577951308
        Line1.Y2 = Line2.Y1
        Line1.X2 = Line2.X1
        Line2.X2 = X
        Line2.Y2 = Y
        'Circle (Line1.X1, Line1.Y1), 1320
        'Circle (X, Y), 1320
    End If
End Sub


Простите за русский

Код: Выделить всё

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    On Error Resume Next
    'считаем длинну
    Dim Length As Double
    Length = (Abs(Line1.X1 - X) ^ 2 + Abs(Line1.Y1 - Y) ^ 2) ^ 0.5
    'если длинна меньше длинны руки, то
    If Length <= (1320 * 2) Then
        'надо найти пересечение графиков двух окружностей
        'оно будет лежать на перпемпендикуляре к
        'отрезку соеденяющему эти две точточточки
        'и будет проходить через его центр
        'получаем треугольник
        Dim a As Double
        Dim b As Double
        Dim c As Double
       
        a = Length / 2
        b = 1320
        'по теореме Пифагора
        c = (b ^ 2 - a ^ 2) ^ 0.5
        'находим угол
        Dim Alpha As Double
        Alpha = Atn(Abs(Line1.Y1 - Y) / Abs(Line1.X1 - X)) + Atn(c / a)
        'находим дельта Х и дельта У и по ним уже искомую точку
        If Y < Line1.Y1 Then
            Alpha = (3.141592 * 2) - Alpha
        End If
        Line2.X1 = (Cos(Alpha)) * b + ((Line1.X1))
        Line2.Y1 = (Sin(Alpha)) * b + ((Line1.Y1))
        Me.Cls
        Debug.Print Atn(Abs(Line1.Y1 - Y) / Abs(Line1.X1 - X)) * 57.29577951308
        Line1.Y2 = Line2.Y1
        Line1.X2 = Line2.X1
        Line2.X2 = X
        Line2.Y2 = Y
        'Circle (Line1.X1, Line1.Y1), 1320
        'Circle (X, Y), 1320
    End If
End Sub

[GoGosha]

2 Firestorm: Хм... Щапопробую поискать - А моно более точную ссылочку ?
2 GoGosha: Неа... Не совсем так.
Значит смотри - дело такое:
Есть три точки A,B,C
Две соединены линиями AB и BC
Точка A - жёстко закреплена.
Точка B - соединена с A и C.
Точку C - я произвольно передвигаю (Скореевсего по курсору)
И задача - Надо, чтобы когда я передвигаю точку C относительно A, точка B срабатывала как сустав.
Точнее - A - плечо, B - Сустав, C - кисть. И двигаю кисть, а локоть сгибается или разгибается.

Ну, тогда просто.

Код: Выделить всё


Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    On Error Resume Next
    '&&&&&&& &&&&&&
    Dim Length As Double
    Length = (Abs(Line1.X1 - X) ^ 2 + Abs(Line1.Y1 - Y) ^ 2) ^ 0.5
    '&&&& &&&&&& &&&&&& &&&&&& &&&&, &&
    If Length <= (1320 * 2) Then
        '&&&& &&&&& &&&&&&&&&&& &&&&&&&& &&&& &&&&&&&&&&&
        '&&& &&&&& &&&&&& && &&&&&&&&&&&&&&&&& &
        '&&&&&&& &&&&&&&&&&&& &&& &&& &&&&&&&&&&&
        '& &&&&& &&&&&&&&& &&&&& &&& &&&&&
        '&&&&&&&& &&&&&&&&&&&
        Dim a As Double
        Dim b As Double
        Dim c As Double
       
        a = Length / 2
        b = 1320
        '&& &&&&&&& Ï&&&&&&&
        c = (b ^ 2 - a ^ 2) ^ 0.5
        '&&&&&&& &&&&
        Dim Alpha As Double
        Alpha = Atn(Abs(Line1.Y1 - Y) / Abs(Line1.X1 - X)) + Atn(c / a)
        '&&&&&&& &&&&&& Õ & &&&&&& Ó & && &&& &&& &&&&&&& &&&&&
        If Y < Line1.Y1 Then
            Alpha = (3.141592 * 2) - Alpha
        End If
        Line2.X1 = (Cos(Alpha)) * b + ((Line1.X1))
        Line2.Y1 = (Sin(Alpha)) * b + ((Line1.Y1))
        Me.Cls
        Debug.Print Atn(Abs(Line1.Y1 - Y) / Abs(Line1.X1 - X)) * 57.29577951308
        Line1.Y2 = Line2.Y1
        Line1.X2 = Line2.X1
        Line2.X2 = X
        Line2.Y2 = Y
        'Circle (Line1.X1, Line1.Y1), 1320
        'Circle (X, Y), 1320
    End If
End Sub


Простите за русский

Код: Выделить всё

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    On Error Resume Next
    'считаем длинну
    Dim Length As Double
    Length = (Abs(Line1.X1 - X) ^ 2 + Abs(Line1.Y1 - Y) ^ 2) ^ 0.5
    'если длинна меньше длинны руки, то
    If Length <= (1320 * 2) Then
        'надо найти пересечение графиков двух окружностей
        'оно будет лежать на перпемпендикуляре к
        'отрезку соеденяющему эти две точточточки
        'и будет проходить через его центр
        'получаем треугольник
        Dim a As Double
        Dim b As Double
        Dim c As Double
       
        a = Length / 2
        b = 1320
        'по теореме Пифагора
        c = (b ^ 2 - a ^ 2) ^ 0.5
        'находим угол
        Dim Alpha As Double
        Alpha = Atn(Abs(Line1.Y1 - Y) / Abs(Line1.X1 - X)) + Atn(c / a)
        'находим дельта Х и дельта У и по ним уже искомую точку
        If Y < Line1.Y1 Then
            Alpha = (3.141592 * 2) - Alpha
        End If
        Line2.X1 = (Cos(Alpha)) * b + ((Line1.X1))
        Line2.Y1 = (Sin(Alpha)) * b + ((Line1.Y1))
        Me.Cls
        Debug.Print Atn(Abs(Line1.Y1 - Y) / Abs(Line1.X1 - X)) * 57.29577951308
        Line1.Y2 = Line2.Y1
        Line1.X2 = Line2.X1
        Line2.X2 = X
        Line2.Y2 = Y
        'Circle (Line1.X1, Line1.Y1), 1320
        'Circle (X, Y), 1320
    End If
End Sub

И ещё, вместо 3320 вставь длинну своих линий

[GoGosha]

2 Firestorm: Хм... Щапопробую поискать - А моно более точную ссылочку ?
2 GoGosha: Неа... Не совсем так.
Значит смотри - дело такое:
Есть три точки A,B,C
Две соединены линиями AB и BC
Точка A - жёстко закреплена.
Точка B - соединена с A и C.
Точку C - я произвольно передвигаю (Скореевсего по курсору)
И задача - Надо, чтобы когда я передвигаю точку C относительно A, точка B срабатывала как сустав.
Точнее - A - плечо, B - Сустав, C - кисть. И двигаю кисть, а локоть сгибается или разгибается.

Ну, тогда просто.

Код: Выделить всё


Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    On Error Resume Next
    '&&&&&&& &&&&&&
    Dim Length As Double
    Length = (Abs(Line1.X1 - X) ^ 2 + Abs(Line1.Y1 - Y) ^ 2) ^ 0.5
    '&&&& &&&&&& &&&&&& &&&&&& &&&&, &&
    If Length <= (1320 * 2) Then
        '&&&& &&&&& &&&&&&&&&&& &&&&&&&& &&&& &&&&&&&&&&&
        '&&& &&&&& &&&&&& && &&&&&&&&&&&&&&&&& &
        '&&&&&&& &&&&&&&&&&&& &&& &&& &&&&&&&&&&&
        '& &&&&& &&&&&&&&& &&&&& &&& &&&&&
        '&&&&&&&& &&&&&&&&&&&
        Dim a As Double
        Dim b As Double
        Dim c As Double
       
        a = Length / 2
        b = 1320
        '&& &&&&&&& Ï&&&&&&&
        c = (b ^ 2 - a ^ 2) ^ 0.5
        '&&&&&&& &&&&
        Dim Alpha As Double
        Alpha = Atn(Abs(Line1.Y1 - Y) / Abs(Line1.X1 - X)) + Atn(c / a)
        '&&&&&&& &&&&&& Õ & &&&&&& Ó & && &&& &&& &&&&&&& &&&&&
        If Y < Line1.Y1 Then
            Alpha = (3.141592 * 2) - Alpha
        End If
        Line2.X1 = (Cos(Alpha)) * b + ((Line1.X1))
        Line2.Y1 = (Sin(Alpha)) * b + ((Line1.Y1))
        Me.Cls
        Debug.Print Atn(Abs(Line1.Y1 - Y) / Abs(Line1.X1 - X)) * 57.29577951308
        Line1.Y2 = Line2.Y1
        Line1.X2 = Line2.X1
        Line2.X2 = X
        Line2.Y2 = Y
        'Circle (Line1.X1, Line1.Y1), 1320
        'Circle (X, Y), 1320
    End If
End Sub


Простите за русский

Код: Выделить всё

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    On Error Resume Next
    'считаем длинну
    Dim Length As Double
    Length = (Abs(Line1.X1 - X) ^ 2 + Abs(Line1.Y1 - Y) ^ 2) ^ 0.5
    'если длинна меньше длинны руки, то
    If Length <= (1320 * 2) Then
        'надо найти пересечение графиков двух окружностей
        'оно будет лежать на перпемпендикуляре к
        'отрезку соеденяющему эти две точточточки
        'и будет проходить через его центр
        'получаем треугольник
        Dim a As Double
        Dim b As Double
        Dim c As Double
       
        a = Length / 2
        b = 1320
        'по теореме Пифагора
        c = (b ^ 2 - a ^ 2) ^ 0.5
        'находим угол
        Dim Alpha As Double
        Alpha = Atn(Abs(Line1.Y1 - Y) / Abs(Line1.X1 - X)) + Atn(c / a)
        'находим дельта Х и дельта У и по ним уже искомую точку
        If Y < Line1.Y1 Then
            Alpha = (3.141592 * 2) - Alpha
        End If
        Line2.X1 = (Cos(Alpha)) * b + ((Line1.X1))
        Line2.Y1 = (Sin(Alpha)) * b + ((Line1.Y1))
        Me.Cls
        Debug.Print Atn(Abs(Line1.Y1 - Y) / Abs(Line1.X1 - X)) * 57.29577951308
        Line1.Y2 = Line2.Y1
        Line1.X2 = Line2.X1
        Line2.X2 = X
        Line2.Y2 = Y
        'Circle (Line1.X1, Line1.Y1), 1320
        'Circle (X, Y), 1320
    End If
End Sub

И ещё, вместо 3320 вставь длинну своих линий

А лучше вот-так

Код: Выделить всё


Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    On Error Resume Next
    'считаем длинну
    Dim Length As Double
    Length = (Abs(Line1.X1 - X) ^ 2 + Abs(Line1.Y1 - Y) ^ 2) ^ 0.5
    'если длинна меньше длинны руки, то
    If Length <= (1320 * 2) Then
        'надо найти пересечение графиков двух окружностей
        'оно будет лежать на перпемпендикуляре к
        'отрезку соеденяющему эти две точточточки
        'и будет проходить через его центр
        'получаем треугольник
        Dim a As Double
        Dim b As Double
        Dim c As Double
       
        a = Length / 2
        b = 1320
        'по теореме Пифагора
        c = (b ^ 2 - a ^ 2) ^ 0.5
        'находим угол
        Dim Alpha As Double
        Alpha = Atn(Abs(Line1.Y1 - Y) / Abs(Line1.X1 - X)) + Atn(c / a)
        'находим дельта Х и дельта У и по ним уже искомую точку
        If Y < Line1.Y1 Then
            Alpha = (3.141592 * 2) - Alpha
        Else
            Alpha = Atn(Abs(Line1.Y1 - Y) / Abs(Line1.X1 - X)) - Atn(c / a)
        End If
        Line2.X1 = (Cos(Alpha)) * b + ((Line1.X1))
        Line2.Y1 = (Sin(Alpha)) * b + ((Line1.Y1))
        Me.Cls
        Debug.Print Atn(Abs(Line1.Y1 - Y) / Abs(Line1.X1 - X)) * 57.29577951308
        Line1.Y2 = Line2.Y1
        Line1.X2 = Line2.X1
        Line2.X2 = X
        Line2.Y2 = Y
        'Circle (Line1.X1, Line1.Y1), 1320
        'Circle (X, Y), 1320
    End If
End Sub



[sanches]

молодца, код клевый!

вот только что мне не понравилось: так это то, что ты принял то, что обе линии одинаковой длины, хотя они врядли будут одинаковыми. Жалко с кодом помочь щас не могу - убегаю уже 8-(.

P.S. Ну все равно, клево Основа есть, теперь апдейтить легче будет.....