Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- f[x_] := Mod[x^11, 100];
- NV = 22;
- V = Table[i, {i, 1, NV}]
- FV = Table[f[V[[i]]], {i, 1, NV}]
- EV = Table[DirectedEdge[V[[i]], FV[[i]]], {i, 1, NV}]
- circle[n_] := Table[{Cos[2 Pi/n u], Sin[2 Pi/n u]}, {u, 1, n}]
- Graph[EV, VertexCoordinates -> circle[NV]]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement