Teste de pertinência 

Teste pontos para pertinência.

In[1]:=

X pts = {{0.5, 0.5}, {1, 1}};

In[2]:=

X RegionMember[Disk[{0, 0}, 1], pts]

Out[2]=

Compute condições de pertinência para a região em qualquer dimensão.

In[3]:=

X RegionMember[ ParametricRegion[{{s^2, s^3}, -1 <= s <= 1}, {s}], {x, y}]

Out[3]=

In[4]:=

X RegionMember[ Simplex[{{1, 0, 0, 0}, {0, 1, 0, 0}, {0, 0, 1, 0}, {0, 0, 0, 1}}], {w, x, y, z}]

Out[4]=

Visualize a pertinência do ponto em vermelho.

In[5]:=

X \[ScriptCapitalR] = ImplicitRegion[x^2 - 2 y^2 <= 1, {{x, -3, 3}, {y, -4, 4}}];

mostre o input completo de Wolfram Languageoculte o input

In[6]:=

X pts = RandomVariate[ UniformDistribution[RegionBounds[\[ScriptCapitalR]]], 10^4];

In[7]:=

X membership = RegionMember[\[ScriptCapitalR], pts];

In[8]:=

X Graphics[{AbsolutePointSize[ 1], {membership /. {False -> Gray, True -> Red}, Point /@ pts}\[Transpose]}]

Out[8]=

Crie uma função RegionMember para testar a pertinência de um grande conjunto de pontos.

In[9]:=

X \[ScriptCapitalR] = Cylinder[{{0, 1/2, 1}, {1.1, 1/2, 1}}, 1/2];

In[10]:=

X mf = RegionMember[\[ScriptCapitalR]]

Out[10]=

mostre o input completo de Wolfram Languageoculte o input

In[11]:=

X pts = RandomReal[{0, 1}, {2500, 3}];

In[12]:=

X Graphics3D[{EdgeForm[White], Yellow, {Opacity[0.2], \[ScriptCapitalR]}, {Red, Ball[Select[pts, mf], 0.01]}, Lighting -> "Neutral", {GrayLevel@0.3, Point[Select[pts, Not[mf[#]] &]]}}, Boxed -> False]

Out[12]=