Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2013.03.22;
Скачать: CL | DM;

Вниз

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

 
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]

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


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

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

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



Страницы: 1 вся ветка

Текущий архив: 2013.03.22;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.081 c
15-1336941003
Юрий
2012-05-14 00:30
2013.03.22
С днем рождения ! 14 мая 2012 понедельник


15-1346830391
LDV
2012-09-05 11:33
2013.03.22
Delphi directory


15-1334830163
Convallaria
2012-04-19 14:09
2013.03.22
!Алгоритм,прогнозирование


2-1329302821
LDV
2012-02-15 14:47
2013.03.22
добавление/удаление в/из TList


15-1340800374
картман
2012-06-27 16:32
2013.03.22
кто в гугл хочет?