Sphere
Sphere
Discrete
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
Continuous
Plane
Plane
Single geodesic
Bundle of radius 1
Bundle of radius 3
Continuous
Continuous
Hyperboloid
Hyperboloid
Single geodesic
Bundle of radius 1
Bundle of radius 3
Continuous
Continuous
https://demonstrations.wolfram.com/HyperboloidGeodesics/