Pruebas de pertenencia 

Pruebe puntos para pertenencia en una malla.

In[1]:=

X mesh2d = BoundaryDiscretizeGraphics[Text[Style["\[Pi]", Bold]], _Text, MaxCellMeasure -> 0.1]; pts = {{2, 2}, {3, 3}};

In[2]:=

X RegionMember[mesh2d, pts]

Out[2]=

Cree una RegionMemberFunction para probar pertenencia para un conjunto grande de puntos.

muestre la entrada completa de Wolfram Languageoculte la entrada

In[3]:=

X mf = RegionMember[mesh2d]; pts = RandomReal[{-3, 3}, {2000, 2}]; Show[mesh2d, Graphics[{PointSize[Small], Red, Point[Select[pts, mf]], Black, Point[Select[pts, ! mf[#] &]]}]]

Out[3]=

Lo mismo se puede hacer en 3D.

muestre la entrada completa de Wolfram Languageoculte la entrada

In[4]:=

X i = ImplicitRegion[ x^4 - 5 x^2 + y^4 - 5 y^2 + z^4 - 5 z^2 + 11.8 <= 0, {x, y, z}]; mesh3d = BoundaryDiscretizeRegion[i, RegionBounds[i]]; mf = RegionMember[mesh3d]; pts = RandomVariate[UniformDistribution[RegionBounds[mesh3d]], 2000]; Show[HighlightMesh[mesh3d, Style[2, Opacity[0.2]]], Graphics3D[{Red, Point[Select[pts, mf]], Black, Point[Select[pts, ! mf[#] &]]}]]

Out[4]=