In[]:=
ListPointPlot3D[{{17,18,11},{12,17,10},{16,18,10},{15,18,9},{16,17,9},{11,14,8},{12,18,8},{13,17,8},{13,16,7},{14,18,7},{15,17,7},{7,9,6},{8,16,6},{10,14,6},{11,15,6},{12,13,6},{7,8,5},{9,14,5},{10,13,5},{11,12,5},{15,16,5},{9,11,4},{10,15,4},{12,16,4},{13,18,4},{14,17,4},{4,8,3},{5,6,3},{7,12,3},{9,13,3},{10,11,3},{14,15,3},{3,18,2},{4,6,2},{5,17,2},{7,11,2},{8,10,2},{9,12,2},{13,15,2},{14,16,2},{3,17,1},{4,5,1},{6,18,1},{7,10,1},{8,9,1},{11,16,1},{12,15,1},{13,14,1},{1,2,0},{3,16,0},{4,7,0},{5,18,0},{6,17,0},{8,15,0},{9,10,0},{11,13,0},{12,14,0}}]
Out[]=
In[]:=
RandomFinitePP[n_,ct_,len_]:=SparseArray[#1&/@DeleteCases[Catenate[Table[With[{p=RandomInteger[{1,n},2],dx=RandomChoice[{0,1}],dy=RandomChoice[{0,1}]},Table[p+{idx,idy},{i,len}]],ct]],{x_,y_}/;(x>n||y>n)],{n,n}]
In[]:=
RandomFinitePP[20,10,4]
Out[]=
In[]:=
AdjacencyGraph[%186]
Out[]=
In[]:=
ArrayPlot[%]
Out[]=
In[]:=
RandomFinitePP[20,20,4]
Out[]=
In[]:=
ArrayPlot[%]
Out[]=
In[]:=
AdjacencyGraph[%%]
Out[]=
In[]:=
Graph3D[%]
Out[]=
Projective Hilbert space
Projective Hilbert space
Complex Hilbert space : discrete model ??