Добавил:
Studfiles2
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Аппроксимация выпуклой оболочки / SOURCE / MYDET
.PAS unit Mydet;
Interface
uses List;
Function det(x1,x2,x3:AList):integer;
Implementation
Function det(x1,x2,x3:AList):integer;
begin
det:=x1.x*(x2.y-x3.y)-x1.y*(x2.x-x3.x)+(x2.x*x3.y-x2.y*x3.x);
end;
end.
Interface
uses List;
Function det(x1,x2,x3:AList):integer;
Implementation
Function det(x1,x2,x3:AList):integer;
begin
det:=x1.x*(x2.y-x3.y)-x1.y*(x2.x-x3.x)+(x2.x*x3.y-x2.y*x3.x);
end;
end.
Соседние файлы в папке SOURCE