Teste de pertinência 

Teste pontos sobre sua pertinência em uma malha.

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]=

Crie uma RegionMemberFunction para testar pertinência para um grande conjunto de pontos.

mostre o input completo de Wolfram Languageoculte o input

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]=

O mesmo pode ser feito em 3D.

mostre o input completo de Wolfram Languageoculte o input

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]=