Является ли многоугольник выпуклым?

← →
IPranker © (2011-01-16 21:55) [0]

Алгоритм нашёл тут:
http://algolist.manual.ru/maths/geom/polygon/convex_or.php

Перевёл так:

Function IsConvexPolygon(const Pts: array of TPoint): boolean; Var i, Num: LongWord; p1, p2: LongWord; z : LongInt; Flag: LongInt; begin Num:= (High(Pts) + 1); If (Num < 4) then // Треугольники и проч. begin Result:= (Num = 3); Exit; end; Flag:= 0; For i:= 0 to Num - 1 do begin p1:= (i + 1) mod Num; p2:= (i + 2) mod Num; z:= (Pts[p1].X - Pts[i].X) * (Pts[p2].Y - Pts[p1].Y); z:= z - (Pts[p1].Y - Pts[i].Y) * (Pts[p2].X - Pts[p1].X); If (z < 0) then Flag:= Flag or 1 else If (z > 0) then Flag:= Flag or 2; If (Flag = 3) then begin Result:= True; Exit; end; end; Result:= (Flag <> 0); End;

Но работает неверно. Почему?

P.S. Модеры, почему закрыли мои прошлую ветку?

http://delphimaster.net/view/2-1295201878/
На каких таких основаниях называете меня быдлокодером?

P.S.S. Если и эту ветку закроете, то слив вам защитан, "мастера".

← →
DiamondShark © (2011-01-16 22:34) [1]

И эту закроют, за понты и обсуждение модерирования.

> Но работает неверно. Почему?

Очевидно же: ошибка в программе.

Назвали правильно. Как ещё назвать того, кто копипастит код, но не способен самостоятельно разобраться в алгоритме из двадцати строк, половина из которых декларации, инициализации и предусловия.

Является ли многоугольник выпуклым? Найти похожие ветки