In[]:=
plot=Plot3D[10Exp[-.1(x^2+y^2)],{x,-10,10},{y,-10,10},MeshAll,PlotPoints50,PlotRangeAll]
Out[]=
In[]:=
DiscretizeRegion[DiscretizeGraphics[plot],MaxCellMeasure{"Length".2},PlotTheme"Lines"]
Out[]=
In[]:=
MeshConnectivityGraph[%]
Out[]=
In[]:=
GraphPlot[%]
Out[]=
In[]:=
plot=Plot3D[10Exp[-.1(x^2+y^2)],{x,-10,10},{y,-10,10},MeshAll,PlotRangeAll]
Out[]=
In[]:=
DiscretizeRegion[DiscretizeGraphics[plot],MaxCellMeasure{"Length".2},PlotTheme"Lines"]
Out[]=
In[]:=
MeshConnectivityGraph[%,0]
Out[]=