metric is like Jacobian of transformation of surface

In[]:=
plot=Plot3D[1/Sqrt[x^2+y^2+1],{x,-4,4},{y,-4,4}]
Out[]=
Contents cannot be rendered at this time; please try again later
In[]:=
Plot3D[1/Sqrt[x^2+y^2+1],{x,-4,4},{y,-4,4},MeshAll]
Out[]=
Contents cannot be rendered at this time; please try again later
ColorFunction
In[]:=
DiscretizeRegion[DiscretizeGraphics[plot],MaxCellMeasure{"Length".2},PlotTheme"Lines"]
Out[]=
Contents cannot be rendered at this time; please try again later
In[]:=
MeshConnectivityGraph[%,2]//GraphPlot
Out[]=
Contents cannot be rendered at this time; please try again later
In[]:=
MeshConnectivityGraph[%146,2]//GraphPlot3D
Out[]=
Contents cannot be rendered at this time; please try again later
In[]:=
plot=RevolutionPlot3D[2*Sqrt[(r-1)],{r,1,3},BoxRatios1]
Out[]=
Contents cannot be rendered at this time; please try again later
In[]:=
plot=RevolutionPlot3D[2*Sqrt[(r-1)],{r,1,3},BoxRatios1,MeshAll]
Out[]=
Contents cannot be rendered at this time; please try again later