Точки пересечений N линий.

[Yu_K]

(Оффтоп)

http://projecteuler.net/problem=165 -если про эту задачу тут речь - то тут есть еще и двойные, тройные точки и т.д. пересечения (т.е. когда три, четыре отрезка пересекаются в одной точке и т.д.).

[Hasar1n]

Yu_K,

(Оффтоп)

да, именно про эту задачу. Про пересечение [3..n] линий в одной точке я знаю. Я это заметил, когда нарисовал на листке бумаги общую картину пересечений для 4 и 5 симметрично расставленных точек. Но если пробегаться тем методом, который я использую, то проблем с нахождением множества пересечений в одной точке не будет.

Проблема состоит в том, чтобы N-жды не пробегаться по проверенным парам линий.
Наконец-то я нашел таинственную 6.5 итерацию.

[Hasar1n]

Вдруг кому понадобится. Цикл такой:

    for a := low(m1) to high(m1)-1 do
    for b := 1 to high(m2) do
    for c := a+1 to high(m1) do
    for d := low(m2) to b-1 do
   if intersection(m1[a],m2[b],m1[c],m2[d],otvet) then