扫描线法（水平序）求凸包

还有一种极角序，但有很多细节要考虑，难实现。

好像扫描线只能解决二维凸包，快包无论是最差复杂度，期望复杂度，高维推广都比扫描线优秀，但我暂时不会。

推荐http://www.cnblogs.com/Booble/archive/2011/03/10/1980089.html

算法思想：

1、按y为以一关键字，x为2关键字排序。

2、用栈维护凸壳，左下点和右上点一定在凸包上，分别求上下凸壳，用叉积判断凸性。

叉积求面积也很方便。

type point=record x,y:longint; end; var a:array[1..10000]of point; st:array[1..10000]of longint; top,ans,n:longint; procedure qsort(l,r:longint); var i,j,x,y:longint; c:point; begin i:=l;j:=r;y:=a[(l+r)>>1].y;x:=a[(l+r)>>1].x; repeat while (a[i].y<y)or((a[i].y=y)and(a[i].x<x)) do inc(i); while (y<a[j].y)or((y=a[j].y)and(x<a[j].x)) do dec(j); if not(i>j) then begin c:=a[i];a[i]:=a[j];a[j]:=c;