Wolfram Language Paclet Repository
Community-contributed installable additions to the Wolfram Language
WolframInstitute`NetworkSystem`
NetworkSystemDisplay  |
|
| | ||||
Examples
(1)
Basic Examples
(1)
Custom net:
In[1]:=
 | NetworkSystemDisplay |
Out[1]=
In[2]:=
| NetworkSystemDisplay |
Out[2]=
In[3]:=
cnet=
[16]
 | CyclicNet |
Out[3]=
{{16,2},{1,3},{2,4},{3,5},{4,6},{5,7},{6,8},{7,9},{8,10},{9,11},{10,12},{11,13},{12,14},{13,15},{14,16},{15,1}}
In[4]:=
| NetworkSystemDisplay |
Out[4]=
In[5]:=
gridNet[i_,tot_]:={Switch[Mod[i,4],1,Mod[i-4+2,tot],2,Mod[i-8+2,tot]/.0tot,3,Mod[i+4-2,tot],0,Mod[i+8-2,tot]],i+If[Mod[i,4]0,-2,1]}
In[6]:=
gridnet=Table[gridNet[i,16],{i,16}]
Out[6]=
{{15,2},{12,3},{5,4},{10,2},{3,6},{16,7},{9,8},{14,6},{7,10},{4,11},{13,12},{2,10},{11,14},{8,15},{1,16},{6,14}}
In[7]:=
| NetworkSystemDisplay |
Out[7]=
In[8]:=
treeNet[tot_?OddQ]:=MapIndexed[#&,Join[Partition[Range[2,tot],2],Table[{n,n},{n,(tot+1)/2,tot}]]]
In[9]:=
tnet=treeNet[17]
Out[9]=
{{2,3},{4,5},{6,7},{8,9},{10,11},{12,13},{14,15},{16,17},{9,9},{10,10},{11,11},{12,12},{13,13},{14,14},{15,15},{16,16},{17,17}}
In[10]:=
| NetworkSystemDisplay |
Out[10]=
 |
|
""