Точка пересечения двух линий

[pronto]

Как, аналитически, то есть не тупым перебором, найти точку пересечения двух отрезков с известными координатами концов? И все это в ВБ.

[Cryonyx]

найди коэффициенты линий, частью которых являются данные отрезки и далее - алгебра, 8 класс.

[pronto]

Подробнее, плз. А то что-то не въехал...

[Ennor]

Ой мне таки кажется, что это даже не восьмой класс, а гораздо раньше... Хотя я могу ошибаться - давно школу закончил.

Каждый отрезок суть часть прямой, прямая описывается уравнением первого порядка вида y = k*x + b, получение уравнения прямой из координат концов отрезка см. в интернете.
Пересечение двух прямых является решением системы из двух уравнений первого порядка. Искать в интернете по слову "правило Крамера".
После нахождения решения (если оно существует, конечно) в твоем случае потребуется дополнительная проверка - выяснить, принадлежит ли эта точка обоим отрезкам. Вхождение величины в указанный интервал - базовая логика, детский сад.

[keks-n]

Вообщето девятый класс, уравнение прямой

[GAGArin]

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

private type TLine
  DblB As Double
  DblK As Double
  BoolVert As Boolean
end type

private type TPset
  DblX As Double
  DblY As Double
  btErr As Byte
end type

Private function DetectLine(X1, Y1, X2, Y2 As Double) As TLine
If x1 = x2 then 'вертикальна
  DetectLine.boolvert = true
  DetectLine.DblB = x1
  exit function
else ' собсно не вертикальна )
  DetectLine.DblK = (y2 - y1) / (x2 - x1)
  DetectLine.DblB = y1 - DetectLine.DblK * x1
end if
End function

Private Function DetectPset(L1, L2 As TLine) As TPset

If L1.DblK = L1.DblK Or (l1.BoolVert And l2.BoolVert) Then
' параллельны
  If L1.DblB = L2.DblB then
    btErr = 1 'совпадают
    Exit Function
  else
    btErr = 2 'нет общих точек
    Exit Function
  end if
else
' не параллельны
  If l1.BoolVert Then 'одна вертикальна
    Detectpset.DblX = L1.DblB
    Detectpset.DblY = L2.DblK * Detectpset.DblX + L2.DblB
    Exit Function
  End if
  If L2.BoolVert Then 'другая вертикальна
    Detectpset.DblX = L2.DblB
    Detectpset.DblY = L1.DblK * Detectpset.DblX + L1.DblB
    Exit Function
  end if
  'общий случай
  Detectpset.DblX = (L2.DblB - L1.DblB) / (L1.DblK - L2.DblK)
  Detectpset.DblY = L2.DblK * Detectpset.DblX + L2.DblB
end If
 
end function

Вобщем набирал тут, так что могут быть опечатки/ошибки. Не проверял, да и код немножко смахивает на микроскоп )

[RUSYA]

algolist.manual.ru

[pronto]

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

[alibek]

Что такое "аналитически" ты знаешь? Или просто слово умное слышал?

[GSerg]

http://algolist.manual.ru/oldforum/view ... 1192#11192

[GAGArin]

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

Ты мой вариант видел?

[pronto]

2 GAGArin. Да, видел. И поэтому так и написал. Что касается "аналитически" - так это чтобы правильно поняли, чего, кстати не произошло...

2 RUSYA. Огромное спасибо за наводку. Попалось много интересных вещей.

[Конь]

А как найти точку пересечения двух Shape (Shape=Circle)?

[Amed]

Точки пересечения, вернее сказать.

Опять же школьная геометрия. Нарисуй на бумажке две пересекающиеся окружности и попробуй понять сам. Учись думать, мы поможем

[Конь]

Amed
Ты уж, конечно, извини, но с геометрией у меня нелады:(

Я так и не разобрался с этими пересекающимися линиями...

Почему на форуме нет никого, кто бы очень терпеливо растолковывал человеку глупые вопросы?!!

P.S.: думать умею.

[Конь]

За все свое время присутствия на этом форуме, никогда не видел, чтобы здесь было так пусто!

Ответьте, пожалуйста, на мой аопрос ...

[Хакер]

(x1)^2 + (y1)^2 = (R1)^2
(x2)^2 + (y2)^2 = (R2)^2
x2 - x1 - x0 = 0
y2 - y1 - y0 = 0

такая вот система уравнений...
где x0, y0 - расстояние между центрами. (Отсчитывать от 1 к 2)

[Конь]

Ммм... Вообще-то понятно, вот только как это преобразовать, чтобы засунуть в VB?
Че-то у меня сегодни голова не работает.

[Amed]

Хакер, прокомментируй, пожалуйста, каждое уравнение.

Конь, вот тебе рисунок. Тебе нужно, зная две стороны прямоугольного треугольника: (R1+R2)/2 и R1, найти угол в треугольнике.

UPD: ошибка, конечно, бьла. Ничего там не (R1+R2)/2.

[tyomitch]

А с чего та сторона равна (R1+R2)/2 ?
Нарисуй рисунок, где одна окружность в десять раз больше другой, и убедись, что заблуждаешься.

[Amed]

Оп. Правда твоя, ошибаюсь. Пойду-ка спать.

[Конь]

Amed
Выспалси?
Продолжай:)

[alibek]

А как найти точку пересечения двух Shape (Shape=Circle)?

Решить систему уравнений X1^2+Y1^2=R1^2 и X2^2+Y2^2=R2^2.

[Конь]

Я не понимаю, как решать системы уравнений в VB?

Так-то (на бумашшке) решить могу.

[tyomitch]

Конь, на бумажке и надо.
Потом результат вставляешь в VB.

[Конь]

tyomitch
Ммда.
Мне надо, чтобы комп находил точки пересечения! А то что же - грянзая работа мне, а ему только MsgBox?

[tyomitch]

Так-то (на бумашшке) решить могу.

Так можешь или нет?

[Конь]

tyomitch
На бумашшке.

[tyomitch]

Ну так реши уже. На бумашшшке.
Давно бы уже решил, если бы решал.

[Конь]

tyomitch
Ну ё-моё!
Я ж сказал, надо сделать так, чтобы комп сам искал точки!
Допустим, есть у меня две окружности на форме и известны координаты их центров, одна из окружностей может перемещаться пользователем! Нужно найти точки пересечения. Не на бумашшке.