You are using a browser not supported by the Wolfram Cloud
Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.
I understand and wish to continue anyway »
WOLFRAM NOTEBOOK
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[]=