Clik here to view.
Answer by Syed for Change in graphic style - ConvexHull
Clear["Global`*"];pts2 = {{2, 1}, {5, 0}, {7, 0}, {9, 5}, {6, 8}, {0, 6}, {0, 4}};chm = ConvexHullMesh[pts2];chmlines = MeshPrimitives[chm, 1];chmpts = Sequence @@@ MeshPrimitives[chm, 0];axeslabels =...
View ArticleClik here to view.
Answer by Greg Hurst for Change in graphic style - ConvexHull
Another way is with MeshCellStyle.pts2 = {{2, 1}, {5, 0}, {7, 0}, {9, 5}, {6, 8}, {0, 6}, {0, 4}};ConvexHullMesh[pts2, Axes -> True, AxesStyle -> Arrowheads[{0.0, 0.05}], GridLines ->...
View ArticleClik here to view.
Answer by OkkesDulgerci for Change in graphic style - ConvexHull
ListPlot[AppendTo[pts2, First[pts2]], PlotStyle -> {Black}, Joined -> True, Mesh -> All, GridLines -> {Range[0, 10, 0.5], Range[0, 10, 0.5]}, GridLinesStyle -> Directive[Gray, Dotted],...
View ArticleClik here to view.
Answer by J. M.'s eventual burnout for Change in graphic style - ConvexHull
Here is an approximate facsimile:ch = MeshPrimitives[ConvexHullMesh[pts2], 2];bb = BoundingRegion[pts2];cent = Mean[pts2];Graphics[{{EdgeForm[Directive[Dashed, AbsoluteThickness[1]]], FaceForm[], bb},...
View ArticleClik here to view.
Answer by Carl Woll for Change in graphic style - ConvexHull
Update(included more style specifications as requested in the comments)You can use BaseStyle to control the appearance of the convex hull, and you can extract the coordinates of a mesh by using...
View ArticleAnswer by David G. Stork for Change in graphic style - ConvexHull
Graphics[Line /@ Partition[AppendTo[pts2, First[pts2]], 2, 1],GridLines -> Automatic]
View ArticleClik here to view.
Change in graphic style - ConvexHull
I use this code to find the ConvexHull for some points:pts2 = {{2, 1}, {5, 0}, {7, 0}, {9, 5}, {6, 8}, {0, 6}, {0, 4}};Show[ConvexHullMesh[pts2, GridLines -> Automatic], Axes -> True]the result...
View Article
