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[]:=
geodesics10=RankedGeodesics[ellipsoid113,15];
In[]:=
Position[geodesics10,926]
Out[]=
{{220,2,1,1}}
In[]:=
geodesics10〚Position[geodesics10,926]〚All,1〛〛
Out[]=
In[]:=
FindShortestPath[ellipsoid113,926,3251]〚16〛
Out[]=
2060
In[]:=
geodesics10Horizontal=RankedGeodesics[ellipsoid113,15,{926,2060,3251}];
In[]:=
geodesics10Horizontal〚{1,-40}〛
Out[]=
In[]:=
geodesics10Horizontal〚-40;;-1〛
1936,2281
In[]:=
tube[graph_,v1_,v2_,r_]:=NeighborhoodGraph[graph,FindShortestPath[graph,v1,v2],r]
In[]:=
HighlightGraph[ellipsoid113,{Style[tube[ellipsoid113,926,3251,3],Red],Style[tube[ellipsoid113,1936,2281,3],Red]}]
Out[]=
In[]:=
gg=NeighborhoodGraph[GridGraph[{10,10}],56,4];
In[]:=
Graph[gg,VertexLabelsAutomatic]
Out[]=
In[]:=
geodesics=RankedGeodesics[gg,4,{60,56,52}];
In[]:=
geodesics〚12〛
Out[]=
In[]:=
HighlightGraph[gg,Append[Style[Subgraph[gg,FindShortestPath[gg,##]&@@#〚2,1〛],ColorData["TemperatureMap"][#〚1〛/8]]&/@geodesics〚2;;〛,Style[Subgraph[gg,FindShortestPath[gg,##]&@@geodesics〚1,2,1〛],ColorData["TemperatureMap"][0/8]]]]
Out[]=
In[]:=
geodesics
In[]:=
RankedGeodesics
,4,{60,56,52}
Out[]=