In[]:=
g15=Graph[Rule@@@WolframModel[{{0,1},{0,2},{0,3}}{{1,2},{2,3},{3,4},{4,1},{4,3}},Table[0,3,2],15,"FinalState"]]
Out[]=
{x[i],y[i]}
NMinimize
GraphDistanceMatrix[UndirectedGraph[g15]]^2
In[]:=
VertexCount[%]
Out[]=
128
In[]:=
MatrixPlot[1/(GraphDistanceMatrix[g15]/.0None)]
Out[]=
In[]:=
MatrixPlot[1/(GraphDistanceMatrix[UndirectedGraph[g15]]/.0None)]
Out[]=
In[]:=
MatrixPlot[Exp[-(GraphDistanceMatrix[UndirectedGraph[g15]]/.0None)]]
Out[]=
In[]:=
MatrixPlot[1/%]
1
0
1
0
1
0
Out[]=
[[[[ More to do, e.g. with manifold reconstruction ]]]]
[[[[ More to do, e.g. with manifold reconstruction ]]]]