WOLFRAM NOTEBOOK

Sphere

Discrete

Single geodesic
In[]:=
GeodesicsBundle[IndexGraph@MeshConnectivityGraph[DiscretizeGraphics[Sphere[]]],{0.3,0.7},0]
Out[]=
Bundle of radius 1
In[]:=
GeodesicsBundle[IndexGraph@MeshConnectivityGraph[DiscretizeGraphics[Sphere[]]],{0.3,0.7},1]
Out[]=
Bundle of radius 3
In[]:=
GeodesicsBundle[IndexGraph@MeshConnectivityGraph[DiscretizeGraphics[Sphere[]]],{0.3,0.7},3]
Out[]=
In[]:=
IndexGraph@MeshConnectivityGraph[DiscretizeGraphics[Sphere[],MaxCellMeasure{"Area".005}]]
Out[]=
In[]:=
GeodesicsBundle[%200,{.3,.7},3]
Out[]=
3 parallel lines
In[]:=
GeodesicsAll[sphere,{{644,1274},{181,172},{313,165}}]
Out[]=
5 parallel lines
In[]:=
GeodesicsAll[sphere,{{644,1274},{181,172},{313,165},{2216,2234},{2027,2036}}]
Out[]=

Continuous

Plane

Single geodesic
Bundle of radius 1
Bundle of radius 3

Continuous

Hyperboloid

Single geodesic
Bundle of radius 1
Bundle of radius 3

Continuous

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.