In[]:=
flammParaboloid=DiscretizeGraphics[RevolutionPlot3D[2*Sqrt[(r-1)],{r,1,2}]]
Out[]=
In[]:=
pts=RandomPoint[flammParaboloid,1000];
In[]:=
ListPointPlot3D[%]
Out[]=
In[]:=
ResourceFunction["NonConvexHullMesh"][pts,1]
Out[]=
In[]:=
MeshConnectivityGraph[%]
Out[]=
In[]:=
Graph3D[%,GraphLayout"SpringElectricalEmbedding",VertexCoordinatesAutomatic]
Out[]=
In[]:=
sch=;