Intentando trazar un ConvexHull Usando PlanarGraphPlot del paquete ComputationalGeometry, no funciona cuando se usa en gráficos.ConvexHull en Gráficos - Mathematica
¿Alguna idea sobre cómo trazar el ConvexHull usando gráficos?
Needs["ComputationalGeometry`"]
pts = RandomReal[{0, 10}, {60, 2}];
Graphics[
{
[email protected],
FaceForm[], EdgeForm[Red],
[email protected][[ConvexHull[pts]]]
}
]
o
cpts = pts[[ConvexHull[pts]]];
AppendTo[cpts, cpts[[1]]];
Graphics[
{
[email protected],
Red,
[email protected]
}
]
No estoy seguro exactamente lo que se desea. Tal vez el siguiente código te ayudará a comenzar.
pts = RandomReal[{-10, 10}, {20, 2}]
(*
Out[1]= {{1.7178, -1.11179}, {-7.10708, -8.1637},
{8.74461, -2.42551}, {6.64129, -2.87008}, {9.9008, 6.47825},
{8.27081, 9.94116}, {9.97325, 7.61094}, {-2.7876, 9.70449},
{-3.69357, 0.0253506}, {-0.503817, -1.98649}, {6.3056, -1.16892},
{-4.69983, -1.93242}, {-6.09983, 7.49229}, {8.08545, 6.67951},
{-6.91195, 8.34752}, {-2.63136, 6.0506}, {-0.130006, 2.10929},
{1.64401, 3.32165}, {0.611335, -8.11364}, {-2.03548, -9.37277}}
*)
With[{hull = pts[[Graphics`Mesh`ConvexHull[pts]]]},
Graphics[Line[Append[hull, First[hull]]]]]
Ouch. Olvidé cómo adjuntar un gif. –
Probablemente estés bromeando, pero por si no lo estás: presiona el pequeño botón de gráficos sobre la ventana de edición para proporcionar un enlace o una ruta. Normalmente exporto a PNG, porque tiene una mejor resolución de color que GIF, si no me equivoco. –
Votación para eliminar. Sin gif, sin respuesta. –
Bueno, en realidad que lo que lo consigues usando Faceform [blanco]. ¿Hay alguna otra manera en la que podría mostrar algunos gráficos con el ConvexHull – 500
@ 500? Si no quiere ver los puntos, no hay nada más fácil que omitir la línea que los dibuja y que incluí para fines ilustrativos ('Point @ pts'). No estoy seguro si te entiendo aquí. No entiendo tu pregunta sobre 'Faceform [white]' tampoco. Yo uso 'Faceform []' que hace que el polígono sea transparente. –
Gracias. Perdón por la confusión, lo tengo resuelto ahora! – 500