Convex hull: Difference between revisions
Content added Content deleted
(+Maple) |
|||
Line 1,407: | Line 1,407: | ||
{{out}} |
{{out}} |
||
<pre>Convex Hull: [(-9, -3), (-3, -9), (19, -8), (17, 5), (12, 17), (5, 19), (-3, 15)]</pre> |
<pre>Convex Hull: [(-9, -3), (-3, -9), (19, -8), (17, 5), (12, 17), (5, 19), (-3, 15)]</pre> |
||
=={{header|Maple}}== |
|||
Two functions are available: in the geometry package, or in the ComputationalGeometry package. |
|||
<lang maple>pts:=[[16,3],[12,17],[0,6],[-4,-6],[16,6],[16,-7],[16,-3],[17,-4],[5,19],[19,-8],[3,16],[12,13],[3,-4],[17,5],[-3,15],[-3,-9],[0,11],[-9,-3],[-4,-2],[12,10]]: |
|||
with(geometry): |
|||
map(coordinates,convexhull([seq(point(P||i,pts[i]),i=1..nops(pts))])); |
|||
# [[-9, -3], [-3, -9], [19, -8], [17, 5], [12, 17], [5, 19], [-3, 15]] |
|||
with(ComputationalGeometry): |
|||
pts[ConvexHull(pts)]; |
|||
# [[12, 17], [5, 19], [-3, 15], [-9, -3], [-3, -9], [19, -8], [17, 5]]</lang> |
|||
=={{header|Mathematica}}== |
=={{header|Mathematica}}== |