Graphics Metric Graphs
Graphics Metric Graphs
From Parametric Region
From Parametric Region
In[]:=
parametricRegion=ParametricRegion[{x,y,2Exp[-(x^2+y^2)]},{{x,-4,4},{y,-4,4}}];
In[]:=
parametricPoints=RandomPoint[parametricRegion,100000];
In[]:=
Graphics3D[Point[RandomSample[parametricPoints,10000]]]
Out[]=
In[]:=
parametricGraph=NearestNeighborGraph[parametricPoints,{All,0.05}];
In[]:=
parametricEmbedding=GraphEmbedding[parametricGraph,"SpringElectricalEmbedding",3];
In[]:=
Graphics3D[Point[RandomSample[parametricEmbedding,10000]]]
Out[]=
Deimos
Deimos
In[]:=
deimos=ExampleData[{"Geometry3D","Deimos"}];
In[]:=
deimosPolygon=Polygon[deimos〚1,2,2,1,1〛/.p_Integerdeimos〚1,2,1,p〛];
In[]:=
Graphics3D[deimosPolygon]
Out[]=
In[]:=
deimosPoints=RandomPoint[deimosPolygon,20000];
In[]:=
deimosGraph=NearestNeighborGraph[deimosPoints,{All,0.3}];
In[]:=
deimosEmbedding=GraphEmbedding[deimosGraph,"SpringElectricalEmbedding",3];
In[]:=
Graphics3D[Point[deimosEmbedding]]
Out[]=
Cow
Cow
In[]:=
cow=ExampleData[{"Geometry3D","Cow"}];
In[]:=
cowPolygon=Polygon[cow〚1,2,2,1,1〛/.p_Integercow〚1,2,1,p〛];
In[]:=
Graphics3D[cowPolygon]
Out[]=
Ellipsoid
Ellipsoid