Advertisement
Guest User

Untitled

a guest
Dec 22nd, 2014
141
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.26 KB | None | 0 0
  1. f[x_] := Mod[x^11, 100];
  2. NV = 22;
  3. V = Table[i, {i, 1, NV}]
  4. FV = Table[f[V[[i]]], {i, 1, NV}]
  5. EV = Table[DirectedEdge[V[[i]], FV[[i]]], {i, 1, NV}]
  6.  
  7. circle[n_] := Table[{Cos[2 Pi/n u], Sin[2 Pi/n u]}, {u, 1, n}]
  8. Graph[EV, VertexCoordinates -> circle[NV]]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement