Zugehörigkeits-Tests 

Testen Sie Punkte auf ihre Zugehörigkeit zu einem Netz.

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

Stellen Sie eine RegionMemberFunction auf, um die Zugehörigkeit einer großen Punktemenge testet.

Die gesamte Wolfram-Language Eingabe zeigenEingabe verbergen

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

Dasselbe ist auch in 3D möglich.

Die gesamte Wolfram-Language Eingabe zeigenEingabe verbergen

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