WOLFRAM NOTEBOOK

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[]=
In[]:=
Plot3D[1/Sqrt[x^2+y^2+1],{x,-4,4},{y,-4,4},MeshAll]
Out[]=
ColorFunction
In[]:=
DiscretizeRegion[DiscretizeGraphics[plot],MaxCellMeasure{"Length".2},PlotTheme"Lines"]
Out[]=
In[]:=
MeshConnectivityGraph[%,2]//GraphPlot
Out[]=
In[]:=
MeshConnectivityGraph[%146,2]//GraphPlot3D
Out[]=
In[]:=
plot=RevolutionPlot3D[2*Sqrt[(r-1)],{r,1,3},BoxRatios1]
Out[]=
In[]:=
plot=RevolutionPlot3D[2*Sqrt[(r-1)],{r,1,3},BoxRatios1,MeshAll]
Out[]=
Wolfram Cloud

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 »

You are using a browser not supported by the Wolfram Cloud. Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.